Question

我无法在SQL Server和VBA表单之间建立连接。它抛出了以下错误

编译器错误：用户定义的类型未定义

以下是包含服务器详细信息的代码：

Private Sub CommandButton1_Click()
  Dim cnn As ADODB.Connection
  Dim cnn As ADODB.Command
  Set cnn = New ADODB.Connection
  Set cnn = New ADODB.Command
  cnn.Open "Provider=sqloledb;" & _
           "Data Source=<IP>;" & _
           "Initial Catalog=<DB>;" & _
           "User Id=<USER>;" & _
           "Password=<PASS>"
  MsgBox "connection successful"
  cnn.Close

End Sub

Answer 1

您需要添加对Microsoft ActiveX Data Objects X.X Library的引用，其中X.X是ADO版本。

您将在第二行收到错误，因为您尝试重新声明cnn变量。

SQL Server和VBA之间的连接

1 个答案: