Coba pake' ini,
Dim cn As New ADODB.Connection
Dim SQL As String
Private Sub cbonama_Click()
Dim rs As New ADODB.Recordset
SQL = "SELECT * FROM tbnama WHERE Kolom_Nama ='" & cbonama.Text & "'"
rs.Open SQL, cn, adOpenKeyset, adLockBatchOptimistic
txtnip.Text = rs!Kolom_Nip
txtperingkat.Text = rs!Kolom_Peringkat
Set rs = Nothing
End Sub
Private Sub Form_Load()
Dim rs As New ADODB.Recordset, i As Integer
'Ganti koneksinya ke Akses
SQL = "Provider=SQLOLEDB.1;......"
cn.Open SQL
cn.CursorLocation = adUseClient
SQL = "SELECT Kolom_Nama FROM tbnama"
rs.Open SQL, cn, adOpenKeyset, adLockBatchOptimistic
For i = 1 To rs.RecordCount
Combo1.AddItem rs!Kolom_Nama
rs.MoveNext
Next i
Set rs = Nothing
End Sub
Tambahkan reference ke Microsoft ADO 2.X Library
Semoga nggak di kejar - kejar lagi ... ;)
----- Original Message -----
From: Fahrul Rizal
To: [email protected]
Sent: Friday, September 29, 2006 1:37 PM
Subject: [indoprog-vb] adodb
for all,,,,,!
da yang mo bantu saya .....!
ku punnya database di access
dengan nama pegawai.mdb
nama tabelnya tbnama
di dalama tabel terdapat kolom
1.nama
2.nip
3.peringkat
form
cbonama
txtnip
txtperingkat
saya ingin
pada saat cbonama di click
maka secara otomatis nip dan peringkatnya ikut menyusul
tlong yah da di kejar2 ma bos nih...!
---------------------------------
Stay in the know. Pulse on the new Yahoo.com. Check it out.
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Bagi terjangkit virus lokal, zip virus tersebut
dan kirim ke [EMAIL PROTECTED], kami
akan membuat removalnya untuk anda.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/indoprog-vb/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> 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/
