comment ajouter un source ODBC pour SQLServer par code

**tomy_libre** · 21/05/2009, 16h53

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

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 .

je vous attend les amis ,
et merci d'avance

**evarisnea** · 23/05/2009, 13h11

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

**tomy_libre** · 23/05/2009, 16h12

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 :

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;

**tomy_libre** · 23/05/2009, 16h54

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.

**Just-Soft** · 23/05/2009, 18h08

Salut;

je prends le relai

dans le code que tu a posté j'ai pris la peine de le commenter.

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
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?

**tomy_libre** · 24/05/2009, 00h35

merci bien, maos lorsque je compile , un erreur est survenue, apres savoir utiliser l'outil de Showmessage

avant et apres chaque ligne , j'ai pu savoir la ligne ou il ya l'erreur : WriteString('MaSourceSQLServer','SQL Server');

**Just-Soft** · 24/05/2009, 09h26

Envoyé par tomy_libre

merci bien, maos lorsque je compile , un erreur est survenue, apres savoir utiliser l'outil de Showmessage

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 :

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
 
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;

**tomy_libre** · 24/05/2009, 13h48

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

**tomy_libre** · 24/05/2009, 13h51

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

, je ne sais pas quoi faire,

**Just-Soft** · 24/05/2009, 14h31

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

**tomy_libre** · 24/05/2009, 15h00

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

**Just-Soft** · 24/05/2009, 15h06

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 ?

**tomy_libre** · 24/05/2009, 15h13

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.

**evarisnea** · 25/05/2009, 20h19

Envoyé par Just-Soft

Salut;

je prends le relai

pas de souci

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

**tomy_libre** · 26/05/2009, 18h13

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 :

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
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.

**Andnotor** · 26/05/2009, 18h28

Supprime les deux Registre. Il faut aussi supprimer le ";" sur la ligne du OpenKey.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

OpenKey('\Software\ODBC\ODBC.INI\ODBC Data Sources', TRUE);

**tomy_libre** · 28/05/2009, 13h03

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é .....

je me coince à nouveau ....