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;