VB+ACCESS 在mian函数中出错
Dim cnn As ADODB.Connection
Sub main()
cnn.ConnectionString = "microsoft.Jet.OLEDB.4.0;Data Source " & _
"=c:\Telmanage.mdb; "
cnn.Mode = adModeReadWrite
cnn.Open
End Sub
以上为问题代码,运行出现
Run-time error '91 ':
Object variable or with block variable not set.
意思上好像是有变量没有赋值,是什么变量呢? 为什么我的ADO200.chm中,我查不到Data Source的意思。
我看其他人的代码里有Persist Security Info = TRUE,这个在帮助文档里也查不到呐?
最后如果我的程序从Sub Main()开始,在打开数据库之后,是不是在整个程序的所有窗口中对数据库操作都不要再打开了呐?
如果不是程序从窗口开始,怎么才能只要打开一次数据库。
[解决办法]
Sub main()
set cnn = new ADODB.Connection
cnn.ConnectionString = "microsoft.Jet.OLEDB.4.0;Data Source " & _
"=c:\Telmanage.mdb; "
cnn.Mode = adModeReadWrite
cnn.Open
End Sub
[解决办法]
是的,一定要new的
要不,你Dim cnn As new ADODB.Connection也行
[解决办法]
Dim cnn As new ADODB.Connection
[解决办法]
给object赋值一定要用set