CREATE DATABASE datenbank [GELÖST]

[Swirl]

Habe für die Datenbankcracks eine - wie ich meine - relativ einfache Frage.
Wie erzeuge ich eine Datenbank innerhalb eines Programms? Normalerweise
existiert die zu benutzende Datenbank ja bereits; ich habe sie eingangs auf
der Kommandozeile erzeugt, kann dann unter Lazarus in der MySQLConnection
den Namen eintragen und dann Connected auf True setzen.

Was mache ich aber, wenn ich die Datenbank erst im Programm erzeugen
möchte?

Besten Dank im Voraus,
Michael

[LazarusFuchs]

Für Firebird und Zeos gibt es Tutorials dazu.

https://lazarus.intern.es/tutorial_fire ... eos_1.html
https://lazarus.intern.es/tutorial_fire ... eos_2.html

Dort wird das Anlegen im Programm erläutert. Mit anderen Datenbanken funktionieren die dort angeführten SQL-Dateien genauso. Man muss herausfinden, wo diese SQL-Dateien ausgeführt werden können. Im Bespiel 2 wird die EXE-Datei mitgeliefert, so dass man damit experimentieren kann. Datenbank braucht nicht installiert werden, die wird als Embedded mitgeliefert.

[Swirl]

Besten Dank LazarusFuchs für die Prompte Antwort.

Ich kann aber in den zwei Kapiteln leider keine Hinweise zur Lösung meines Problems finden.
Ich möchte jetzt auch die Zeos-Komponenten nicht installieren. Und zu Firebird: ich habe
vergessen anzumerken, dass ich mit MySQL arbeite.

Falls jemand mir einen Hinweis in Verbindung mit der Komponente TMySQLConnection
geben kann, wäre ich sehr dankbar.

Gruß,
Michael

[MmVisual]

Man muss sich mit Host/Port/User/Password beim MySQL anmelden. Anschließend kann man mit einer Query den Befehl "CREATE DATABASE <Name der Datenbank>" ausführen. Danach kann man die Tabellen erzeugen mit "CREATE TABLE ...".
Um eine Datenbank erzeugen zu können muss der User die entsprechenden Rechte besitzen, die man zuvor beim MySQL einstellen muss.

[Swirl]

Hallo MmVisual,

damit kommen wir der Sache schon näher.
wie setze ich aber...

Man muss sich mit Host/Port/User/Password beim MySQL anmelden

...um?

Vielleicht ein/zwei Zeilen Code zu meinem Verständnis?

Gruß,
Michael

[MmVisual]

Das macht man in der Komponente:

Bild1.png (71.48 KiB) 2987 mal betrachtet

Ich selber nutze Zeos, aber mit SQLDB geht das sicher auch / identisch.

Dann so etwas z.B.:

Code: Alles auswählen

Procedure TForm1.FormCreate(Sender: TObject);
Begin
  MySQL80Connection1.ExecuteDirect('CREATE DATABASE ...');
end; 

[Swirl]

Ja, aber wie?

solange ich in der Connection-Komponente den Datenbanknamen nicht eingetragen habe
(da er zur Designzeit ja noch nicht existiert), kann ich sie nicht Connected True schalten.

Und eine SQL-Statement kann ich somit auch noch nicht absetzen.

Ein paar Zeilen Code wären schon nett

Gruß,
Michael

[MmVisual]

Es ist schon ein paar Jahre her, ja stimmt, man braucht eine Datenbank um sich überhaupt verbinden zu können. Das sollte dann gehen:

Code: Alles auswählen

      dbTest.Database := 'information_schema';
      dbTest.Catalog := dbTest.Database;
      q.SQL.Text := 'CREATE DATABASE IF NOT EXISTS ' + edDatabase.Text;
      q.SQL.Add(' DEFAULT CHARACTER SET utf8 COLLATE utf8_unicode_ci');

Die Eigenschaft "Catalog" ist etwas was Zeos braucht.

[Swirl]

Hallo,

habe in der Connection von HostName bis UserName alles eingetragen.
Dann mit ExecuteDirect versucht, die Datenbank anzulegen. Leider...

Database connect string (DatabaseName) not filled in!.

Und wie gesagt: ZEOS nutze ich nicht.

Also leider kein Erfolg

[MmVisual]

'information_schema' als DatabaseName geht nicht?

[Swirl]

Hallo MmVisual,

'information_schema' als DatabaseName geht nicht?

Das war's dann! information_schema kann wie jede andere Datenbank
zum Connecten genommen werden. Ich nutze dafür db_dummy, die
ich vorher leer angelegt habe. Mit der aktiven Verbindung zu db_dummy
kann ich dann das gewünschte CREATE DATABASE ... ausführen.

Code: Alles auswählen

  MySQL80Connection1.DatabaseName := 'db_dummy'; // Rest in der Komponente festgelegt
  MySQL80Connection1.Connected:=True;
  MySQL80Connection1.ExecuteDirect('CREATE DATABASE neue_datenbank');
  MySQL80Connection1.ExecuteDirect('USE neue_datenbank');
  MySQL80Connection1.ExecuteDirect('CREATE TABLE kunden (kunde_id int(11))')
  usw...       

Besten Dank!

[MmVisual]

information_schema ist immer da nach der Neuinstallation von MySQL, die db_dummy nicht. Daher besser information_schema verwenden.

[Swirl]

Ach - deshalb hast Du die genommen. Gut zu wissen.

[charlytango]

Wie erzeuge ich eine Datenbank innerhalb eines Programms?

ich will dir da nicht in deine Konzeption dreinreden und kann nur aus meiner Perspektive berichten.

Klar kann man eine Datenbank in MySQL/MariaDB mit den genannten Strategien auch aus dem Programm heraus anlegen. Dazu muß man aus meiner Sicht gewichtige Gründe haben, denn die Rechte zum Erstellen/Löschen von DBs packe ich nicht in eine ClientApplikation.
Das Rechtemanagement mache ich direkt auf dem DBMS, das hat imho im Programm nichts verloren.

[af0815]

Klar kann man eine Datenbank in MySQL/MariaDB mit den genannten Strategien auch aus dem Programm heraus anlegen

Ich stimme da mit CharlyTango überein, das man das normalerweise nicht macht. Ich verwende einen Satz Skripts, die ich für eine neue Installation ablaufen lasse, damit kann ich die Rechte setzen und auch Tabellen mit Stammdaten auch gleich erzeugen.

Das einzige wo ich die Datenbank "on the fly" erzeuge ist mit Sqlite für Puffertabellen, wenn ich Daten lokal vorhalten muss, damit die Applikation auch ohne Verbindung laufen kann. Wie gesagt der einzige Fall, da kann man bei einer lokalen Datenbank aber auch nicht mehr soviel mit Security machen - ja ich weis - spezielle SQLite Versionen können das.