IBDatabase -> File löschen

[Lemmy]

Hallo,


kannst Du bitte mal schauen, IBDatabase besitzt eine Methonde "CreateDatabase" - d.h. versuch mal das hier:

Delphi-Quellcode:

procedure TDataModuleMyFriends.OpenDataBase;
begin
  CloseDataBase;

  IBDatabaseMyFriends.DatabaseName := FileName;
  IBDatabaseMyFriends.LoginPrompt := False;
  IBDatabaseMyFriends.Params.Clear;
  IBDatabaseMyFriends.Params.Add('user_name=SYSDBA');
  IBDatabaseMyFriends.Params.Add('password=masterkey');

  if not ExistDataBase then
    IBDatabaseMyFriends.CreateDatabase;

  IBDatabaseMyFriends.Open;
  IBTransactionMyFriends.StartTransaction;
  IBQueryFriends.Open;
  IBQueryFriends.FetchAll;
end;