InterBase ToGo avec dbExpress

De RAD Studio
Aller à : navigation, rechercher

Remonter à Développement d'applications de bases de données

A commencer par XE3, RAD Studio fournit le support des bases de données InterBase ToGo.

Ce qui a changé

A commencer par XE3, RAD Studio améliore le framework dbExpress en ajoutant un pilote spécifique à InterBase ToGo. Ce changement permet aux utilisateurs d'établir plus facilement des connexions aux bases de données InterBase ToGo avec dbExpress, dans les applications Delphi et C++.

Utilisation du pilote InterBase ToGo

Le pilote InterBase ToGo est utilisable seulement à l'exécution.

Si vous activez une connexion avec InterBase ToGo à la conception ou disposez d'une connexion InterBase ToGo ouverte dans votre Explorateur de données, et essayez d'exécuter votre application, vous obtiendrez une erreur à l'exécution. Cela se produit car la licence serveur InterBase ToGo requiert un accès exclusif à la base de données. Puisque vous disposez déjà d'une connexion ouverte à la conception, vous ne pouvez pas alors ouvrir une connexion locale à la même base de données dans l'application en cours de construction/d'exécution. InterBase ToGo a été uniquement conçu comme une option de déploiement et ne doit pas être utilisé dans l'EDI ou dans l'explorateur de données.

Par conséquent, le client InterBase complet doit être utilisé à la conception et dans l'explorateur de données.

Exemple

L'exemple suivant est un tutoriel sur la façon d'établir une connexion à une base de données InterBase ToGo dans une application Delphi Fiches VCL :

Etapes

  1. Sélectionnez Fichier > Nouveau > Application Fiches VCL - Delphi.
  2. Ajoutez les composants suivants à la fiche :
  3. Ajoutez le code suivant au gestionnaire d'événements OnClick pour le connectButton.
 procedure TForm1.connectButtonClick(Sender: TObject);
 begin
   // create a new TSQLConnection object
   SQLConnection1 := TSQLConnection.Create(nil);
   // set the driver of the TSQLConnection control
   SQLConnection1.DriverName := 'IBToGo';
   // add the Database parameter to Params
   SQLConnection1.Params.Add('Database=full_path_to_your_database_file');
   // set the Username and Password parameters
   SQLConnection1.Params.Add('User_Name=SYSDBA');
   SQLConnection1.Params.Add('Password=masterkey');
   try
     // open the connection
     SQLConnection1.Open;
     Memo1.Text := 'Connection established';
   except
     on E: Exception do
       Memo1.Text := 'Exception raised with message : ' + #13#10 + E.Message;
   end;
 end;

Voir aussi