Dim WithEvents adoPrimaryRS As Recordset 这是什么意思?没有这样定义的。
Dim Conn As ADODB.Connection Dim RecordSet As ADODB.RecordSet Set Conn=New ADODB.Connection Set RecordSet=New ADODB.Recordset With Conn .ConnectionString = "Provider=MSDASQL;Uid=sa;Password=;Data Source=数据源名称;" .Open End With 不过这种方法你还要培植ODBC数据源
Dim WithEvents adoPrimaryRS As ADODB.Recordset 换成: dim adoPrimaryRS as recordset set adoPrimaryRS=new adodb.recordset
上面发错了: Dim WithEvents adoPrimaryRS As Recordset 换成: dim adoPrimaryRS as adodb.recordset set adoPrimaryRS=new adodb.recordset
Dim RecordSet As ADODB.RecordSet
Set Conn=New ADODB.Connection
Set RecordSet=New ADODB.Recordset
With Conn
.ConnectionString = "Provider=MSDASQL;Uid=sa;Password=;Data Source=数据源名称;"
.Open
End With
不过这种方法你还要培植ODBC数据源
换成:
dim adoPrimaryRS as recordset
set adoPrimaryRS=new adodb.recordset
Dim WithEvents adoPrimaryRS As Recordset
换成:
dim adoPrimaryRS as adodb.recordset
set adoPrimaryRS=new adodb.recordset
楼上说的在窗体上加一个ADODC控件之后才可以对ADO对象进行定义的情况我也遇到过,虽然我说不清怎么回事,但我认为这很有用,因为要生成对数据库的连接首先要定义ADODC控件的属性,然后将那个被许多人称为“驱动”的东西拷下来,复制到自定义的ADO对象当中。
点击菜单“工程”-“引用”-选中“Microsoft ActiveX Data Object 2.x Library”,这以上就是一般所说的引用ADODB。在窗体上加一个ADODC控件之后,会自动引用ADODB,即使马上删掉ADODC控件,已经引用的ADODB也不会取消。你可以试试看,添加ADODC控件再后删掉它,然后在菜单“工程”-“引用”-取消“Microsoft ActiveX Data Object 2.x Library”,你会发现“用户定义类型未定义”的提示有出现了