Ошибка в VBA: `[Microsoft] [ODBC Manager] Не найдено имя источника данных и не указан драйвер по умолчанию

Question

Я создаю макрос для добавления данных из моего листа Excel в базу данных MySQL

Но когда я запускаю макрос, я получаю сообщение об ошибке:

[Microsoft][ODBC Manager] Data source name not found and no default driver specified

Код:

Sub UpdateMySQLDatabasePHP()

' For detailed description visit http://www.vbaexcel.eu/

Dim Cn As ADODB.Connection
Dim Server_Name As String
Dim Database_Name As String
Dim User_ID As String
Dim Password As String
Dim SQLStr As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Server_Name = Range("e4").Value             ' IP number or servername
Database_Name = Range("e1").Value         ' Name of database
User_ID = Range("h1").Value                      'id user or username
Password = Range("e3").Value                    'Password
Tabellen = Range("e2").Value                     ' Name of table to write to

rad = 0
While Range("a6").Offset(rad, 0).Value <> tom
TextStrang = tom
kolumn = 0
While Range("A5").Offset(0, kolumn).Value <> tom
    If kolumn = 0 Then TextStrang = TextStrang & Cells(5, 1) & " = '" & Cells(6 + rad, 1)
    If kolumn <> 0 Then TextStrang = TextStrang & "', " & Cells(5, 1 + kolumn) & " = '" & Cells(6 + rad, 1 + kolumn)
    kolumn = kolumn + 1
Wend



TextStrang = TextStrang & "'"
field2 = "cid"
field1 = "bid"
table1 = "MMbanner"
SQLStr = "UPDATE " & Tabellen & " SET " & TextStrang & "WHERE " & Cells(5, 1) & " = '" & Cells(6 + rad, 1) & "'"
Set Cn = New ADODB.Connection
Cn.Open "Driver={MySQL ODBC 3.51 Driver};Server=" & Server_Name & ";Database=" & Database_Name & _
";Uid=" & User_ID & ";Pwd=" & Password & ";"

Cn.Execute SQLStr
rad = rad + 1
Wend
Set rs = Nothing
Cn.Close
Set Cn = Nothing

End Sub

Answer 1

Похоже, что-то не так со строкой соединения. у вас установлен драйвер mySQL odbc?

Самый простой способ, который я нашел для проверки соединений, - это создать текстовый файл «New Text Document.txt» и переименовать расширение файла в udl, чтобы в итоге вы получили «New Text Document.udl», а затем открыть файл. Он должен показать вам волшебника Datalink. Затем вы можете пройти через мастера, чтобы создать и проверить соединение. чтобы получить строку подключения. либо откройте файл «.udl» с помощью блокнота, либо измените расширение обратно на «.txt» и откройте его с помощью блокнота.