[Gelöst] Prüfen ob es eine Datenbank schon gibt?

[pluto]

Hallo

In meiner SQL Anwendung würde ich gerne prüfen ob es eine Datenbank schon gibt oder eben nicht.

Sollte die Datenbank noch nicht geben, soll sie erstellt werden mit den Entsprechenden Tabellen:

Code: Alles auswählen

 
procedure TPLForumV1.CreateDB;
var
  str:string;
begin
  MariaDB.AConnection.DatabaseName:='';
  MariaDB.AConnection.Open;
  str:='CREATE DATABASE IF NOT EXISTS '+DBName;
 
  MariaDB.AConnection.ExecuteDirect(str);
  MariaDB.AConnection.ExecuteDirect('use ' + DBName); // Tipp von Socke in einem anderen Thread.
  MariaDB.AConnection.DatabaseName:=DBName;
 
  // Ist leider Wirkungslos. Da es die DB natürlich schon gibt, weil sie vorher schon erstellt wurde, wenn es sie noch nicht gab.
  str:='SHOW DATABASES LIKE '''+DBName+''';';
  MariaDB.Query.SQL.Text:=str;
  MariaDB.Query.ExecSQL;
  MariaDB.Query.Open;
 
  MariaDB.Query.SQL.Text:='grant all on '+DBName+'.* to plutodb@localhost;';
  MariaDB.Query.ExecSQL;
 
  MariaDB.ATransaction.Commit;
  MessageTable.CreateTable();
  PostTable.CreateTable();
end; // TPLForumV1.CreateDB
 

Dieser Code scheint ganz gut zu Funktionieren.
Das Problem ist halt dabei, dass ich nicht wirklich prüfen kann ob es die DB schon gibt, darum musste ich IF NOT EXISTS einsetzten, auch beim erstellen der Tabellen.

Somit ist natürlich " str:='SHOW DATABASES LIKE '''+DBName+''';';" wirkungslos.
Wie kann man das besser lösen?

Mein Ziel ist es:
Prüfen gibt es die Datenbank schon? Wenn ja, wähle sie aus. Mehr nicht. Wenn nicht, erstelle sie, wähle sie aus und erstelle die Tabellen. Derzeit sind es nur zwei, später kommen weitere Tabellen hinzu.

[Socke]

Du verbindest dich zuerst mit der System-Datenbank mysql.
Dort solltest du natürlich keine Tabellen anlegen, aber die Überprüfung auf Datenbanken, User etc. ist dort erlaubt.

[pluto]

Dort solltest du natürlich keine Tabellen anlegen, aber die Überprüfung auf Datenbanken, User etc. ist dort erlaubt.

Du meinst ich sollte einfach die Prüfung in "MariaDB.AConnection.ExecuteDirect" schreiben?
Aber wie bekomme ich das Ergebnis zurück?

Edit1:
Ich glaube ich weiß was du meinst, ich teste es mal.

[pluto]

Ich habe es jetzt so: Er meint aber die Datenbank(mysql findet er, aber meine DB nicht) nicht zu finden, da es sie natürlich noch nicht gibt.:

Code: Alles auswählen

procedure TPLForumV1.CreateDB;
var
  str:string;
begin
  MariaDB.AConnection.DatabaseName:='mysql';
  MariaDB.AConnection.ExecuteDirect('use mysql');
  MariaDB.AConnection.Open;
 
  str:='SHOW DATABASES LIKE '''+DBName+''';';
  MariaDB.Query.SQL.Text:=str;
  MariaDB.Query.ExecSQL;
  MariaDB.Query.Open;
 
  writeln(MariaDB.Query.Fields.Count);
  if MariaDB.Query.Fields.Count = 0 then begin
    str:='CREATE DATABASE IF NOT EXISTS '+DBName;
 
    MariaDB.AConnection.ExecuteDirect(str);
 
    MariaDB.Query.SQL.Text:='grant all on '+DBName+'.* to plutodb@localhost;';
    MariaDB.Query.ExecSQL;
 
    MariaDB.ATransaction.Commit;
    MessageTable.CreateTable();
    PostTable.CreateTable();
  end;
 
  MariaDB.AConnection.ExecuteDirect('use ' + DBName);
  MariaDB.AConnection.DatabaseName:=DBName;
 
end; // TPLForumV1.CreateDB 

Edit01: OK jetzt geht es: ich musste scheinbar nur MariaDB.Query.RecordCount verwenden in der IF Anweisung und nicht "MariaDB.Query.Fields.Count"

[marcov]

Ungetestet:

Code: Alles auswählen

 
  MariaDB.AConnection.Open;
  mariadb.gettablenames(astringlist);
  if astringlist.indexof(dbname)<>-1 then
   writeln('existiert');