Daten aus einem MySQL Server in Editfeld ausgeben

[Pfoto]

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