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
