Четверг, 10 Января 2019 г. 17:54
+ в цитатник
Приветствую всех.
Задача сделать базу на MySql + Access2003
На сервере MySql завел базу и сделал в базе табличку.
SELECT id2, txt2 FROM pww2_schema.new_table;
Задача вывести в табличую форму ее содержание.
Сделал подключение к базе
Dim oConn As Object
Set oConn = New ADODB.Connection
oConn.Open "DRIVER={MySQL ODBC 8.0 Unicode Driver};" & _
"SERVER=127.0.0.1;" & _
"DATABASE=pww2_schema;" & _
"UID=root;" & _
"PASSWORD=pww41900;" & _
"PORT:3306;" & _
"Option=3;"
If oConn.State = adStateOpen Then
'MsgBox "Ok connected!"
Else
MsgBox "Error - not connect... "
End If
К серверу могу обратиться и получить записи вот так
Dim cmd As ADODB.Command 'переменная в которой будет запрос
Set cmd = New ADODB.Command
Dim rec As ADODB.Recordset 'переменная в которой будет результат запроса
Set rec = New ADODB.Recordset
Set cmd.ActiveConnection = oConn 'указываем соединение см.выше
cmd.CommandText = "SELECT * FROM pww2_schema.new_table;" 'запрос к БД
cmd.CommandType = adCmdText
cmd.Execute
Set rec.ActiveConnection = oConn
rec.Open cmd
Debug.Print (rec.Fields("id2").Value)
'потом закрыть и прибить rec, cmd, oConn
А дальше не получается отобразить содержание таблицы в форму.
Побывал и mdb, и adp форматы.
В интернете находил решения на DAO, но не проверял их (не знаком с DAO близко).
Отзовитесь кто знает решение подобной проблемы.
https://www.sql.ru/forum/1307604/access-mysql
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-