ADODC = NYEBELIN
_____
From: [email protected] [mailto:[EMAIL PROTECTED]
On Behalf Of Mas Amin
Sent: 22 Desember 2006 16:36
To: [email protected]
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_suplie! r 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
