Все привет.
Тема наверное поднималась уже, но найти не смог.

Не могу разобраться как сделать экспорт их Excel в MYSQL на VBA.
Т.е. инсерт в табличку используя ODBC коннектор MySQl

Shocker.Pro,

именно как работать с ODBC коннектором

Konst_One,

это я понимаю, пытаюсь так:

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim strSQL2 As String

cnn.ConnectionString = "Provider=MySQL ODBC 5.1 Driver;Data Provider=;SERVER=192;DATABASE=base1;UID=us1;PWD=us1_psd"
cnn.Open

cnn.Close


не работает, Data Provider что нужно указать для mysql?

Konst_One,

Спасибо, то что нужно.

Не могу понять почему не работает

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
Dim strSQL2 As String

cnn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=ser1;Port=3306;Database=base1;User=r; Password=r_psd;Option=3;"
cnn.Open
cnn.Execute ("drop table if exists base1.temp1;")
strSQL2 = "CREATE TABLE IF NOT EXISTS base1.temp1(" + _
"field1 VARCHAR(255) DEFAULT NULL," + _
"field2 VARCHAR(255) DEFAULT NULL)" + _
"ENGINE = MYISAM" + _
"AVG_ROW_LENGTH = 104" + _
"CHARACTER SET cp1251" + _
"COLLATE cp1251_general_ci;"
cnn.Execute (strSQL2) 'здесь не работает




Ошибка Run-time error '-2147217900 (80040e14)'

Konst_One,

)) что то я заработался, все ж понятно,
сорри...