IBX.IBDatabase.TIBDatabase.CreateDatabase
Delphi
procedure CreateDatabase;
C++
void __fastcall CreateDatabase();
Inhaltsverzeichnis
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:
- Geben Sie im Datenbanknamen das Laufwerk, den Pfad und den Dateinamen der Datenbankdatei an.
- Geben Sie in Params den Parameter für die Anweisung CREATE DATABASE an: USER "SYSDBA" PASSWORD "masterkey" PAGE_SIZE 4096
- Legen Sie den Wert der Eigenschaft SQLDialect fest.
- 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);
}
}