Erstellen einer Datenbank mit DBExpress in Delphi?

Brauche ich zum erstellen einer Firebird-Datenbank programmgesteuert mithilfe von DBExpress. Ich habe dies getan, für SQL server, die durch die erste Verbindung zum Master, dann übergeben Sie das Skript zum Erstellen einer Abfrage, aber mit Firebird habe ich ein wenig die Huhn-und-ei-problem.

InformationsquelleAutor Steve | 2009-01-08
  1. 3

    Ich bekam einen guten Tipp von einem Kollegen, dass einige code für den Freepascal-Projekt. Kein DB-express, aber laut ihm ist es der einzige Weg, um eine Datenbank zu erstellen mit code. Dieser code basiert auf den InterBase-Handbuch, und verwendet einen Anruf von der gdslib /fbclient dll:

    procedure TIBConnection.CreateDB;

var ASQLDatabaseHandle,
    ASQLTransactionHandle : pointer;
    CreateSQL : String;
    pagesize : String;
begin
  CheckDisConnected;
  {$IfDef LinkDynamically}
    InitialiseIBase60;
  {$EndIf}
  ASQLDatabaseHandle := nil;
  ASQLTransactionHandle := nil;
  CreateSQL := 'CREATE DATABASE ';
  if HostName <> '' then
    CreateSQL := CreateSQL + ''''+ HostName+':'+DatabaseName + ''''
  else
    CreateSQL := CreateSQL + '''' + DatabaseName + '''';

  if UserName <> '' then
    CreateSQL := CreateSQL + ' USER ''' + Username + '''';
  if Password <> '' then
    CreateSQL := CreateSQL + ' PASSWORD ''' + Password + '''';
  pagesize := params.Values['PAGE_SIZE'];
  if pagesize <> '' then
    CreateSQL := CreateSQL + ' PAGE_SIZE '+pagesize;

  if isc_dsql_execute_immediate(@FStatus[0],@ASQLDatabaseHandle,@ASQLTransactionHandle,length(CreateSQL),@CreateSQL[1],Dialect,nil) <> 0 then
    CheckError('CreateDB', FStatus);

  if isc_detach_database(@FStatus[0], @ASQLDatabaseHandle) <> 0 then
    CheckError('CreateDB', FStatus);

  {$IfDef LinkDynamically}
    ReleaseIBase60;
  {$EndIf}
end;

    Der trick ist, die isc_dsql_execute_immediate Funktion. Ich hoffe, dieser code hilft Ihnen. Hier sind die links zu den Freepascal source-Dateien, wo dieser code herkommt:

    Einheit mit CreateDB-Funktion

    Einheit, die API-Aufruf isc_dsql_execute_immediate

    • Installations-Verzeichnis von Firebird enthält einige Modell-Beispiele. Überprüfen Sie Folgendes Verzeichnis auf Ihrem computer: C:\Program Files\Firebird\Firebird_2_5\examples\api-Methode Prototypen können gefunden werden im Verzeichnis: C:\Program Files\Firebird\Firebird_2_5\include
    InformationsquelleAutor Birger
  2. 1

    Führen Sie ein Skript isql

    isql-ich createDB.sql

    CreateDB.sql die Datei enthält den Befehl, um die Datenbank zu erstellen, wie unten dargestellt.

    SET SQL DIALECT 3;
CREATE DATABASE 'C:\DATABASE\DB.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET WIN1252;
QUIT;
    InformationsquelleAutor Cleber Moises Grings
Schreibe einen Kommentar