Question

怎么用vb把access数据库中的表table中的fname查询出来，然后在list1中显示出来。

Answer 1

Dim db As New ADODB.Connection， RS As New ADODB.Recordset
Dim strSQL As String
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ=" & App.Path & "\*.mdb" '数据库在程序目录中
db.ConnectionString = "DRIVER=Microsoft Access Driver (*.mdb);dbQ="数据库路径+名称+扩展名" '数据库不在程序目录中
db.Open
strSQL = "Select fname from [table]
RS.Open strSQL, db, 3, 2
do while Not RS.EOF Then
list1.items.add(rs("fname"))
nextmover
loop
RS.Close
Set RS = Nothing
大体逻辑是这样,可能有些错误,需要你自己纠正