Zitat von
DeddyH:
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 := '
projet';
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 tblplayer';
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);
Showmessage(Row[0]);
end;
end
else
ShowMessage(mysql_error(Con));
finally
mysql_close(Con);
end;
end;
Ungetestet, sollte aber im Groben funktionieren.
Hi,
Also vor langer Zeit habe ich bereits einmal mit dieser
Unit gearbeitet und hatte keine Probleme damit.
Für ein anderes Projet möchte ich wieder auf eine
MySQl-
DB zugreifen doch ich bekomme bereits beim
Befehl mysql_init(nil) eine
Access Violation Felhermeldung. Weiß einer woran dies liegen kann?
mfg,
Jan