改为:drv = "PROVIDER=Microsoft.Jet.OLEDB.4.0; Data Source=c:\my documents\db2.mdb;"试试,如果未安装sp4 ,将4.0改为3.5
解决方案 »
- 能不能给记录集rs的每一行按顺序编号呢?
- 问,该网页为什么在webbrowser中的提交按钮就失效?
- 自己编写打印模块如何进行多页预览和打印?
- 怎样能使窗体没有边框,就像墙纸一样显示在桌面的某处?——高分
- VB如何连接远端oracle数据库
- 求助高手指点:用vb实现把结果输出到已定制的word表格中
- 看string1是否在string2里面,用什么函数?
- 在线急等
- VB6.0中如何实现在Oracel库中根据表字段批量查询原始数据?
- 沧海桑田、沧浪客等江湖兄弟,帮帮忙!分数还可以再加!!!
- 怎样关闭window explorer?
- ■■■■■form2调form1的一个sub怎么调?■■■■■■
如果還不行,請興我聯系:19436077(OICQ)
Dim rs As ADODB.Recordset
Dim sql As String
Dim drv As Stringdrv = "DBQ=c:\my documents\db2.mdb;DefaultDir=;driver={microsoft access driver(*.mdb)};uid=;"
sql = "select * from personalinfo"
cn.Open drv
rs.Open sql, cn
text=""
do while not rs.eof Text1.Text = text1 & rs.Fields("name") & vbcrlfrs.movenext
loop
rs.close
rs.Fields("name") 可以简单的写成 rs!name