Tutorial Vb tentang pengkoneksian database oleh datacombo yang menghasilkan sebuah tautan yang bersamaan.
Bingung dengan kata-kata diatas? tau saya juga ga ngerti ngomong kaya begitu. Yang jelas sih ini adalah hasil persamaan database agar hasil pada datacombo sesuai dengan kriteria yang diinginkan.
Pada Postingan ini yang kalian butuhkan adalah adodc, datacombo, serta text box.
Untuk penjelasannya, silahkan lihat listing dibawah ini
Private Sub datacombo_Click(Area As Integer)
adodc1.RecordSource = "select * from table where field_kamu='" & datacombo.Text & "'"
adodc1.Refresh
If anggota.Recordset.RecordCount = 0 Then
MsgBox "data tidak ditemukan"
Else
text1.Text = adodc1.Recordset!field_kamu
End If
anggota.RecordSource = "select * from table"
adodc1.Refresh
End Sub
Perhatian!!! kode ini dimasukan pada datacombo, jangan sampai salah ya. Sepertinya sudah sangat jelas listing code yang saya tuliskan diatas. Apabila ada yang kurang mengerti, silahkan tanyakan
