Créer une source de données utilisateur ODBC par un programme delphi

Version imprimable

01/12/2010, 13h37
newflash

2 pièce(s) jointe(s)

Créer une source de données utilisateur ODBC par un programme delphi

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:
http://www.developpez.net/forums/att...1&d=1291208090

avec programme :
http://www.developpez.net/forums/att...1&d=1291208090
01/12/2010, 13h45
Rayek

:recherch::faq:

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

Citation:

Envoyé par Rayek

:recherch::faq:

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

merci rayek.

j'ai deja vu ce code mais...
Code:

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.

01/12/2010, 14h09
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.
01/12/2010, 14h25
newflash

je vais essayer.
merci

10/10

merci monsieur le moderateur .

le code qui a marché avec moi :

Code:

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.