Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String

'connect to MySQL server using MySQL ODBC 3.51 Driver
Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& " DATABASE=test;" _
& "UID=venu;PWD=venu; OPTION=35"
conn.Open
'create table
conn.Execute "DROP TABLE IF EXISTS my_ado"
conn.Execute "CREATE TABLE my_ado(id int not null primary key," _
& "name varchar(20)," _
& "txt text, dt date, tm time, ts timestamp)"
'direct insert
conn.Execute "INSERT INTO my_ado(id,name,txt) values(1,100,'venu')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(2,200,'MySQL')"
conn.Execute "INSERT INTO my_ado(id,name,txt) values(3,300,'Delete')"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
'fetch the initial table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Initial my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.Name,
Next
Debug.Print
Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
'rs insert
rs.Open "select * from my_ado", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!Name = "Monty"
rs!txt = "Insert row"
rs.Update
rs.Close
'rs update
rs.Open "SELECT * FROM my_ado"
rs!Name = "update"
rs!txt = "updated-row"
rs.Update
rs.Close
'rs update second time..
rs.Open "SELECT * FROM my_ado"
rs!Name = "update"
rs!txt = "updated-second-time"
rs.Update
rs.Close
'rs delete
rs.Open "SELECT * FROM my_ado"
rs.MoveNext
rs.MoveNext
rs.Delete
rs.Close
'fetch the updated table ..
rs.Open "SELECT * FROM my_ado", conn
Debug.Print rs.RecordCount
rs.MoveFirst
Debug.Print String(50, "-") & "Updated my_ado Result Set " & String(50, "-")
For Each fld In rs.Fields
Debug.Print fld.Name,
Next
Debug.Print
Do Until rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value,
Next
rs.MoveNext
Debug.Print
Loop
rs.Close
conn.Close
End Sub



только ...

говорят вот так

Нашёл хорошую ссылку
http://www.rldp.ru/mysql/myodbc/myodbc2.htm

но не могу добавить дрова , используемые по умолчанию - хоть тресни - чё не так??????????

ААААААА вот

ADO это очень удобная технология. Настраиваешь udl драйвер, цепляешься и вперед. И если у вас MS SQL сервер БД, то дальше можете не читать. Всё цепляется безо всяких проблем. А мне надо было зацепить MySQL. Тоже ничего сложного, но шагов чуть по больше. Для начала - C++ Builder 6 имеет специальный компонент для работы с мускулем - dbExpress, но я не разобрался в нем. Всё уперлось в Vendor, который работает посредством libmysql.dll. Но какие я ему библиотеки не подсовывал, подключатся к четвертой версии MySQL он не хотел. Проверил на пятой - та же беда. Теперь о том, что есть необходимо. Идём на http://dev.mysql.com/downloads/, берем коннектор MySQL Connector/ODBC 3.51. Я не знаю почему, но коннектор пятой версии не так работает. Устанавливаем и получаем драйвер доступа до MySQL. Идем в Панель управления(Control Panel) -> Администрирование(Administrative tools) -> Источники данных ODBC(Data Sources). Открываем вкладку System DSN и жмем Add(Добавить). Там выбираем наш устанновленный коннектор и жмем ОК.

Теперь о том, что есть необходимо. Идём на http://dev.mysql.com/downloads/, берем коннектор MySQL Connector/ODBC 3.51. Я не знаю почему, но коннектор пятой версии не так работает.

Устанавливаем и получаем драйвер доступа до MySQL
А как его установить - если он не setup.exe

Спасибо - беру

ВО БЛИН ПРИКОЛ НА ПРИГЛАШЕНИЕ ВВЕСТИ КОМАНДУ

Я ЕМУ РУССКИМ ЯЗЫКОМ
SHOW DATABASES;

А ОН СНЕ ВЫ В СИНТАКСИСЕ ПОЛНЫЙ НУЛЬ
Вот сволыга
А говорят к регистру букв он не чувствителен.....
Стоило спросить вот так:
show databases;

Как сразу раскололся.........

Естественно в конкретной директории.
А распространять - тут несколько путей.
1.Либо не распространять. Используется для приложений, при которых все работают с одной базой( пример веб приложения)
2.Либо каждому устанавливать свой сервер с базой.
3.Репликации .
4. что-нибудь еще.

А какие волшебные слова нужны шаману, чтоба серверу растолковать - где база лежит?

СУТНИК

И чет тебе тут не ясно. Ты бы хоть мессагу перевел, что ли. У тебю все создано и подглючено

А в комбобоксе database есть твоя база?
Если нет, то средствами администрирования нужно подключить. Как это сделать в скл сервере я знаю, а вот с мускулом никогда не работал. Так, что увы...

Наконец то после двух дней бошка о стенку

http://www.kb.mista.ru/article.php?id=236