Wah salah ya, he he ..he makasih koreksinya ya mba nisa dan mas amin. benar sekali mas amin saya memang butuh untuk validasi ID kembar dan juga untuk pencarian, saya coba di microsoft access bisa cuma waktu saya pake sql server kok ngga bisa ya?
----- Original Message ----- From: Mas Amin To: [email protected] Sent: Friday, December 22, 2006 1:36 AM Subject: re: [Programmer-VB] Methode pencarian record dengan ADODC pada SQL server Bener tuh nisa.. kayaknya mas Eko pake ADODB dan bukan ADODC Kalau pake adodb, cara untuk pencarian dan validasi data ganda udah ada dimodul yang saya kirim kemarin, download aja mas... walaupun databasenya SQL-Server tapi untuk Kode programmnya tetap sama kok.. yang beda kan driver untuk koneksinya.... Moga membantu.. nisa cute <[EMAIL PROTECTED]> wrote: hhhmmm, ADODC yah? tapi klo aku lihat mas, kayanya pake ADODB, maksudnya pencarian data dengan : 1. ketik di textbox kemudian muncul semua yg berkaitan dgn data di tulis di textbox? gitu bukan ? atau 2. pake ADODC + DataGrid yg kalau di ketik mendekati data yg di cari ? solusi no.1 coba txtkd_suplier di lostfocus --> txtkd_sup_lostfocus If k.BOF Then GoTo AdadiAwal k.MoveFirst AdadiAwal: If k.EOF Then GoTo buatbaru k.Find "kd_suplier='" & txtkd_sup.Text & "'" If k.EOF Then buatbaru: X = txtkd_sup.Text call kosongkan status = 1 txtkd_sup.Text = X Else loaddata End If klo untuk no.2 klo gak salah tinggal set ADODC.Recordset.Filter = .....blabla apa aku lupa? mungkin cuma itu yg aku tau.... ada yg mau nambahin ..... "Eko Wibowo Yudhi S.N" <[EMAIL PROTECTED]> wrote: Selamat pagi semua, saya ada masalah dengan pencarian record pada SQL server menggunakan ADODC siapa tahu ada yang punya solusi mohon sharingnya. begini masalahnya, saya coba dengan metode SQL set k = new recodset k.open "SELECT * FROM T_suplier WHERE Kode_suplier=' " & textkd_sup.text & " ' ", sup_con dan juga rssuplier.movefirst rssuplier.find kode_suplier = " & textkd_sup.text &" if rssuplier.EOF then kedua cara diatas tidak bekerja. dan juga saya coba cara untuk mencegah ID kembar seperti dibawah tetap tidak bekerja, malah berlanjut kestatemen berikutnya. set k = new recodset k.open "SELECT * FROM T_suplier WHERE Kode_suplier=' " & textkd_sup.text & " ' ", sup_con if k.RecordCount > 0 then msgbox" Data sudah ada",vbOkOnly dst __________________________________________________ Apakah Anda Yahoo!? Lelah menerima spam? Surat Yahoo! memiliki perlindungan terbaik terhadap spam http://id.mail.yahoo.com __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com
