Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: MySQL ohne Komponenten
1. Feb 2008, 10:47
Das Prinzip ist immer das Gleiche:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Con: PMYSQL;
host, user, pass, db: PChar;
Row: PMySQL_Row;
Res: PMYSQL_RES;
query: string;
i: integer;
begin
host := ' localhost';
user := ' root';
pass := ' ';
db := ' apitest';
Con := mysql_init( nil);
if Assigned(Con) then
try
if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
begin
query := ' SHOW TABLES FROM apitest';
mysql_real_query(Con,PChar( query), Length( query));
Res := mysql_store_result(Con);
if Assigned(Res) then
for i := 0 to mysql_num_rows(Res) - 1 do
begin
Row := mysql_fetch_row(Res);
Memo1.Lines.Add(Row[0]);
end;
end
else
ShowMessage(mysql_error(Con));
finally
mysql_close(Con);
end;
end;
Ungetestet, sollte aber im Groben funktionieren.
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|
|
Zitat
|