comment ajouter un source ODBC pour SQLServer par code

Version imprimable

21/05/2009, 16h53
tomy_libre

comment ajouter un source ODBC pour SQLServer par code

salut à tous.
Apres quelque temps de recherche , j'ai trouvé comment créer un source ODBC pour des base local tel que access que j'utilise, mais malheureusement :cry: j'ai pas trouvé comment l'ajouter pour une base SQL surtout ou bien n'importe base distante , ca veut dire avec les champ d'@ ip et tous cas .:roll:

je vous attend les amis ,
et merci d'avance ;)
23/05/2009, 13h11
evarisnea

:salut:

as-tu essayé comme indiqué dans la FAQ ?

Merci pour la réponse, j'ai vu la fac , mais dans cette tuto y a pas d'@ de serveur , en plus il me semble un peut compliqué , apparamant il y des compostant à declarer avant et je ne sais pas comment , apparamant chui encore débutant , lol, alors pouvez vous m'expliquer un peut ce code , et surtout , comment insérer l'@ IP de serveur , et merci bien .
Pour ne pas vous déranger , voici le code :
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;
;)

23/05/2009, 16h54
tomy_libre

un autre choses svp, dans la fac il ya un zip que j'ai pa pu le télécharger:
ODBC Reg, je croit que ce zip va resoudre mon probleme .
et merci.;)

Salut;

je prends le relai :D dans le code que tu a posté j'ai pris la peine de le commenter.

Code:

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
with TRegistry.Create do
//si l'opération échoue notre code est protégé, c'est ce qu'on appel gestion des exceptions   
try
    { Recensement de la source de données (1) }
   // clé principale
    RootKey := HKEY_LOCAL_MACHINE;
   // on ouvre la clé du catalogue ODBC
    OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
   // on ajoute la notre en l'occurrence SQL Serve  
    WriteString('MaSourceSQLServer','SQL Server');
    { Ecriture des paramètres (2) }
  // si ya erreur lors de l'ouverture on affiche un message
    if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then
      raise Exception.Create('impossible de créer la clé : '+
                               '<\Software\ODBC\ODBC.INI\MaSourceSQLServer>');
   // sinon on écrit les autres paramètres relatif à notre ODBC
    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
   // enfin on libère les ressources
    Free;
  end;

en fait tout se passe au niveau de la base de registre windows !

simple copier/coller est ton ODBC est dans la liste de windows, magique non?

24/05/2009, 00h35
tomy_libre

merci bien, maos lorsque je compile , un erreur est survenue, apres savoir utiliser l'outil de Showmessage :mouarf: avant et apres chaque ligne , j'ai pu savoir la ligne ou il ya l'erreur : WriteString('MaSourceSQLServer','SQL Server');
:?

Citation:

Envoyé par tomy_libre

merci bien, maos lorsque je compile , un erreur est survenue, apres savoir utiliser l'outil de Showmessage :mouarf: avant et apres chaque ligne , j'ai pu savoir la ligne ou il ya l'erreur : WriteString('MaSourceSQLServer','SQL Server');
:?

ce qui veut dire que la clé '\Software\ODBC\ODBC.INI\ODBC Data Sources' est inexistante sur ton système, donc va falloir la créer.

Code:

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
 
with TRegistry.Create do
//si l'opération échoue notre code est protégé, c'est ce qu'on appel gestion des exceptions   
try
    { Recensement de la source de données (1) }
   // clé principale
    RootKey := HKEY_LOCAL_MACHINE;
   // si la clé n'est pas disponible faut la créer
   if  Registre.KeyExists('\Software\ODBC\ODBC.INI\ODBC Data Sources') then
   // on ouvre la clé du catalogue ODBC
      OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
   // création de la clé
  else Registre.CreateKey('\Software\ODBC\ODBC.INI\ODBC Data Sources');
   // on ajoute la notre en l'occurrence SQL Serve  
    WriteString('MaSourceSQLServer','SQL Server');
    { Ecriture des paramètres (2) }
  // si ya erreur lors de l'ouverture on affiche un message
    if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then
      raise Exception.Create('impossible de créer la clé : '+
                               '<\Software\ODBC\ODBC.INI\MaSourceSQLServer>');
   // sinon on écrit les autres paramètres relatif à notre ODBC
    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
   // enfin on libère les ressources
    Free;
  end;

