Home » Tutorials » Datenbanken » MySQL direct

MySQL direct

Datenbankfunktionen

Die MySQL direct-Units bieten einige Funktionen zur Steuerung der Datenbankverbindung:

Reconnect

Um eine getrennte Verbindung mit den bereits festgelegten Eigenschaften erneut aufzubauen, wird die Methode Reconnect verwendet:

procedure TForm1.Button4Click(Sender: TObject);
begin
 if FMysql.reconnect then
   ShowMessage('Verbindung wieder aufgebaut')
 else
   ShowMessage('Verbindungsaufbau fehlgeschlagen: '+FMysql.LastError);
end;

Ping

Über einen Ping kann festgestellt werden, ob der Datenbankserver noch reagiert:

procedure TForm1.Button13Click(Sender: TObject);
begin
  if FMysql.ping then
    ShowMessage('Ping: OK')
  else
    ShowMessage('Ping fehlgeschlagen: '+FMysql.LastError);
end;

Datenbank auswählen

Will man mit einer anderen Datenbank, die sich auf dem gleichen MySQL-Server befindet, arbeiten, muss man sie auswählen:

procedure TForm1.Button5Click(Sender: TObject);
var db: string;
begin
  db := InputBox('Geben Sie einen Datenbank-Namen ein',
  'Welche DB auswählen','');
  if FMysql.select_db(db) then
    ShowMessage('Select db: OK')
  else
    ShowMessage('Select db fehlgeschlagen: '+FMysql.LastError);
end;

Datenbank erzeugen

Natürlich ist es auch möglich, eine neue Datenbank anzulegen:

procedure TForm1.Button6Click(Sender: TObject);
var db: string;
begin
  db := InputBox('Geben Sie einen Datenbank-Namen ein',
  'Welche DB erzeugt werden soll','');
  if FMysql.create_db(db) then
    ShowMessage('Create db: OK')
  else
    ShowMessage('Create db fehlgeschlagen: '+FMysql.LastError);
end;

Datenbank löschen

Vorhandene Datenbanken können auch gelöscht werden:

procedure TForm1.Button7Click(Sender: TObject);
var db: string;
begin
  db := InputBox('Geben Sie einen Datenbanknamen ein',
  'Welche DB ist zu löschen','');
  if FMysql.drop_db(db) then
    ShowMessage('Drop db: OK')
  else
    ShowMessage('Drop db fehlgeschlagen: '+FMysql.LastError);
end;

User wechseln

Um den User, der am Datenbankserver angemeldet ist, zu wechseln, werden Benutzername und Passwort benötigt:

procedure TForm1.Button8Click(Sender: TObject);
var user, pass, db: string;
begin
  user := InputBox('Geben Sie einen User-Namen ein','User-Name','');
  pass := InputBox('Geben Sie ein Passwort ein','Passwort','');
  db := InputBox('Geben Sie einen DB-Namen ein',
  'Welche DB ist auszuwählen','');
  if FMysql.change_user(user, pass, db) then
    ShowMessage('Userwechsel: OK')
  else
    ShowMessage('Userwechsel fehlgeschlagen: '+FMysql.LastError);
end;

Statistik

Eine Statistik der Datenbankverbindung lässt sich über stat abfragen:

procedure TForm1.Button20Click(Sender: TObject);
begin
  ShowMessage('Stat: '+FMysql.stat);
end;

Weitere Methoden sind in den MySQL direct-Units zu finden.