首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

VB+ACCESS 在mian函数中出错,该怎么解决

2011-12-30 
VB+ACCESS 在mian函数中出错DimcnnAsADODB.ConnectionSubmain()cnn.ConnectionStringmicrosoft.Jet.OLED

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

热点排行