Hi!
ich habe auch mal ein kleines Programm geschrieben, das sich mit einer
mySQL-
DB 4.1 verbindet; dazu verwendete ich eine
mysql.pas, die eine
Schnittstelle zur libmySQL.dll liefert.
(
mysql.pas wurde von Matthias Fichtner übersetzt, zu finden bei torry.net etc.)
Nachdem du diese
Unit eingebunden hast, kannst du folgendermaßen die
Verbindung herstellen:
Delphi-Quellcode:
{ liest die Einstellungen aus einer INI-Datei }
procedure TFormMain.Connect;
var
Ini: TIniFile;
begin
try
Ini:= TIniFile.Create(extractfilepath(Application.ExeName) + IniFilename);
with mySQLDB
do
begin
FMysql.Host := Ini.ReadString('
Connection', '
Host', '
localhost');
FMysql.port := Ini.ReadInteger('
Connection', '
Port', 3306);
FMysql.user := Ini.ReadString('
Connection', '
User', '
root');
FMysql.Db := Ini.ReadString('
Connection', '
DB', '
DemoDB');
FMysql.password := Ini.ReadString('
Connection', '
Password', '
');
FMysql.UnixSocket := '
';
FMysql.UseNamedPipe := false;
FMysql.UseSSL := false;
FMysql.Compress := true;
FMysql.TrySockets := false;
end;
finally
Ini.Free;
end;
end;
Dann eine Abfrage erstellen und das das Ergebnis wie gewünscht verarbeiten:
Delphi-Quellcode:
if FMysql.Connect then
begin
{ hier erfolgt die SELECT-Abfrage }
with FResult do
begin
{ Das Ergebnis in die Edit-Felder füllen }
edFirmenname.Text:= FieldByName('Firmenname').AsString;
{ und weitere Felder ... }
end;
end else
ShowMessage('Fehler beim Verbinden: '+FMysql.LastError);
Ich hatte damals auch ein Tutorial dafür im Internet gefunden,
weiß die Adresse aber leider nicht mehr. Suche einfach mal...
Gruß
Pfoto