Question

vb用户定义类型未定义

在vb工程中建立了一个模块，定义如下数据库连接（数据库名称为xinxibiao.mdb，在工程文件夹下）企图在登陆模块下调用它输入用户名和密码登陆。程序如下：
Public adocon As New ADODB.connection '定义数据库连接
Public adors As New ADODB.recorddset '定义数据记录集对象
Public mystr As String '定义删除记录编号
Public Function cn() As ADODB.connection '定义一个数据库连接函数
Set cn = New ADODB.connection '重新声明数据源
cn.open "provider=micorsoft.jet.OLEDB.7.0;data source=" & App.Path & "\xinxibiao.mdb;persist security info=false" '连接数据库
End Function '结束自定义函数
Public Function esql(ByVal sql As String) As ADODB.Recordset '定义函数
Set adocon = New ADODB.connection '创建数据库连接
adocon.open cn '打开连接
Set adors = New ADODB.Recordset '声明recordset对象
adors.open Trim(sql), adocon, adopenkeyset, adlockoptimistic 'recordset打开数据表
setesql = adors '创建打开数据表
End Function '结束自定义函数
可是启动的时候提示如下，提示“用户定义类型为定义”，请问是什么意思，（我是vb小白，勿喷）谢谢

Answer 1

两处错误。

一、没有引用 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类型的变量，分别给各个字段赋值，然后将整个记录传递给打印它的过程，并将其保存至数据库中，对其执行计算，验证各字段的数值，等等。

Answer 2

还VB小白，能有如此代码？呵呵。问题在于两点：
第一，你未创建ADO控件，在工程-部件-添加Microsoft ADO Data Control 6.0，然后加载一个ADO控件到Form.
第二，你第一，二句代码写错了。尤其是Recordset ，你那多了个字母d.改为如下：
Public adocon As New ADODB.Connection '定义数据库连接
Public adors As New ADODB.Recordset '定义数据记录集对象

Answer 3

中文名字的那位搞错了⊙﹏⊙b adodc和adodb不一样（虽然本质差不多）。
很明显，你没有引用adodb，而且看图ADODB后面的对象名是小写，还有拼写错误，这应该是你自己打字打进去的，不是VB的自动完成，自动完成的名字会大写首字母。菜单 “工程→引用”，选中Microsoft ActiveX Data Objects 2.8 Library，不同的电脑版本号不一定一样。

Answer 4

只要更新这个包就行 Windows6.1-KB2640696-v3-x86.msu

网页链接