Database - How to Use ADO to populate a ListBox Obkect with data values
'Open a Recordset that selects the desired information. Loop through the records and put the values to the ListBox.
Dim statement As String
Dim Conn_Data As ADODB.Connection
Dim rs_data As ADODB.Recordset
' db_file contains the Access database's file name.
' Open a Conn_Dataection.
Set Conn_Data = New ADODB.Connection
Conn_Data.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & db_file & ";" & _
"Pers_dataist Security Info=False"
Conn_Data.Open
' Select the data.
statement = "SELECT Title, URL FROM Books ORDER BY " & "Title"
' Get the records.
Set rs_data = Conn_Data.Execute(statement, , adCmdText)
' Load the Title field into the List Box Oject.
' Save the URL values in a collection.
Set URLs = New Collection
Do While Not rs_data.EOF
List1.AddItem rs_data!Title
URLs.Add CStr(rs_data!URL)
rs_data.MoveNext
Loop
' Close the recordset and Conn_Dataection.
rs_data.Close
Conn_Data.Close
'This example saves the URL value for each record in a collection. When you
'click on a ListBox item, the program displays the URL in a Label. When you
'double click on a ListBox item, the program displays the corresponding Web
'document in a browser.
' Display the item's URL.
Private Sub List1_Click()
If List1.ListIndex < 0 Then
Label1.Caption = ""
Else
Label1.Caption = URLs(List1.ListIndex + 1)
End If
End Sub
' Display the item's Web document.
Private Sub List1_DblClick()
If List1.ListIndex >= 0 Then
ShellExecute hWnd, "open", URLs(List1.ListIndex + 1), vbNullString, vbNullString, SW_SHOW
End If
End SubUpdate 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 :
