Jika anda masih sering menggunakan combobox, datacombo atau datalist anda akan sering menggunakan perintah query recordset konvensional. berikut ini adalah contoh load data ke combobox atau sejenisnya dengan menggunakan procedure LoadData.
Untuk menggunakan perintah diatas cukup menuliskan kode program pada form initliaze atau form load
'Procedure used to bind data combo
Public Sub Fill_CB(ByVal srcSQL As String, ByVal srcBindField As String, ByRef srcCB As Object, Optional ShowFirstRec As Boolean)
Dim RS As New Recordset
RS.CursorLocation = adUseClient
RS.Open srcSQL, CNN, adOpenStatic, adLockOptimistic
srcCB.Clear
If Not RS.EOF Then
Do While Not RS.EOF
srcCB.AddItem RS.Fields(srcBindField)
RS.MoveNext
Loop
End If
Set RS = Nothing
End Sub
Fill_CB "Select FieldA,FieldB from TableName","FieldA",CboData,True
cukup simple bukan dari pada anda menulis kode fill_cb disetiap form yang akan meload data ke combobox dari suatu record.
Procedure diatas dapat anda gunakan di .NET
semoga bermanfaat bagi semua yang membutuhkan.
Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com
atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :