Question

我想出了很多奇怪的技巧，可以用来连接到简单的SQL Server或SAP数据库等。但是，无论我怎么努力，我都无法创建odbc对象。

我可以将odbc数据库转换为Excel，但这不是我想要的。我想使用INSERT和DELETE SQL查询。

我发现的最简单的代码行是：

Private Sub ConnectDB()
    Dim oConn As ADODB.Connection

    Set oConn = New ADODB.Connection
    oConn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & "SERVER=******.****.**;" & "DATABASE=testServer;" & "USER=Mikk;" & "PASSWORD=**;" & "Option=3"
End Sub

我在ActiveX数据对象2.8库的复选框中打了勾

我收到运行时错误'-2147467259（80004005）自动化错误未指定错误

Answer 1

金钱解决了问题：）

我没有使用正确的数据库名称，也没有使用DSN。另外，使用特定的驱动程序也不是一个好主意。甚至不需要服务器地址。

这是解决方案：

Sub test_connection()
  Dim oConn As New ADODB.Connection
  Dim strUsername As String
  Dim strPassword As String
  Dim strDatabase As String

  strUsername = "Mikk"
  strPassword = "****"
  strDatabase = "test"

  oConn.Open "DSN=testServer;" & _
    "Database=" & strDatabase & ";" & _
    "Uid=" & strUsername & ";" & _
    "Pwd=" & strPassword

  oConn.Close
  Set oConn = Nothing
End Sub

如何使用Excel VBS连接到odcb数据库

1 个答案: