[tag]: Подключение к хостеру на сервер MySQL (конкретно ukraine.com.ua) отдалено своей программой на Visual Basic 6
Предварительно установил "sql конектор" mysql-connector-odbc-5.2.5-win32.msi
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Dim Cnn As adodb.Connection
Dim cmdCommand As New adodb.Command
Dim strConn As String
Dim cols, date_time, vals As String
Set Cnn = New adodb.Connection
Set Rec = New adodb.Recordset
Cnn.open "DRIVER={MySQL ODBC 5.2 Unicode Driver};SERVER=91.206.200.109;PORT=3306;DATABASE=ВАША_БАЗА;UID=ЛОГИН;PWD=ПАРОЛЬ;OPTION=3;"
With cmdCommand
.ActiveConnection = Cnn
.CommandText = "SELECT * FROM `reg4`;"
.CommandType = adCmdText
End With
With Rec
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With
Rec.open cmdCommand
Do While Not Rec.EOF
Rec.MoveNext
Loop
Set Form25.DataGrid1.DataSource = Rec.Clone
Rec.Close
Cnn.Close
