Как подключиться к базе данных odcb с помощью Excel VBS - PullRequest
Новая
       35

Как подключиться к базе данных odcb с помощью Excel VBS

0 голосов
/ 21 ноября 2018

спасибо Google Я выяснил много странных уловок, которые вы можете сделать, чтобы подключиться к простому серверу SQL или базе данных SAP и так далее.Однако, как бы я ни старался, я не могу создать объект odbc.

Я могу вытащить базу данных odbc, чтобы преуспеть, но это не то, что я хочу сделать.Я хочу использовать SQL-запросы INSERT и DELETE.

Простейшая строка кодов, которую я нашел, была следующей: 

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) Ошибка автоматизации Неуказанная ошибка

1 Ответ

0 голосов
/ 19 декабря 2018

Деньги решают проблемы:)

Я не использовал правильное имя базы данных и не использовал 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
...