Question

VB list读取access数据库中的一列并显示出来

'打开程序首先数据库连接
Str = App.Path
If Right(Str, 1) <> "\" Then
Str = Str & "\data"
Else
Str = Str & "data"
End If
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Str & "\shujuku.mdb" & ";Jet OLEDB:Database password=123"

'MSHFlexGrid1其次读取数据库内容
Db.Open Str
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open "SELECT * FROM LcPassWord", Db, adOpenDynamic, adLockOptimistic

If Rs.RecordCount > 0 Then
Set MSH.Recordset = Rs
End If
Db.Close
这是表格读取数据库的方式,现在是让list在数据库连接后,读取LcPassWord表内text1列的全部内容并显示在list里,请求高手帮忙啊!!!
MSH是MSHFlexGrid1简写

Answer 1

这个有两种方法：
1：直接从Rst里读取数据，在Rst获得数据集合的时候
List1.Clear
rst.MoveFirst
Do While Not rst.EOF
List1.AddItem rst.Fields("text1") '这里把字段名修改成数据表里的实际字段名
rst.MoveNext
Loop

2：通过MSHFlexGrid1网格控件，向list添加数据

略

追问

高手你好,我用第一种方法,

rst.MoveFirst
Do While Not rst.EOF
List1.AddItem rst.Fields("text1") '这里把字段名修改成数据表里的实际字段名
rst.MoveNext
Loop
这样提示对象关闭时,不允许操作,改怎么办啊
我是放在数据库连接后面的

追答

这个要在你上面的代码里直接加：

If Rs.RecordCount > 0 Then
List1.Clear
rs.MoveFirst
Do While Not rs.EOF
List1.AddItem rs.Fields("text1") '这里把字段名修改成数据表里的实际字段名
rs.MoveNext
Loop
rs.MoveFirst
Set MSH.Recordset = Rs
End If