Discussion :

[samaury]

Bonjour
Existe-t'il un moyen de se connecter à une base de données oracle sans utiliser les alias définis dans le fichier TNSNAMES.ORA?
J'ai besoin de déployer une appli chez plusieurs utilisateurs sans avoir besoin de modifier leur tnsnames.ora
J'utilise dbexpress et un TSQLConection pour la connection à ma base.
Le client oracle est installé chez mes utilisateurs mais tous n'ont pas leur tnsnames.ora à jour avec la nouvelle base à attaquer.
Merci

[ShaiLeTroll]

Inspire toi de Comment créer un DBLink sans Tnsnames.ora ?

En ADO, tu peux passer une chaine du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ADOConnection.ConnectionString := 
  'Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST='+HostName+')(PORT=1521)))(CONNECT_DATA=(SID='+ServiceNameSID+')));user id='+Login+'password='+PW;

je te laisse voir toute les options qui doivent être les mêmes dans le fichier Tnsnames.ora

En DBExpress, on peut espérer que Parmi les Params du TSQLConnection tu puisse lui définir une ConnectionString spécifique à la place du fichier Tnsnames.ora

[samaury]

Merci pour ta réponse ShaiLeTroll

Inspire toi de Comment créer un DBLink sans Tnsnames.ora ?

J'avais déja exploré ce lien. C'est dailleurs lui qui m'a fait penser que ma demande était peut-être réaliseable.
Si quelqu'un sait ou je peux trouver la doc du driver Oracle des dbExpress, je suis preneur.

[samaury]

Ayé
J'ai trouvé ici http://www.orafaq.com/wiki/Delphi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
33
program OracleDemo;
{$APPTYPE CONSOLE}
uses
  SysUtils, SqlExpr, DbxOracle;
var
  Conn: TSQLConnection;
  Query: TSQLQuery;
begin
  Conn := TSQLConnection.Create(nil);
  Query := TSQLQuery.Create(nil);
  try
    try
      Conn.DriverName := 'Oracle';
      Conn.Params.Add('DataBase=localhost:1521/orcl');
      Conn.Params.Add('User_Name=scott');
      Conn.Params.Add('Password=tiger');
      Conn.Connected := True;
      Query.SQLConnection := Conn;
      Query.SQL.Text := 'select * from emp';
      Query.Open;
      while not Query.Eof do begin
        Writeln(Query.Fields[0].AsString);
        Query.Next;
      end;
    except
      on E: Exception do
        Writeln(E.ClassName, ': ', E.Message);
    end;
  finally
    Query.Free;
    Conn.Free;
  end;
end.

Ca marche bien