Re: CreateDataBase и Force Write

Thu, 26 Apr 2007 06:43:37 -0700 

"Dmitri Kuzmenko" <[EMAIL PROTECTED]> wrote in message news:[EMAIL PROTECTED]
> никак. при создании БД нет таких параметров.
> Читай доку.

Параметр есть просто для того чтобы нормально создавать БД нужно переписать 
CreateDatabase у IBX.

procedure TIBDatabase.CreateDatabase;
var
  DPB: String;
  TempDBParams: TStrings;
  i : Integer;
begin
  CheckInactive;
  CheckDatabaseName;
  if (FDBParamsChanged) then
  begin
    FDBParamsChanged := False;
    if (not LoginPrompt) or (FHiddenPassword = '') then
      GenerateDPB(FDBParams, DPB, FDPBLength)
    else
    begin
      TempDBParams := TStringList.Create;
      try
       TempDBParams.Assign(FDBParams);
       TempDBParams.Add('password=' + FHiddenPassword);
       GenerateDPB(TempDBParams, DPB, FDPBLength);
      finally
       TempDBParams.Free;
      end;
    end;
    IBAlloc(FDPB, 0, FDPBLength);
    Move(DPB[1], FDPB[0], FDPBLength);
  end;
  {Call(isc_create_database(StatusVector, Length(FDBName),
                           PChar(FDBName), @DBHandle,
                           FDPBLength, FDPB, 0), True);
  Call(isc_detach_database(StatusVector, @DBHandle), False);}

  if Call(isc_create_database(StatusVector, Length(FDBName),
                              PChar(FDBName), @FHandle,
                              FDPBLength, FDPB, 0), False) > 0 then
  begin
    FHandle := nil;
    IBDataBaseError;
  end;
  FDBSQLDialect := GetDBSQLDialect;
  ValidateClientSQLDialect;
  for i := 0 to FEventNotifiers.Count - 1 do
    if IIBEventNotifier(FEventNotifiers[i]).GetAutoRegister then
      IIBEventNotifier(FEventNotifiers[i]).RegisterEvents;
end;

Ответить