Как подсоединиться к MySQL

Perhaps you have already seen the uses clause. You may download mySQL.pas from www.fichtner.net/delphi

uses mySQL;

procedure Connect;

var

 myServer: PMysql;

 Tables: PMYSQL_RES;

 TableRows: my_ulonglong;

 Table: PMYSQL_ROW;

begin

 myServer := mysql_init(nil);

 if myServer <> nil then

 begin

  if mysql_options(myServer, MYSQL_OPT_CONNECT_TIMEOUT, '30') = 0 then

  begin

  if mysql_real_connect(myServer, 'host', 'user', 'password', 'database', 3306,

  nil, CLIENT_COMPRESS) <> nil then

  begin

  Tables := mysql_list_tables(myServer, nil);

  if Tables <> nil then

  begin

  TableRows := mysql_num_rows(Tables);

  while TableRows > 0 do

  begin

  Table := mysql_fetch_row(Tables);

  Tabelle := Table[0];

  Dec(TableRows);

  end;

  end;

  end;

  end;

 end;

end;

Взято с Delphi Knowledge Base: http://www.baltsoft.com/

Отправить комментарий

Проверка
Антиспам проверка
Image CAPTCHA
...