Discussion :

[newflash]

je veux créer une sources de sonnées utilisateur sur ODBC par un programme delphi.

j'utilise delphi 7 et une base de donnés SQL SERVER sur un poste serveur de mon reseau.
ce que je cherche est de fournir aux utilisateurs clients l'application et une autres appliocation appélé alais qui crée le une source odbc sur les poste client.

j'explique : j'ai deja testé mon application sur les postes clients on ajoutant une source de donnés odbc " l'application marche bien sans probleme".

avec odbc c'est facile:


avec programme :

[Rayek]

http://delphi.developpez.com/faq/?pa...c#creationodbc

[newflash]

http://delphi.developpez.com/faq/?pa...c#creationodbc

merci rayek.

j'ai deja vu ce code mais...

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
with TRegistry.Create do
  try
    { Recensement de la source de données (1) }
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
    WriteString('MaSourceSQLServer','SQL Server');
    { Ecriture des paramètres (2) }
    if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then
      raise Exception.Create('impossible de créer la clé : '+
                               '<\Software\ODBC\ODBC.INI\MaSourceSQLServer>');
    WriteString('Driver','C:\WINNT\System32\sqlsrv32.dll');
    WriteString('Description','Source créée par programme');
    WriteString('Server','SRVSQL');
    WriteString('LastUser','SA');
    WriteString('Trusted_Connection','Yes');
  finally
    Free;
  end;

dans quelle ligne je peux mettre le nom d'alias ? ici? WriteString('Description','Source créée par programme');
dans quelle ligne je peux mettre le nom de serveur ? ici ? WriteString('Server','SRVSQL');
et je ne veux pas voir l'utilisateur Sa et password
j'ai deja tester ma ça marche pas.

merci de me repondre.

[Rayek]

Le mieux c'est que tu créés une source de données à la main et puis tu vas voir comment c'est fait dans la base de registre.
Reste plus après qu'à modifier le code de la faq en conséquence.

[newflash]

je vais essayer.
merci

[newflash]

merci monsieur le moderateur .

le code qui a marché avec moi :

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
with TRegistry.Create do
  try
    { Recensement de la source de données (1) }
    RootKey := HKEY_CURRENT_USER   ;
    OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
     TRegistry.Create.CreateKey('monalais') ; //  créer une clé (nom d'alias avant)
    WriteString('monalias','SQL Server');
    { Ecriture des paramètres (2) }
    if not OpenKey('\Software\ODBC\ODBC.INI\monalais',true) then
      raise Exception.Create('impossible de créer la clé : '+
                               '<\Software\ODBC\ODBC.INI\\monalais');
 
 
//    TRegistry.Create.CreateKey('monalais')
    WriteString('Driver','C:\WINNT\System32\sqlsrv32.dll');
    WriteString('server','mon serveur sql ou IP');
    WriteString('LastUser','sa');
    //WriteString('Trusted_Connection','Yes');
 
  finally
    Free;
  end;

il faut declarer Registry dans uses pour qu'il marche.