Почему строка подключения работает только на компьютере разработчика? - PullRequest
0 голосов
/ 14 октября 2018

Я написал 2 программы, одну на VB6 и одну на VBA для Excel.Вызов соединения MySQL прекрасно работает как на компьютере разработчика.Попытка запустить любую программу на любой другой машине не удалась.Код выглядит следующим образом:

Private Sub cmdErrors_Click()
On Error GoTo remote_err

Set myCon = New ADODB.Connection
strConnect = "Driver={MySQL ODBC 5.3 ANSI 
Driver};Server=xxx.xxx.xxx.xxx;Port=3306;Database=cl22-budget;User=username; 
Password=password;Option=3;"

myCon.ConnectionString = strConnect
myCon.Open
MsgBox "Connected"
myCon.Close
Set myCon = Nothing
Exit Sub

remote_err:
Dim ErrorCollection As Variant
Dim ErrLoop As Error
Dim strError As String
Dim iCounter As Integer

On Error Resume Next

iCounter = 1
strError = ""
Set ErrorCollection = myCon.Errors
For Each ErrLoop In ErrorCollection
With ErrLoop
   strError = "error # " & iCounter & vbCrLf
   strError = strError & "ADO Error # " & .Number & vbCrLf
   strError = strError & " Description " & .Description & vbCrLf
   strError = strError & " Source " & .Source & vbCrLf
   MsgBox strError
   iCounter = iCounter + 1
End With
Next
End Sub

1 Ответ

0 голосов
/ 18 октября 2018

Установите драйвер ODBC и создайте DSN для вашей БД, и там он запросит адрес сервера, там вы упомянете ip вашего сервера, после чего он будет работать.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...