ADODB.Connection 和 ADODB.Recordset - 未定义用户定义类型

VBA

在编程中，我们经常会使用ADODB.Connection和ADODB.Recordset这两个对象来连接数据库并执行相关操作。然而，有时候当我们尝试使用这些对象时，可能会遇到一个错误提示，即"未定义用户定义类型"。那么，让我们来探索一下这个错误的原因以及如何解决它。

首先，让我们了解一下ADODB.Connection和ADODB.Recordset这两个对象的作用。ADODB.Connection对象用于与数据库建立连接，而ADODB.Recordset对象则用于存储和操作从数据库中获取的数据。这两个对象是ADO（ActiveX Data Objects）库中的一部分，它们提供了一种访问数据库的标准方法。

当我们尝试使用这些对象时，有时会遇到"未定义用户定义类型"的错误。这通常是因为我们没有正确地引入ADODB库，或者我们的代码中缺少必要的引用。

为了解决这个问题，我们需要确保我们的代码正确引入了ADODB库。首先，我们需要在代码的开头添加以下语句：

VBA
'引入ADODB库
Option Explicit
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

在这段代码中，我们使用了Option Explicit语句来强制要求我们声明所有变量。接下来，我们使用了Dim语句来声明了一个名为conn的ADODB.Connection对象和一个名为rs的ADODB.Recordset对象。通过这样的引入，我们就可以使用这两个对象来连接数据库和执行相关操作了。

接下来，让我们来看一个案例代码，以帮助我们更好地理解如何使用ADODB.Connection和ADODB.Recordset对象。

VBA
Sub ConnectToDatabase()
    '打开数据库连接
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database.accdb"
    
    '执行SQL语句并将结果存储在Recordset对象中
    rs.Open "SELECT * FROM Customers", conn
    
    '遍历Recordset对象中的数据并输出
    Do Until rs.EOF
        Debug.Print rs.Fields("CustomerName")
        rs.MoveNext
    Loop
    
    '关闭Recordset对象和数据库连接
    rs.Close
    conn.Close
End Sub

在这个简单的案例代码中，我们首先使用conn.Open方法打开了一个名为Database.accdb的数据库连接。然后，我们使用rs.Open方法执行了一个SQL语句，并将查询结果存储在Recordset对象中。接下来，我们使用一个循环遍历了Recordset对象中的数据，并使用Debug.Print语句将每个客户的姓名输出到调试窗口中。最后，我们使用rs.Close方法关闭了Recordset对象，使用conn.Close方法关闭了数据库连接。

通过这个案例代码，我们可以清楚地看到如何使用ADODB.Connection和ADODB.Recordset对象来连接数据库并执行相关操作。当然，在实际应用中，我们可能会根据具体需求进行更复杂的操作，但基本的原理和用法是类似的。

在本文中，我们探讨了ADODB.Connection和ADODB.Recordset这两个对象的作用，并解释了当我们在代码中遇到"未定义用户定义类型"错误时可能的原因。我们还提供了一个简单的案例代码来演示如何正确使用这两个对象来连接数据库并执行相关操作。通过学习和掌握这些知识，我们可以更好地在编程中使用ADODB库来处理数据库操作。