我尝试着这样写了段程序
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim i As Integer
cn.Open "provider=microsoft.jet.4.0;Data source=f:\MysampleDB.mdb;"
Set cmd.ActiveConnection = cn
cmd.commandtext = "select * from 表1；"
rst.cursorlocation = aduseclient
rst.Open cmd, , adopenstatic, adlockbatchoptimistic
rst.MoveFirst
For i = 1 To rst.RecordCount - 1
Debug.Print rst.Fields("时间")
rst.MoveNext
Next i
Set rst = Nothing
Set cmd = Nothing
Set cn = Nothing
End Sub
可是总出错提示“未找到提供者，可能为能正确安装。”
能帮我看看问题出在那里吗？
Private Sub Command1_Click()
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset
Dim i As Integer
cn.Open "provider=microsoft.jet.4.0;Data source=f:\MysampleDB.mdb;"
Set cmd.ActiveConnection = cn
cmd.commandtext = "select * from 表1；"
rst.cursorlocation = aduseclient
rst.Open cmd, , adopenstatic, adlockbatchoptimistic
rst.MoveFirst
For i = 1 To rst.RecordCount - 1
Debug.Print rst.Fields("时间")
rst.MoveNext
Next i
Set rst = Nothing
Set cmd = Nothing
Set cn = Nothing
End Sub
可是总出错提示“未找到提供者，可能为能正确安装。”
能帮我看看问题出在那里吗？
解决方案 »
- 向各位大哥求救，串口调用Writefile 是否只能发送字符的ASIIC，如何能够发送超出ASIIC定义的16进制，急！！
- ΩΩ答辩后的郁闷，还是散了
- 请问高手，我想联接远程mysql数据库，请问如何写。急急.....
- 那位高手能解决这一个问题？
- 求助：一个简单的VB问题
- 求Script Control的详细使用方法或VB中如何实现把变量直接执行
- 求获得图片RectAngle的API
- 在ActiveReport2.0设计器中如何设计出象Excel中那样可以合并连续相同的项(再次求救)!!!
- r众位高手，菜虫有问题要问，我现在是单机环境，我不想叫别人登录我的计算机（就是取消也不能登录），请问要怎么做呢？谢谢！！！！！！！！！！！
- 请问如何动态改变Data Report的数据源(我用的是SQL语句，但想在代码中处理)
- 取SQLServer服务器名
- 为什么老是提示我WITH变量块未设置？？
如是vb6.0+office2000有安裝microsoft.jet.oledb.4.0.
放入系统盘，SETUP。
再放入VB6的盘。
安装后好记得要引用。"工程"－－＞“引用”－－＞“ADO”