两处错误。
一、没有引用 Microsoft Word X.0 Object Library。
二、二句代码写错了
Recordset多了个字母d.改为如下:
Public adocon As New ADODB.Connection '定义数据库连接
Public adors As New ADODB.Recordset '定义数据记录集对象
注意事项
用户定义类型是一个使相关数据项成组的强大工具。例如,假设此处要定义名为 udtAccount 的用户定义类型:
Public Type udtAccount
Number As Long
Type As Byte
CustomerName As String
Balance As Double
End Type
可以声明一个 udtAccount类型的变量,分别给各个字段赋值,然后将整个记录传递给打印它的过程,并将其保存至数据库中,对其执行计算,验证各字段的数值,等等。
还VB小白,能有如此代码?呵呵。问题在于两点:
第一,你未创建ADO控件,在工程-部件-添加Microsoft ADO Data Control 6.0,然后加载一个ADO控件到Form.
第二,你第一,二句代码写错了。尤其是Recordset ,你那多了个字母d.改为如下:
Public adocon As New ADODB.Connection '定义数据库连接
Public adors As New ADODB.Recordset '定义数据记录集对象
中文名字的那位搞错了⊙﹏⊙b adodc和adodb不一样(虽然本质差不多)。
很明显,你没有引用adodb,而且看图ADODB后面的对象名是小写,还有拼写错误,这应该是你自己打字打进去的,不是VB的自动完成,自动完成的名字会大写首字母。菜单 “工程→引用”,选中Microsoft ActiveX Data Objects 2.8 Library,不同的电脑版本号不一定一样。
只要更新这个包就行 Windows6.1-KB2640696-v3-x86.msu
网页链接