FAQ DelphiConsultez toutes les FAQ

Les DOA (Direct Oracle Access) sont des composants natifs pour connecter une base de données Oracle à une application Delphi, Kylix (ainsi que C++Builder).

L'installation :
Elle se fait directement via un exécutable.

Les composants principaux :

• TOracleSession pour se relier à une base de données d'Oracle. Vous pouvez employer plusieurs sessions simultanément, accédant à différentes bases de données.
• TOracleQuery : pour exécuter n'importe quel SQL ou bloc PL/SQL dans une session.
• TOracleLogon : lance la fenêtre standard du login/password/alias Oracle pour se connecter à une base Oracle.
• TOracleNavigator est un composant très semblable au TDBNavigator standard. Il fournit les boutons additionnels pour soutenir le mode de QBE (Query By Example) d'un TOracleDataSet.
• TOracleDataSet : Composant à utiliser si vous voulez afficher les données directement dans des DBGrid, DBEdit,...
  

• TOracleSession :
  
  • LogonUserName : Login pour se connecter à la base
  • LogonPassword : Mot de passe pour se connecter à la base
  • LogonDatabase : Dans lequel on met l'alias de la base de donnée (se référer au nom donné dans le tnsnames.ora)
  • Connected : (True/False) connecte l'application à la base de données.
  • Attention : Laisser la propriété AutoCommit à False... Cette propriété disparaîtra dans les version suivante des DOA
    
• TOracleQuery :
  
  • Session : Relier au TOracleSession
  • SQL : Texte de la requête SQL (astuce pour encoder votre code SQL plus directement : double cliquez sur le composant posé sur la fiche).
  • L'exécution de la requête se fait par : TOracleQuery.Execute et ceci quelque soit le type de requête SQL (Select, Insert, Delete ou Update).
    
  
  

• le DataSet du TDataSource au TOracleDataSet.
• le DataSource du DBGrid au TDataSource
  

1
2
3
4
5
6
7
8
9
10
11
12
with OracleQuery1 do 
begin 
    SQL.Clear; 
    SQL.Add('select * from TABLE1'); 
    Execute; 
  
    while not Eof do 
    begin 
        { Faire les traitements} 
        Next; 
    end; 
end;

1
2
3
4
5
6
7
8
9
10
11
12
try 
  Query.Execute;  { select * from LaTable} 
  ... 
except 
  on E:EOracleError do 
  begin 
    if E.ErrorCode = 942 then  { ORA-00942: Table or view does not exist} 
      ShowMessage('Erreur : la table n''a pas été trouvée'); 
    else 
      ShowMessage(E.Message); 
  end; 
end;

Les composants NCOCI sont une série de composants gratuits avec sources disponibles ici : http://www.da-soft.com/

Posez un TOCIDatabase, un TOCIQuery, un TOCIUpdateSQL, un TDataSource et un TDBGrid sur une fiche. Les propriétés à renseigner sont :
Connexion au serveur
TOCIDatabase :

• ServerName : Nom de la base accédée (elle doit figurer dans le fichier tnsnames.ora)
• UserName / Password : Login / Mot de passe pour se connecter à la base
• LoginPrompt : false (si UserName/Password renseignés)
• DatabaseName : Nom de la base tel qu'il sera connu dans le programme (Default par défaut)
  

• DatabaseName : le même nom que pour le TOCIDatabase.DatabaseName (Default par défaut)
• UpdateObject : Choisir le TOCIUpdateSQL posé sur la fiche
• SQL : Texte de la requête SQL
  

La méthode proposée ici permet d'ouvrir une table d'une base Oracle et de l'afficher dans une grille, ceci en complétant la base DBExpress afin d'obtenir une lecture bidirectionnelle.

Connexion de l'application
Pour connecter l'application placez un composant SQLConnection sur la fiche (palette DBExpress), puis mettre à jour les propriétés suivantes :

• ConectionName : Oracle
• DriverName : Oracle
• Params ( DataBase ) : le nom du serveur choisi lors de l'installation du client Oracle et donné dans tnsnames.ora
• Params ( User ) : nom d'utilisateur
• Params ( PassWord ) : mot de passe
• LoginPrompt : False
  