24/05/2009, 13h48
tomy_libre

merci bien mais lorsque je compile :
[Error] Unit1.pas(35): Undeclared identifier: 'Registre'

je le remplace par Registry et TRegistry mais toujours existe des erreurs :cry:
24/05/2009, 13h51
tomy_libre

lorsque je remplace Registre par TRegistry :
[Error] Unit1.pas(35): This form of method call only allowed for class methods
[Error] Unit1.pas(39): This form of method call only allowed for class methods

:cry::cry: , je ne sais pas quoi faire,
24/05/2009, 14h31
Just-Soft

faut rien changer, tu n'as qu'à ajouter Registry (à toi de vérifier la syntaxe; F1 recherche : Registry) dans la partie uses.
24/05/2009, 15h00
tomy_libre

J'ai fait un copier coller, et j'ai ajouter Registry dans uses , !!!!!!!!
24/05/2009, 15h06
Just-Soft

Citation:

Envoyé par tomy_libre

g fait un copier coller , et j'ai ajouter Registry dans uses , !!!!!!!!

et ça a donné quoi comme résultat après compilation ?
24/05/2009, 15h13
tomy_libre

va donnée le premier erreur que je t donné :
[Error] Unit1.pas(35): Undeclared identifier: 'Registre'
il n'a pas fait erreur au niveau uses , donc Registry est bien écrite.
25/05/2009, 20h19
evarisnea

Citation:

Envoyé par Just-Soft

Salut;

je prends le relai :D

pas de souci :ccool:

@ tomy_libre : poste le code actuel que tu utilises pour qu'on puisse y voir plus clair.

c'est le meme code, je l'ai mis dans un bouton pour tester d'abord, en tous cas voici tout le code de Unit :

Code:

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,Registry, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
    with TRegistry.Create do
//si l'opération échoue notre code est protégé, c'est ce qu'on appel gestion des exceptions   
try
    { Recensement de la source de données (1) }
   // clé principale
    RootKey := HKEY_LOCAL_MACHINE;
   // si la clé n'est pas disponible faut la créer
   if  Registre.KeyExists('\Software\ODBC\ODBC.INI\ODBC Data Sources') then
   // on ouvre la clé du catalogue ODBC
      OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false);
   // création de la clé
  else Registre.CreateKey('\Software\ODBC\ODBC.INI\ODBC Data Sources');
   // on ajoute la notre en l'occurrence SQL Serve
    WriteString('MaSourceSQLServer','SQL Server');
    { Ecriture des paramètres (2) }
  // si ya erreur lors de l'ouverture on affiche un message
    if not OpenKey('\Software\ODBC\ODBC.INI\MaSourceSQLServer',true) then
      raise Exception.Create('impossible de créer la clé : '+
                               '<\Software\ODBC\ODBC.INI\MaSourceSQLServer>');
   // sinon on écrit les autres paramètres relatif à notre ODBC
    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
   // enfin on libère les ressources
    Free;
  end;
end;
 
end.

26/05/2009, 18h28
Andnotor
Supprime les deux Registre. Il faut aussi supprimer le ";" sur la ligne du OpenKey.
Code:

1 2 3 if KeyExists('\Software\ODBC\ODBC.INI\ODBC Data Sources') then OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources',false) else CreateKey('\Software\ODBC\ODBC.INI\ODBC Data Sources');
Mais ces trois lignes pourraient être remplacées par:

Code:

OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', TRUE);
28/05/2009, 13h03
tomy_libre

et bain , j'ai ajouter un variable Registre : TRegistry; et la compilation ce fait , mais lorsque je clique sur le bouton pour créer le source , une exeption s'affiche et me dit qu'il n'a pu créer le clé .....:cry::cry::cry::cry::cry::cry:

je me coince à nouveau ....:?
28/05/2009, 13h07
tomy_libre

erreur : failed to create key \Software\ODBC\ODBC.INI\ODBC Data Sources

:(:(:(:?:?:?:calim2:
28/05/2009, 13h53
tomy_libre

dsl Andnotor , mes 2msg sont avant le tien , ok cher ami, je test et je re ;)
28/05/2009, 14h00
tomy_libre

:mouarf::mouarf::mouarf:, c'est résolu ,
Tres bien merci pour tous le monde :ccool:
developpez.com toujours le meilleur :mrgreen: