新人问题,求大大门回答下!!!!
Microsoft Activex Data Objects 2.x Library
'access
Dim objcon As New ADODB.Connection
Dim objrs As New ADODB.Recordset
objcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ip地址+数据库路径+数据库名 " '如：192.168.0.1\c:\data.mdb
objrs.Open "select * from infoTable ", objcon, 3, 1
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend
其中:
objrs.Open "select * from infoTable ", objcon, 3, 1
while not objrs.eof
list1.additem objrs.fields(0)
objrs.movenext
wend
着段是什么意思..在这里起到什么作用..偶新人看不懂
[解决办法]
'objrs是定义的ADO对象：记录集，调用Open方法，从表infoTable中查询数据
objrs.Open "select * from infoTable ", objcon, 3, 1
'如果记录集中有数据，开始循环每一行的数据
While Not objrs.EOF
'把当前行的第一个字段的值加到列表框的数据源中
list1.additem objrs.Fields(0)
'移动到下一行记录
objrs.MoveNext
Wend
