Zugriff auf MySQL

[Schorschi5566]

Hallo Himitsu,

kann gut sein, dass mein Wrapper nicht gerade vollständig ist.

In 95% aller Fälle brauche ich sowas:

Delphi-Quellcode:

unit Unit1;

interface

uses
  MySQL;

implementation

procedure Test;
var
  bEx, bUseSSL: Boolean;
  sqlClient : TMySQLClient;
  sqlResult : TMySQLResult;
  sName : String;
  iPort, iNumber : Integer;

begin
  sqlClient := TMysqlClient.Create;
  iPort := 3306;
  bUseSSL := True;
  bEx := sqlClient.connect_db('DB', 'User', 'Passwort', 'Host', iPort, bUseSSL);
  if bEx then
  begin
    sqlResult := sqlClient.query('SELECT * FROM TEST WHERE X > 5', True, bEx);
    if bEx then
    begin
      with sqlResult do
      begin
        First;
        while not Eof do
        begin
          sName := FieldByName('Name').AsString;
          iNumber := FieldByName('Number').AsInteger;
          Next;
        end;
        Free;
      end;
    end;
    sqlClient.disconnect_db;
    sqlClient.Free;
  end;
end;

end.

Das funktioniert soweit und ich muss mich nicht weiter um das ganze "Außenrum" der mysql.pas kümmern.

TMyRow brauche ich nur intern. Nach "außen" sind es wirklich nur 2 Klassen.

Mit FieldByIndex, FieldByName, FieldValueByName konnte ich bisher alle Fälle abdecken.

Mit TMyBinding und TMyStatement habe ich bis jetzt noch nichts gemacht. Wozu ist das? Stored Procedures?


Grüße,
Uwe