欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

新人有关问题,求大大门回答下!

更新时间: 2014-01-05 02:26:06 责任编辑: Author_N1

 

新人问题,求大大门回答下!!!!
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
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 02:26:06
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/9783/
本文WWW.DOC100.NET DOC100.NET版权所有。