Добрый день!
Есть необходимость получить данные из базы данных MySQL внутри VPN сети.
Покопавшись в инете написал скрип, но он не подключается к базе -выдает ошибку:
"Сервер не существует или доступ запрещен"
Поднял локальную копия сервера - ошибка та же...
Кто знает, подскажите, пожалуйста - в скрипте ошибки нет?
вот код:
Есть необходимость получить данные из базы данных MySQL внутри VPN сети.
Покопавшись в инете написал скрип, но он не подключается к базе -выдает ошибку:
"Сервер не существует или доступ запрещен"
Поднял локальную копия сервера - ошибка та же...
Кто знает, подскажите, пожалуйста - в скрипте ошибки нет?
вот код:
Код |
---|
Sub Get_data() Dim cn As ADODB.connection Dim rs As ADODB.Recordset Const sql As String = "Provider=SQLOLEDB.1;Password=***;Persist SecurityInfo=True;" & _ "User ID=***;Initial Catalog=project;Data Source=127.0.0.1" Const sSql As String = "SELECT name FROM `customers`" Set cn = CreateObject("ADODB.Connection") cn.Open sql Set rs = cn.Execute(sSql, 3, 1) Rez = rs.GetRows rs.Close cn.Close Set cn = Nothing: Set rs = Nothing MsgBox Rez End Sub |