|
![]() |
#1 |
Участник
|
Создаём две переменные Автоматион. Miscrosoft ActiveX Data Object X.X.Connection. и Miscrosoft ActiveX Data Object X.X.Recordset. А потом создаем код примерно вот так:
mydb.Open( 'DSN=mysql_odbc_dsn' ); myrs.CacheSize := 100; myrs.Open( 'SELECT user FROM info','DSN=mysql_odbc_dsn' ); myrs.MoveFirst; IF NOT myrs.EOF THEN REPEAT Name := myrs.Fields.Item('name').Value; myrs.MoveNext; MESSAGE('%1 ',Name); UNTIL myrs.EOF; |
|