MAKASIH BANG SORRY NEH BANG GW BAWEL BGT.....HE..HE....BAGUSNYA DEKLARASINYA DIMANA YA BANG...EH NANYA LAGI NEH.....
THANK'S ----- Original Message ----- From: "Yohanes" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Wednesday, August 10, 2005 2:35 PM Subject: Re: [Programmer-VB] TANYA UPDATE RECORD > rio, remark itu tambahin tanda kutip didepan baris > jadi syntaxnya gak di execute dan berwarna hijau muda > > mypassword dll tentunya itu deklarasi variabel. > > ----- Original Message ----- > From: "rima" <[EMAIL PROTECTED]> > To: <[email protected]> > Sent: Wednesday, August 10, 2005 1:38 PM > Subject: Re: [Programmer-VB] TANYA UPDATE RECORD > > > > DEAR GUNAWAN, > > > > Gimana caranya aku mau meremark statement, aku kurang paham neh > > maksudnya...tolong dong lebih simpel karena aku masih pemula neh... > > > > > > trus myid and my pasword itu jalan secara otomatis atau itu hanya > > deklarasi > > dimana my id and my pasword sudah didefenisikan dahulu, karena di sql > > server > > aku banyak pake user dan semua paswordnya beda sesuai tingkatannya... > > > > tolong lebih jelas mas, sorry klo terlalu banyak tanya neh.... > > > > > > thank's > > > > rio > > ----- Original Message ----- > > From: "Gunawan doang" <[EMAIL PROTECTED]> > > To: <[email protected]> > > Sent: Wednesday, August 10, 2005 1:23 PM > > Subject: Re: [Programmer-VB] TANYA UPDATE RECORD > > > > > >> bila di compile pake Mata dan oleh system pun bila di > >> jalankan juga tidak error, karena error traping > >> diambil aleh oleh On Error Resume next, Coba anda > >> remark statement tersebut kemudian jalankan kembali, > >> error nya muncul apa ? > >> > >> Saran : > >> 1. sebaiknya instruksi "jangan di gunakan" > >> 2. .ConnectionString = "provider=sqloledb;user > >> id=EMC;password=rers123;persist security info=true; > >> > >> Connection string di atas sebaiknya jangan full-gar > >> seperti ini, untu mengurangi hal2 "jahil". karena ada > >> informasi Data Source, initial catalog, uid, dan pwd. > >> > >> sebaiknya anda edit menjadi > >> .ConnectionString = "provider=sqloledb;user > >> id=myID;password=mypassword;persist security > >> info=true; > >> > >> > >> TK > >> --- rima <[EMAIL PROTECTED]> wrote: > >> > >> > ini contoh programnya: > >> > > >> > > >> > Dim ECON As ADODB.Connection > >> > Dim RS1 As ADODB.Recordset > >> > ============================================ > >> > 'ini maslahnya > >> > 'pas aku add data pertama masuk tapi pas aku add > >> > lagi gak masuk datanya > >> > Private Sub Command1_Click() 'ini tombol add > >> > If Len(Trim(Text1.Text)) < 5 Or > >> > Len(Trim(Text1.Text)) > 5 Then > >> > MsgBox ("ID tidak boleh <5 ATAU >5") > >> > Text1.SetFocus > >> > Text1.Text = " " > >> > Exit Sub > >> > End If > >> > > >> > > >> > If Text2.Text = " " Then > >> > MsgBox ("diisi...") > >> > Text2.SetFocus > >> > Exit Sub > >> > End If > >> > > >> > > >> > If Len(Trim(Text1.Text)) = 5 And Text2.Text <> " " > >> > Then > >> > ok > >> > > >> > > >> > If RS1.RecordCount > 0 Then > >> > MsgBox ("Data Sudah Ada") > >> > Text1.SetFocus > >> > Exit Sub > >> > End If > >> > On Error Resume Next > >> > RS1.AddNew > >> > RS1.Fields("CD_BRG") = Text1.Text > >> > RS1.Fields("NM_BRG") = Text2.Text > >> > RS1.Update > >> > End If > >> > > >> > > >> > BLANK 'ini fungsi kosongkan > >> > > >> > > >> > > >> > > >> > > >> > > >> > End Sub > >> > > >> > ============================================= > >> > 'ini fungsinya > >> > > >> > Private Sub BLANK() > >> > Text1.Text = " " > >> > Text2.Text = " " > >> > Text1.SetFocus > >> > > >> > End Sub > >> > =================================================== > >> > Private Sub Form_Load() > >> > > >> > Set ECON = New ADODB.Connection > >> > With ECON > >> > .ConnectionString = "provider=sqloledb;user > >> > id=EMC;password=rers123;persist security info=true; > >> > initial catalog=tester;data source=rio-csumum" > >> > .Open > >> > If Not .State = adStateOpen Then > >> > MsgBox "Tidak dapat membuat hubungan ke > >> > database" > >> > End If > >> > End With > >> > > >> > End Sub > >> > ============================================= > >> > 'ini fungsi buka recordsetnya > >> > Private Sub ok() > >> > Dim sql As String > >> > Set RS1 = New ADODB.Recordset > >> > > >> > > >> > sql = "select * from jns_brg where cd_brg='" & > >> > Trim(Text1.Text) & "'" > >> > With RS1 > >> > .ActiveConnection = ECON > >> > .CursorLocation = adUseClient > >> > .CursorType = adOpenDynamic > >> > .LockType = adLockOptimistic > >> > .Source = sql > >> > .Open > >> > End With > >> > > >> > > >> > End Sub > >> > ----- Original Message ----- > >> > From: Tatu Inderawan > >> > To: [email protected] > >> > Sent: Wednesday, August 10, 2005 12:12 PM > >> > Subject: RE: [Programmer-VB] TANYA UPDATE RECORD > >> > > >> > > >> > sory neh, aku kurang nangkep maksudnya, kirim aja > >> > codingnya sekalian error msg-nya ya? > >> > takutnya codenya sudah benar tp logikanya yg > >> > salah... OK... > >> > > >> > sekedar gambaran : > >> > > >> > Private Sub cmd_AddSave() > >> > > >> > fungsi_simpan > >> > fungsi_kosongkan_teks > >> > > >> > End Sub > >> > > >> > dan pastikan koneksi database & record sudah di > >> > open sebelumnya... > >> > > >> > -----Original Message----- > >> > From: [email protected] > >> > [mailto:[EMAIL PROTECTED] Behalf Of > >> > rima > >> > Sent: 10 Agustus 2005 11:43 > >> > To: [email protected] > >> > Subject: Re: [Programmer-VB] TANYA UPDATE RECORD > >> > Importance: High > >> > > >> > > >> > input pertama masuk tapi pas yang keduakalinya > >> > mo input datanya gak masuk... > >> > > >> > pas aku teliti ternyata soal peletakan fungsi > >> > untuk mengosongkan teks di interface... > >> > > >> > jadi gini ceritanya, aku mo buat tombol add itu > >> > sekalian simpan data dan mengosongkan teks di > >> > interfacenya...ternyata jadinya begitu...ada solusi > >> > gak ya Tu.....soalnya klo pas fungsi menghapus teks > >> > di interfacenya gak aku aktifin data yang aku input > >> > masuk semua gimana ya ngakalin fungsi itu supaya gak > >> > seperti itu.... > >> > ----- Original Message ----- > >> > From: Tatu Inderawan > >> > To: [email protected] > >> > Sent: Wednesday, August 10, 2005 8:13 AM > >> > Subject: RE: [Programmer-VB] TANYA UPDATE > >> > RECORD > >> > > >> > > >> > maksudnya input data yg pertama bisa atau > >> > nggak? > >> > -----Original Message----- > >> > From: [email protected] > >> > [mailto:[EMAIL PROTECTED] Behalf Of > >> > rima > >> > Sent: 09 Agustus 2005 16:16 > >> > To: [email protected] > >> > Subject: [Programmer-VB] TANYA UPDATE RECORD > >> > > >> > > >> > Dear All, > >> > > >> > > >> > aku ada trouble didatabase sql, yaitu pas > >> > input data pertama tapi data yang kedua tidak > >> > masuk...ada yang bisa kasih pencerahan gak > >> > ya????please... > >> > > >> > > >> > thank's > >> > > >> > > >> > rio > >> > > >> > > >> > Untuk keluar dari millis ini, kirim email kosong > >> > ke: > >> > [EMAIL PROTECTED] > >> > > >> > > >> > > >> > > >> > > >> > SPONSORED LINKS Programming languages > >> > Programmer C programming language > >> > Computer programming languages Java > >> > programming language C programming language > >> > > >> > > >> > > >> ------------------------------------------------------------------------- - > > -- > >> > YAHOO! GROUPS LINKS > >> > > >> > a.. Visit your group "Programmer-VB" on the > >> > web. > >> > > >> > b.. To unsubscribe from this group, send an > >> > email to: > >> > > >> === message truncated === > >> > >> > >> > >> > >> ____________________________________________________ > >> Start your day with Yahoo! - make it your home page > >> http://www.yahoo.com/r/hs > >> > >> > >> > >> > >> Untuk keluar dari millis ini, kirim email kosong ke: > >> [EMAIL PROTECTED] > >> > >> > >> Yahoo! Groups Links > >> > >> > >> > >> > >> > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > > [EMAIL PROTECTED] > > > > > > Yahoo! Groups Links > > > > > > > > > > > > > > > > > > > > > Untuk keluar dari millis ini, kirim email kosong ke: > [EMAIL PROTECTED] > > > Yahoo! Groups Links > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> <font face=arial size=-1><a href="http://us.ard.yahoo.com/SIG=12hcchof7/M=362329.6886308.7839368.1510227/D=groups/S=1705115364:TM/Y=YAHOO/EXP=1123666988/A=2894321/R=0/SIG=11dvsfulr/*http://youthnoise.com/page.php?page_id=1992 ">Fair play? Video games influencing politics. Click and talk back!</a>.</font> --------------------------------------------------------------------~-> Untuk keluar dari millis ini, kirim email kosong ke: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/Programmer-VB/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
