Discussion :

[tomy_libre]

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]

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

[tomy_libre]

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]

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]

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]

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

[evarisnea]

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.