2011-04-14 41 views
0

我無法建立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 
+0

請勿在公開信息中包含ip/user/password信息。編輯刪除。 – 2011-04-14 15:59:51

+1

你有沒有注意到你正在測量'cnn'兩次?或者它只是在這裏打字錯了嗎? – Oneide 2011-04-14 16:22:19

回答

4

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

因爲您試圖重新聲明cnn變量,您將在第二行發現錯誤。