IBX.IBDatabase.TIBDatabase.CreateDatabase

• Aller au parent : TIBDatabase

Delphi

procedure CreateDatabase;

C++

void __fastcall CreateDatabase();

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	IBX.IBDatabase.pas IBX.IBDatabase.hpp	IBX.IBDatabase	TIBDatabase

Description

Crée une base de données en utilisant Params.

Appelez CreateDatabase pour créer une base de données en utilisant Params pour le reste de la commande CREATE DATABASE.

Par exemple, pour créer une base de données InterBase locale, vous pouvez procéder comme suit :

1. Initialisez le nom de la base de données avec le lecteur, le chemin et le nom du fichier de base de données.
2. Initialisez Params avec le paramètre de l'instruction CREATE DATABASE : USER "SYSDBA" PASSWORD "masterkey" PAGE_SIZE 4096
3. Définissez la valeur SQLDialect.
4. Appellez la méthode CreateDatabase.

Voici des exemples montrant comment appeler la procédure CreateDatabase procedure:

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");

Les suivants sont des exemples Delphi et C++ de l'utilisation par programme de CreateDatabase.

Exemple (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;

Exemple (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);
	}

}

Voir aussi

• Introduction à InterBase Express