IBDatabaseInfo->Wie?

[UGrohne]

Hallo, hab mal wieder ein Problem,
ich will am Anfang meines Progs einen Check einbauen, ob bestimmte Felder in der Datenbank vorhanden sind (für Programmerweiterungen/Updates). Dazu hab ich mir die IBDatabaseInfo-Kompo rausgesucht. Nach dem Connect, führe ich folgenden Code aus:

Delphi-Quellcode:

with IBDatabaseInfo1 do begin 
* * *Database.GetFieldNames('Artikel',liste); 
* * *if liste.IndexOf('art')=-1 then 
* * *IBSQL.SQL.Text:='ALTER TABLE artikel ADD art integer DEFAULT 0 NOT NULL, ADD lager INTEGER DEFAULT 0, ADD bestellt integer DEFAULT 0;'; 
* * * * if Mainform.debug then* *//Debug-Modus???? 
* * * * * *if MessageDlg(IBSQL.SQL.Text,mtConfirmation,[mbOK,mbCancel],0)=mrCancel then 
* * * * * * * Exit; 
* * * * IBSQL.ExecQuery; 
* * * * Commit(Self); 
* * *end;

Dabei bekomm ich aber den Fehler "Datenbank nicht zugewiesen". Wie mach ichs richtig?

Gruß

[Hansa]

hier ein Beispiel aus der FIBplus-Hilfe :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var I: Integer;

begin
  with pFIBServerProperties1 do begin
    ServerName := 'Poulet';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Options := [Database];
      FetchDatabaseInfo;
      Label1.Caption := 'Number of Attachments = ' + IntToStr(DatabaseInfo.NoOfAttachments);
      Label2.Caption := 'Number of Databases = ' + IntToStr(DatabaseInfo.NoOfDatabases);
      for I:= 0 to High(DatabaseInfo.DbName) do
        Memo1.Lines.Add(DatabaseInfo.DbName[i]);
    finally
      Active := False;
    end;
  end;
end;

tja, mehr hab ich jetzt auch nicht.