Delphi 5.0 Ouvrir la connexion Interbase/FireBird via le code

Question

Ceci est vieux! Est lié à delphi 5.0 et interbase 1.6. J'essaie d'ouvrir une connexion DB via du code. Mais ce code est lié à permettre la connexion, tous les composants ont été ajoutés par glisser-déposer Interface utilisateur delphi: DataSource1, TForm1, DBGrid, DBNavigator etc ..

procedure TDataModule2.DataModuleCreate(Sender: TObject); 
begin 
    database.DatabaseName:='C:\MyDatabase.GDB'; 
    database.Connected := true; 
    database.Open; 
    IBTransaction.Active := true; 

    myTable.Open; 
end; 

J'ai un TForm avec le composant DBGrid et DBNavigator. J'ai aussi un TIBQuery (qui DataSource1 est associé) avec ce code sur les SQLStrings:

SELECT * FROM NEW_TABLE 

Sur le formulaire, j'ai ce code pour permettre de montrer les valeurs DB DBNavigator et DBGrid. Le DB est très simple est juste une table: NEW_TABLE avec un NEW_VALUE de type VARCHAR

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    DataSource1.DataSet.Open; 
    // This will call the query associated to this DataSource1 the tibQuery1 to call 
    // SELECT * FROM NEW_TABLE, but the message below appears: IBClientError... 
end; 

Le message suivant apparaît: IBClientError avec le message 'Base de données non affecté'

OBS1: Si je connecte les composants à la main Sur l'interface utilisateur Delphi, la connexion avec le DB est établie.

Answer 1

Vous devez attribuer la propriété Database de votre requête, quelque chose comme:

IBQuery1.Database := MyDatabase;