Discussion :

[aimer_Delphi]

Bonjour a tous ,
c'est mon premier message sur ce formidable forum .
je veux créer une source ODBC via un programme delphi (je suis sous delphi 7 entreprise) , j'utilise Interbase 7.5 server comme SGBD , et IBPhoenix ODBC Driver .

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
 
 
const
  ODBC_ADD_DSN=1;
  ODBC_REMOVE_DSN = 3 ;
 
  function SQLConfigDataSource(hwndParent:HWND;
                             fRequest:WORD;
                             lpszDriver:PCHAR;
                             lpszAttributes:PCHAR):BOOL;
                             stdcall; external 'odbccp32.dll';
 
 
// ce code est dans l'evenement FormCreate
 
// Creation de la Source ODBC
 if SQLConfigDataSource(0, ODBC_ADD_DSN, pchar('Firebird/InterBase(r) driver'),
                        Pchar('DSN=Masource'+ #0 +
                              'Server='+AdresseIP.Text+ #0 + // server IP
                              'Database='+AdresseIP.Text+':'+lechemin.Text+ #0 +
                              'Uid=SYSDBA'+ #0 +
                              'Pwd=masterkey'+ #0 +
                              'Trusted_Connection=yes' +#0#0 ))
 
        then
  begin
    //ShowMessage('DSN Créer');
  end
  else
  begin
   // showMessage('Erreur');
 
  end;

AdresseIP.Text represente l'adresse IP du Serveur
lechemin.Text lechemin de la base de donnée

SVP que pensez vous de ce code ?

[Paul TOTH]

cela fait longtemps que je n'ai pas utilisé ODBC...mais à l'époque je ne stockais pas l'information dans la configuration ODBC...

en gardant la config dans la chaine d'initialisation, tu peux lancer ton appli depuis n'importe quel poste sans changer sa config

l'inconvénient étant en contrepartie l'impossibilité de personnalisé la configuration dans ODBCAdm