jetage
Кодокопатель | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
UncoNNecteD
А что тут рассказывать? Все очень просто, вот пример кода:
Цитата:
const
host = 'bla bla bla';
user = 'bla bla bla';
password = 'bla bla bla';
var
Link : mysql;
procedure DoSomething;
var
PResults: pmysql_res;
Row: mysql_row;
begin
mysql_connect(@Link, PChar(host), PChar(user), PChar(passwd));
if Link._net.last_errno = 0 then
begin
mysql_select_db(@Link, PChar(db));
if Link._net.last_errno = 0 then
begin
mysql_query(@Link, PChar('select * from sometable');
PResults:= mysql_store_result(@Link);
for i:= 1 to PResults^.row_count do
begin
Row := mysql_fetch_row(PResults)^;
ListBox1.Items.Add(StrPas(Row[0]));
end;
end;
end;
end;
|
Вышеописанное - очень сильно упрощенный кусок из реально работающей программы. Если будут вопросы пишите сюда/в ПМ или на мыло (в профиле).
----------
Замки.Ru - каталог замков производства России и стран СНГ |
|
Всего записей: 550 | Зарегистр. 03-03-2002 | Отправлено: 03:52 04-10-2002 | Исправлено: jetage, 03:53 04-10-2002 |
|
