Déclarer BD Access, sans passer par l'ODBC

Version imprimable

11/11/2009, 08h51
faniette

Déclarer BD Access, sans passer par l'ODBC

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

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:

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:

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

13/11/2009, 12h47
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)
10/03/2010, 11h48
faniette

Bonjour,
j'ai utilisée votre code sat83 mais j'ai pas réussi.
merci d'avance
10/03/2010, 15h29
Crayon
Citation:

Envoyé par faniette

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:

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

Essaie plustôt ceci:
Code:

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

Bonjour

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

26/03/2010, 23h35
Crayon

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

salut
j'ai pas comprie quesque tu veut dire

Code:

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

Code:

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");
}

26/05/2010, 10h10
faniette

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