Bonjour a tous,
Quand je crée un alias sur une Base de donnée Interbase (on utilisons le Driver Firebird_ODBC_1.2.0.69-Win32 ) avec l'administrateur ODBC, j'y ai accès sans problème Via Delphi.
Par contre, je n'arrive pas à créer l'alias dynamiquement via mon programme Delphi
Voici Mon Code
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
34
 
const
  PATH_ODBC = '\Software\ODBC\ODBC.INI\';
Var fichierDriver, versionDriver : String;
 
 // Creation de la Source ODBC
  with TRegistry.Create do
  try
    { Recensement de la source de données }
    RootKey := HKEY_CURRENT_USER;
    OpenKey(PATH_ODBC + 'ODBC Data Sources',false);
    WriteString('Gescomm','Firebird/InterBase(r) driver');
    { Ecriture des paramètres }
    if not OpenKey(PATH_ODBC + 'MaSource1',true) then
      raise Exception.Create('impossible de créer la clé : <' + PATH_ODBC + 'MaSource1' + '>');
    fichierDriver := IfThen(ValueExists('Driver'),ReadString('Driver'));
    versionDriver := IfThen(ValueExists('DriverODBCVer'),ReadString('DriverODBCVer'));
    WriteString('Driver',fichierDriver);
    WriteString('Dbname', lechemin.Text); // chemin complet de la base de donnée
    WriteString('Client','');
    WriteString('User','SYSDBA');
    WriteString('Role','');
    WriteString('CharacterSet','NONE');
    WriteString('JdbcDriver','IscDbc');
    WriteString('ReadOnly','N');
    WriteString('NoWait','N');
    WriteString('Dialect','3');
    WriteString('QuotedIdentifier','Y');
    WriteString('SensitiveIdentifier','N');
    WriteString('AutoQuotedIdentifier','N');
    WriteString('Password','BGHKJUACICAIKKAOMCAEOKAKADAACHGFDLAKJHGFDKAEAACMAGEEAMGMACIEAIDK');
  finally
    Free;
  end;
ce code est inspirer de notre Faq et aussi on utilisons le fameux utilitaire de Bloon (ODBCReg).
merci a tous, et bon developpement