Dim i As Integer, a(1 To 50) As String
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "provider=microsoft.ACE.oledb.12.0;data source=" + App.Path + "\xx.accdb"
conn.Open
Set rs.ActiveConnection = conn
rs.Open "select * from xxxxx"
i = 0
Do While Not rs.EOF
i = i + 1
a(i) = rs.Fields("名称")
List1.AddItem a(i)
rs.MoveNext
Loop
rs.Close
conn.Close
conexión de base de datos [Visual Basic] VB
Supongo que te gusta
Origin www.cnblogs.com/lsqwq/p/Application.html
Recomendado
Clasificación