• SQConnection : SQLConnection1
• SQL : mettre une requête SELECT simple ( SELECT * FROM UneTable )
  

• DataSet : SQLQuery1
  

• ProviderName : DataSetProvider1
  

Connexion au serveur
Pour se connecter au serveur placer un composant ADOConnection sur la fiche. Puis effectuer un clic droit sur le composant et choisir "Modifier la chaîne de connexion".
Cliquer ensuite sur le bouton construire pour utiliser l'assistant.
Sélectionner le fournisseur : "Microsoft OLE DB Driver for Oracle" et cliquer sur suivant. Entrer alors le nom du serveur Oracle. Ce nom doit être celui donné à l'installation d'Oracle et défini dans le fichier tnsnames.ora. Entrer alors le nom d'utilisateur et le mot de passe. Cocher l'option "autoriser l'enregistrement du mot de passe". Attention ceci n'est que pour exemple, il est déconseillé dans de vraies applications d'utiliser cette option, car le mot de passe serait alors stocké en clair dans le fichier EXE. Valider la chaîne.
Mettre enfin SQLConnection1.LoginPrompt à False.

Pour activer la connexion faire ADOConnection1.Open à l'exécution ou mettre ADOConnection1.Connected à True en conception.

Ouverture d'une table
Il suffit de placer un composant ADOQuery sur la fiche et de mettre :

• Connection : ADOConnection1
• SQL : mettre une requête SELECT simple ( SELECT * FROM UneTable )
  

Cette solution permet de passer rapidement d'une application BDE avec des bases Paradox/DBase vers un serveur Oracle. elle ne permet pas de se connecter à Oracle 9. Il n'est pas conseillé non plus de l'utiliser dans de nouvelles applications.

Créer un Alias
Avant de se connecter à Oracle vous devez créer un Alias en utilisant l'administrateur BDE.

• Dans le menu ocget choisir "Nouveau..."
• Sélection ORACLE comme type de pilote
• Entrez le nom de l'Alias
• Dans les paramètres de l'alias saisir la valeur de "Server name". le nom du serveur doit être le nom choisi lors de l'installation du client Oracle et donné dans tnsnames.ora
• Entrez le nom de l'utilisateur
  

• Mettre dans DataBaseName le nom de l'alias créé précédemment
• Mettre LoginPrompt à false
• Ajouter deux paramètres dans params "USER NAME" avec le nom de l'utilisateur défini dans Oracle. "PASSWORD" avec le mot de passe associé
  

Il s'agit de la solution BDE sans SQL-Links. La première chose à faire est de créer une source ODBC qui se connecte à la base désirée. Appelons-la 'testora'.

J'ai constaté une incompatibilité entre le driver d'Oracle et le BDE : les zones numériques sont renvoyées tronquées, il est donc préférable d'utiliser celui de Microsoft, fourni avec MDAC.

Sur une fiche, poser un TDatabase et un TQuery. Renseigner les propriétés suivantes :
TDatabase :

• AliasName = 'testora' (nom de la source ODBC)
• DatabaseName = 'dbTestOra'
  

• DatabaseName = 'dbTestOra'
• SQL = le texte de la requête
  

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
procedure TForm1.FormCreate(Sender: TObject); 
var 
  i : integer; 
begin 
  { Préparation de la connexion à la Base de données} 
  with database1 do 
  begin 
    AliasName := 'testora'; { Nom de la source ODBC} 
    DatabaseName := 'dbTestOra'; { Nom de la base dans notre application} 
    LoginPrompt := false; 
    Session.GetAliasParams(AliasName,Params); 
    { Récupération du paramètre Login} 
    i := Params.IndexOf('USER NAME='); 
    if (i > -1) then 
      Params[i] := 'USER NAME=raoul' 
    else 
      Params.Add('USER NAME=raoul'); 
    { Ajout du paramètre password (il n'est pas renvoyé par GetAliasParams)} 
    Params.Add('PASSWORD=wolfoni'); 
  end; 
end; 
  
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  { Préparation et exécution de la requête} 
  with query1 do 
  begin 
    DatabaseName := Database1.DatabaseName; 
    SQL.Text := 'SELECT * FROM PERSONNES'; 
    Open; 
  end; 
end;