Discussion :

[faniette]

Bonjour
Lorsque j'utilise une BD Access dans mon programme, je dois déclarer la source de donnée dans l'ODBC de Windows. Jusque là, pas de problème. Le problème c'est que je dois le faire à chaque fois que je change de poste.

L'idéal serait de déclarer dans le code de l'application, la source de donnée
Je ne sais pas si c'est possible

Merci d'avance

[sat83]

C'est tout a fais possible, en sachant que cette information est simplement une clé dans la base des registres. Pour ajouter un alias ODBC, il suffit donc de créer des entrées dans la base des registres Windows (avec TRegistry).
Créer un alias ODBC de facon "classique", puis va vérifier dans la base de registre les entrées qui ont été
créer dans \\Software\\ODBC\\ODBC.INI\\ODBC Data Sources.
Il te suffit alors de créer les même par programme.

Voilà une fonction qui pourrait faire l'affaire (à vérifier!!):

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
 
#include <registry.hpp>
[...]
 
bool CreateAliasODBC( AnsiString aAliasName, AnsiString aFilenameMDB )
{
  TRegistry *reg = new TRegistry() ;
  reg->RootKey = HKEY_LOCAL_MACHINE ;
 
  if( !reg->OpenKey( "\\Software\\ODBC\\ODBC.INI\\ODBC Data Sources",false ) )
  {
     return( false ) ;
  }
  reg->WriteString( aAliasName, "Microsoft Access Driver (*.mdb)" ) ;
 
  if( !reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\" +aAliasName,true) )
  {
    return( false );
  }
  reg->WriteString( "DBQ", aFilenameMDB ) ;
  reg->WriteString( "Driver", "C:\\WINDOWS\\System32\\odbcjt32.dll" ) ;
  reg->WriteInteger( "DriverId", 25 ) ;
  reg->WriteString( "FIL", "MS Access;" ) ;
  reg->WriteString( "UID", "" ) ;
  reg->WriteInteger( "SafeTransactions", 0 ) ;
  delete reg ;
  return( true );
}

Cette fonction est a utiliser de la façon suivante:

Code :

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

1
2
 
CreateAliasODBC( "NOM_ALIAS_PERSO", "C:\\Program Files\\MonAppli\\myDB.mdb" ) ;

[Fbartolo]

Ou alors utiliser ADO (TADOxxx) qui ne nécessite aucune déclaration d'alias et qui est bien plus rapide en exécution (le moteur jet étant installé d'office dans tous les PC) et tu peux même exécuter des requêtes stockée dans Access... et c'est méga rapide (like procédures stockées)

[faniette]

Bonjour,
j'ai utilisée votre code sat83 mais j'ai pas réussi.
merci d'avance

[Crayon]

Bonjour,
j'ai utilisée votre code sat83 mais j'ai pas réussi.
merci d'avance

faniette, tu laisses souvent sur le forum des messages incomplet. Peut-tu préciser se qui ne fonctionne pas. Est-ce que tu as des messages d'erreur ou des warnings?

Est-ce que tu as les droits d'administrateur sur la machine où tu teste car des fois HKEY_LOCAL_MACHINE n'est pas accessible en écriture?

Est-ce que tu as vérifier le registre pour voir si les clefs étaient écrite?

À la place d'utiliser:

Code :

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

CreateAliasODBC( "NOM_ALIAS_PERSO", "C:\\Program Files\\MonAppli\\myDB.mdb" ) ;

Essaie plustôt ceci:

Code :

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

1
2
3
4
if(CreateAliasODBC( "NOM_ALIAS_PERSO", "C:\\Program Files\\MonAppli\\myDB.mdb" ) == false)
{
    ShowMessage("Il y a eu un problème avec la fonction CreateAliasODBC");
}

La prochaine fois que sa ne fonctionne pas, peux-tu mettre le code que tu as utilisé.

[faniette]

Bonjour

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
Voici le code que j'ai utilisé
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit5.h"
#include "Unit11.h"
#include "Unit37.h"
#include "Unit38.h"
#include "Unit41.h"
#include "Unit42.h"
#include <registry.hpp>
 
 
bool CreateAliasODBC( AnsiString aAliasName, AnsiString aFilenameMDB )
{
  TRegistry *reg = new TRegistry() ;
  reg->RootKey = HKEY_LOCAL_MACHINE ;
 
  if( !reg->OpenKey( "\\Software\\ODBC\\ODBC.INI\\ODBC Data Sources",false ) )
  {
     return( false ) ;
  }
  reg->WriteString( aAliasName, "Microsoft Access Driver (*.mdb)" ) ;
 
  if( !reg->OpenKey("\\Software\\ODBC\\ODBC.INI\\" +aAliasName,true) )
  {
    return( false );
  }
  reg->WriteString( "DBQ", aFilenameMDB ) ;
  reg->WriteString( "Driver", "C:\\WINDOWS\\System32\\odbcjt32.dll" ) ;
  reg->WriteInteger( "DriverId", 25 ) ;
  reg->WriteString( "FIL", "MS Access;" ) ;
  reg->WriteString( "UID", "" ) ;
  reg->WriteInteger( "SafeTransactions", 0 ) ;
  delete reg ;
  return( true );
  if(CreateAliasODBC( "system", "C:\\Dossier\\Capitale.mdb" ) == false)
{
    ShowMessage("Il y a eu un problème avec la fonction CreateAliasODBC");
}
}

apres execution quand je click sur le ok de l'invite de connexion de l'application j'ai une notification d'une exception du débogueur
"LE PROJET A PROVOQUE UNE CLASSE D'EXCEPTION EDBENGINEERROR AVEC LE MESSAGE 'paramétre de configuration incorrect"
merci d'avance pour votre aide

[Crayon]

Est-ce que c'est une erreur de copier/coller ou tu as vraiment mis du code après le return( true )???

[faniette]

salut
j'ai pas comprie quesque tu veut dire

Code :

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

tu as vraiment mis du code après le return( true )???

mais j'ai fait copier /coller de code , est ce que il ya une autre methode de le faire?
merci d'avance

[Crayon]

Code :

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

1
2
3
4
5
6
7
  return( true );
  // LE CODE QUI SUIT NE SERA JAMAIS EXÉCUTÉ,
  // CAR TU SORS DE LA FONCTION AVEC LA LIGNE PRÉCÉDENTE
  if(CreateAliasODBC( "system", "C:\\Dossier\\Capitale.mdb" ) == false)
{
    ShowMessage("Il y a eu un problème avec la fonction CreateAliasODBC");
}

[faniette]

Bonjour,
sayé j'ai résolu le probleme, merciiiiiiii