IBX.IBDatabase.TIBDatabase.CreateDatabase

• Übergeordnet: TIBDatabase

Delphi

procedure CreateDatabase;

C++

void __fastcall CreateDatabase();

Eigenschaften

Typ	Sichtbarkeit	Quelle	Unit	Übergeordnet
procedure function	public	IBX.IBDatabase.pas IBX.IBDatabase.hpp	IBX.IBDatabase	TIBDatabase

Beschreibung

Erstellt eine Datenbank unter Verwendung der Eigenschaft Params.

CreateDatabase erstellt eine Datenbank und verwendet Params als Parameter des Befehls CREATE DATABASE.

Eine lokale InterBase-Datenbank können Sie z. B. folgendermaßen erstellen:

1. Geben Sie im Datenbanknamen das Laufwerk, den Pfad und den Dateinamen der Datenbankdatei an.
2. Geben Sie in Params den Parameter für die Anweisung CREATE DATABASE an: USER "SYSDBA" PASSWORD "masterkey" PAGE_SIZE 4096
3. Legen Sie den Wert der Eigenschaft SQLDialect fest.
4. Rufen Sie die Methode CreateDatabase auf.

Es folgen einige Beispiele für den Aufruf der Prozedur CreateDatabase:

Delphi:

CreateDatabase('localhost','C:\ProgramData\Embarcadero\InterBase\gds_db\examples\database\test.ib');

C++:

 createDatabase("localhost", "C:\\ProgramData\\Embarcadero\\InterBase\\gds_db\\examples\\database\\test.ib");

Im Folgenden sind Delphi- und C++-Beispiele für die programmgesteuerte Verwendung der Prozedur CreateDatabase.

Beispiel (Delphi)

Procedure CreateDatabase(ServerName,RemotePath: string); var
  IBDatabaseTest: TIBDatabase;
begin
  IBDatabaseTest := TIBDatabase.Create(nil);
  try
    try
      IBDatabaseTest.DatabaseName := ServerName + ':' + RemotePath;
      IBDatabaseTest.SQLDialect := 3;
      IBDatabaseTest.Params.Clear;
      IBDatabaseTest.Params.Add('USER "SYSDBA"');
      IBDatabaseTest.Params.Add('PASSWORD "masterkey"');
      IBDatabaseTest.Params.Add('PAGE_SIZE 4096');
      IBDatabaseTest.LoginPrompt := False;
      IBDatabaseTest.CreateDatabase;
    except
      on E: exception do
        Showmessage(E.ClassName + ': ' + E.Message);
    end;
  finally
    IBDatabaseTest.Free;
  end;
end;

Beispiel (C++)

void createDatabase(UnicodeString ServerName, UnicodeString RemotePath) {
	TIBDatabase *IBDatabaseTest = new TIBDatabase(NULL);
        try {
		IBDatabaseTest->DatabaseName = ServerName + ":" + RemotePath;
		IBDatabaseTest->SQLDialect = 3;
		IBDatabaseTest->Params->Clear();
		IBDatabaseTest->Params->Add("USER \"SYSDBA\"");
		IBDatabaseTest->Params->Add("PASSWORD \"masterkey\"");
		IBDatabaseTest->Params->Add("PAGE_SIZE 4096");
                IBDatabaseTest->LoginPrompt = false;
		IBDatabaseTest->CreateDatabase();
	}
	catch (Exception &e) {
		ShowMessage(e.ClassName()+":"+e.Message);
	}

}

Siehe Auch

• Einführung in InterBase Express