SQL服务器和VBA之间的连接

问题描述：

我无法建立SQL服务器和VBA表单之间的连接。它抛出以下错误SQL服务器和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

请勿在公开信息中包含ip/user/password信息。编辑删除。 – 2011-04-14 15:59:51

你有没有注意到你正在测量'cnn'两次？或者它只是在这里打字错了吗？ – Oneide 2011-04-14 16:22:19

答

您需要添加一个引用Microsoft ActiveX Data Objects X.X Library XX是ADO版。

因为您试图重新声明cnn变量，您将在第二行发现错误。

SQL服务器和VBA之间的连接

相关推荐