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.