7,763
社区成员
发帖
与我相关
我的任务
分享请问Tyro大虾:能否给我举一个例子呢.
你能否帮我看一看:
Dim xx As ADODB.Connection
Dim yy As ADODB.Recordset
xx.Open "data source=" & App.Path & "\dd\ok.mdb"
yy.Open "select * from comstomer", xx
运行时会出错:
object variable or with block variable not set.
为什么?
Dim xx As ADODB.Connection
Dim yy As ADODB.Recordset
xx.Open "data source=" & App.Path & "\dd\ok.mdb"
yy.Open "select * from comstomer", xx
运行时会出错:
object variable or with block variable not set.
为什么?
...全文
请发表友善的回复…
发表回复
Tyro 2000-07-19
- 打赏
- 举报
我想你主要是因为没有加new
如：dim xx As new adodb.connection
下面是例子：
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
C:\My Documents\test.mdb;Persist Security Info=False"
rst.Open "Select * From Test", cnn
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
如：dim xx As new adodb.connection
下面是例子：
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
C:\My Documents\test.mdb;Persist Security Info=False"
rst.Open "Select * From Test", cnn
rst.Close: Set rst = Nothing
cnn.Close: Set cnn = Nothing
