Executer une procédure Access sous C++Builder

Version imprimable

01/12/2006, 17h12
kmaniche

Executer une procédure Access sous C++Builder
Bonjour,

sur une application j'utilise une base de donnée Access, dans Access j'ai fais une procédure écrite dans un module.
Code:

1 2 3 4 5 6 7 Private Sub update() .... .... .... .... End Sub
Maintenant, dans mon programme je veux lancé l'execution de cette procédure "update()". comment le faire svp.

Merci d'avance.
01/12/2006, 18h44
Mat.M

C'est très compliqué; en général c'est l'inverse que l'on fait : des modules ou plug-ins en C++ qui sont appelés sous Access.
Sinon il faut créer un lien OLE/Automation sur Access , accéder aux objets qui permettent d'exécuter des méthodes de modules de classe.
Il faut prendre l'aide VBA voir la hiérarchie des objets...
Le mieux vraiment c'est de déporter les traitements d'Access vers C++, Access ne servant qu'à stocker et trier les données via SQL
01/12/2006, 20h18
kmaniche

Ok, mais la procédure stockée dans access sert à mettre à jour la base de données (tables) depuis un serveur de données.

Comment le faire même si c en utilisant le pilotage ole.

@+;)
01/12/2006, 21h53
Mat.M

Citation:

Envoyé par kmaniche

Ok, mais la procédure stockée dans access sert à mettre à jour la base de données (tables) depuis un serveur de données.

Comment le faire même si c en utilisant le pilotage ole.

@+;)

? Impossible de faire des procédures stockées dans Access
02/12/2006, 08h28
kmaniche

Citation:

Envoyé par Mat.M

? Impossible de faire des procédures stockées dans Access

Non, mais ma procédure est enregistrée dans un module sous access, et je cherche à l'executer à partir de c++Builder. peut importe, par ole, ou autre chôse.

merci de m'aider svp.
02/12/2006, 09h46
kurkaine

Je ne répondrai pas à ta question car je n'ai pas la réponse. Je peux toutefois te donner un conseil: pose cette question sur le forum Delphi et Base de Données, tu auras peut-être plus de renseignement car leur forum est spécialisé dans ce domaine.

Ce qui est codé en delphi peut-être en général recodé en c++.

Bon courage.
04/12/2006, 16h13
Mat.M

Citation:

Envoyé par kmaniche

Non, mais ma procédure est enregistrée dans un module sous access, et je cherche à l'executer à partir de c++Builder. peut importe, par ole, ou autre chôse.

merci de m'aider svp.

D'abord employons la même terminologie : procédure=requête SQL ?
06/12/2006, 02h02
Fbartolo

Ce sujet m'interresse aussi.

Pour l'instant via ADO on peut avoir accès aux tables et aux requêtes présentes dans le fichier Access.

L'accès à des modules fonctionnels déclarés Public peuvent être intéressant, dans mon cas il sagit de faire cohabiter deux compétances afin de garantir des délais de réalisation du projet (avec migration complète ensuite pour ne garder que la base de données sur Access et être portable sur d'autres SGBD).

Donc je suis aussi preneur de solutions
06/12/2006, 07h26
kmaniche

il ne manque que la solution.
Dans mon cas, cette procedure à pour objectif de faire la mise à jour des tables, et execute une requêtte de création de table.

Si dans le cas ou l'on ne peut pas lancer un procedure dans Access depuis C++Builder, quel serai la solution.
06/12/2006, 09h45
Fbartolo

Pour la requête tu peux l'exécuter avec une vue Dataset dessus (vu comme une table), tu lance une commande Text Sql Select et ta requête access va s'éxécuter.

Pour la partie module, je ne sais pas.
08/12/2006, 01h48
Fbartolo

Tiré de la FAQ Delfi:

Citation:

Pour exécuter une macro d'access à partir de Delphi, il faut ajouter un composant AccessApplication (Palette Serveurs) et utiliser le code suivant :
(*On ouvre d'abord la base.
Le second paramètre spécifie si nous désirons ouvrir la table en mode exclusif ou non*)
AccessApplication1.OpenCurrentDatabase('d:\essai.mdb',False);
//On exécute la macro
AccessApplication1.DoCmd.RunMacro('Macro1.MaMacro',emptyparam,emptyparam);
08/12/2006, 13h53
kmaniche
Bonjour,

J'ai réutilisé ton code :
Code:

1 2 3 AccessApplication1->OpenCurrentDatabase(AnsiString("E:\\MDB\\GD.mdb").c_str(),false); AccessApplication1->DoCmd->RunMacro("Macro1.MaMacro",NULL,NULL);
Mais, il me génère une erreur de compilation :

Citation:

Build
E2034 Impossible de convertir 'char *' en 'tagVARIANT'
E2342 Mauvaise correspondance de type dans le paramètre 'MacroName' ('tagVARIANT' désiré, 'char *' obtenu)
E2034 Impossible de convertir 'int' en 'tagVARIANT'
E2342 Mauvaise correspondance de type dans le paramètre 'RepeatCount' ('tagVARIANT' désiré, 'int' obtenu)
E2034 Impossible de convertir 'int' en 'tagVARIANT'
E2342 Mauvaise correspondance de type dans le paramètre 'RepeatExpression' ('tagVARIANT' désiré, 'int' obtenu)

Si quelqu'un peut nous aider à resoudre ce problème, il est le bien venu.

Merci d'avance.
08/12/2006, 14h30
blondelle
Salut kmaniche:
Une idee comme cela.
Si OleAcess se gere comme OleExcel, il est preferable de declarer avant ton chemin de fichier.
Essaye de lancer la Macro comme ci dessous et verifie que les parametres NULL ne doivent pas etre a Unassigne
Code:

1 2 3 4 5 AnsiString vFilename; vFilename = "E:\\MDB\\GD.mdb"; AccessApplication1->OpenCurrentDatabase(vFilename.c_str(),false); AccessApplication1->DoCmd->RunMacro("Macro1", "MaMacro", NULL, NULL);
Bon courage.
A+
08/12/2006, 14h43
kmaniche
Meci "blondelle",

Toujour la même erreur.

Il sagit d'un pointeur sur un wchar_t.

j'ai essayé de faire :
Code:

1 2 wchar_t *p="monchemin" ;
mais ça toujour le même problème.

A suivre...

un exemple sous excel pour les variant:

Code:

1
2
3
4
5
Variant vFileName, vXLWorkbooks, vXLWorkbook;
 
vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\classeur1.xls";
vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);

08/12/2006, 16h33
kmaniche

Je pense que la solution de "Blondelle" est presque bonne.
Reste toutefois la convertion en wchar_t*:(

Une question: 8O Comment déclarer un variable de type wchar_t* et l'initialisée avec ce que l'on veux. ?

Merci de nous aider.
08/12/2006, 16h52
blondelle

J'ai fait une recherche dans VBAccess, les commandes qui ont ete passe par Fbartolo sont du VBAccess il faut trouver comment les transformer en OleAccess ca ne va pas etre facile de trouver des exemples.
08/12/2006, 17h08
kmaniche

Citation:

Envoyé par blondelle

J'ai fait une recherche dans VBAccess, les commandes qui ont ete passe par Fbartolo sont du VBAccess il faut trouver comment les transformer en OleAccess ca ne va pas etre facile de trouver des exemples.

A mon avie, si je ne me trompe pas, c'est du DELPHI.

Citation:
Envoyé par Fbartolo
un exemple sous excel pour les variant:
Code:

1 2 3 4 5 Variant vFileName, vXLWorkbooks, vXLWorkbook; vFileName = "c:\\Home\\Sources\\Cpp\\Test\\Excel\\classeur1.xls"; vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks"); vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
Non non c'est bien sous BCB..

Non, mais je fesai référence à ce code :

Code:

1
2
3
4
5
6
7
 
/*On ouvre d'abord la base.
Le second paramètre spécifie si nous désirons ouvrir la table en mode exclusif ou non*/
AccessApplication1.OpenCurrentDatabase('d:\essai.mdb',False);
 
//On exécute la macro
AccessApplication1.DoCmd.RunMacro('Macro1.MaMacro',emptyparam,emptyparam);

08/12/2006, 17h44
blondelle

La Macro1 avec le nom MaMacro est elle deja presente dans ta base Access.
08/12/2006, 18h05
kmaniche

Oui, mais sous le nom de Update()
Pièce jointe 7480

Je sais ouvrir Access et charger la base, je ne sais pas s'il faut utiliser < #include <utilcls.h> >, je ne l'ai pas fait.
Le code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSAccess;
vMSAccess = Variant::CreateObject("Access.Application");
vMSAccess.OlePropertySet("Visible", true);
Variant vFileName;
 
// ouverture d'une table Access
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb";
 
vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false);
}

Je cherche pour lancer la macro.

J'ai repris ton code, :

Code:

1
2
3
4
5
6
7
8
9
10
 
Variant vMSAccess;
vMSAccess = Variant::CreateObject("Access.Application");
vMSAccess.OlePropertySet("Visible", true);
Variant vFileName;
 
// ouverture d'une table Access
vFileName = "E:\\MDB\\GDO.mdb";
 
vMSAccess.OleFunction("DoCmd.RunMacro \"update\", false, false");

il me manque la façon de faire l'appel

Comme je ne connais pas Access, et que je n'ai aucune Doc, je n'arrive pas a programmer une Macro pour tester, je te donne donc le code pour ouvrir et fermer Access charger ta base, la je suis sur que cela fonctionne, pour lancer la Macro a voir?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSAccess;
vMSAccess = Variant::CreateObject("Access.Application");
vMSAccess.OlePropertySet("Visible", true);
Variant vFileName;
 
// ouverture d'une base Access
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb";
vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false);
// ici la base est chargee dans Access
 
// AccessApplication1.DoCmd.RunMacro('Macro1.MaMacro',emptyparam,emptyparam);
vMSAccess.OlePropertyGet("DoCmd").OlePropertySet("RunMacro", "essai"); // les parametres NULL sont optionnels
 
// fermeture d'Access
vMSAccess.OleProcedure("CloseCurrentDatabase"); // on ferme la base
vMSAccess.OleFunction("Quit"); // on quitte Access
// liberation memoire
vMSAccess = Unassigned;
}

J'ai reussi avec Access 2003 a ouvrir Access charger une base executer une macro integree a la base fermer la base quitter Access.
le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
// je ne suis pas sur mais au cas ou ne pas oublier #include <utilcls.h>
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vMSAccess;
vMSAccess = Variant::CreateObject("Access.Application");
vMSAccess.OlePropertySet("Visible", true);
Variant vFileName;
 
// ouverture d'une table Access
vFileName = "C:\\Documents and Settings\\blondelle\\Mes documents\\MySQL\\UtilisationBDE\\fichiers\\maBdd\\maBdd1.mdb";
vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false);
 
// executer la macro
vMSAccess.OleProcedure("Run", "essai");
 
// fermeture d'Access
vMSAccess.OleProcedure("CloseCurrentDatabase"); // on ferme la base
vMSAccess.OleFunction("Quit"); // on quitte Access
// liberation memoire
vMSAccess = Unassigned;
}

08/12/2006, 22h48
kmaniche

Merci pour vos efforts.

1- J'ai créé une nouvelle base de données, sauvée dans c:\\mabd.mdb
2- Créé une macro "Macro1" comme action j'ai fait: BoitMsg ,
elle affiche juste une boite de dialogue // comme ShowMessage.

J'ai executer les deux solutions que tu as proposé :

Pour la première solution, il me génère une exception : Membre introuvale ??
pour la deuxième solution, il me génère une exception : EOleSysError ???

Je ne comprend pas tout cela :furieux:.

Merci encore une fois "Blondelle" ;)
08/12/2006, 23h11
blondelle

A tu essaye ta macro directement dans Access.
Sur quelle ligne se situe l'erreur.
Je joind la base avec la macro qui affiche une boite de dialogue

OK j'ai trouver mon erreur.
voici le code final :

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
 
 
//
// DECLARATION
//
   Variant vMSAccess,  // Application ACCESS
             vFileName;   // Nom de la base de données
 
//
// LANCEMENT DE MS ACCESS : en arrière plan
//
   vMSAccess = Variant::CreateObject("Access.Application");
   vMSAccess.OlePropertySet("Visible", false);
 
//
// OUVERTURE DE LA BASE DE DONNES
//
   vFileName = "C:\\maBdd1.mdb";
   vMSAccess.OleFunction("OpenCurrentDatabase", 
                                    vFileName, 
                                    false);
 
//
// EXECUTION DE LA PROCEDURE :: ESSAI
//
   vMSAccess.OleProcedure("Run", "essai");
 
//
// FERMETURE DE LA BASE DE DONNEES
//
   vMSAccess.OleProcedure("CloseCurrentDatabase"); 
 
//
// FERMETURE DE MS ACCESS
//
   vMSAccess.OleFunction("Quit"); 
 
//
// LIBERATION DE LA MEMOIRE
//
   vMSAccess = Unassigned;

Ce code sert pour executer une procédure stockée dans Access, implémentée dans un module.

MERCI "BLONDELLE" :)

Supposons que l'on veux executer une macro, comment-faire.
j'ai fais ceci :

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
 
//
// LANCEMENT DE MS ACCESS : en arrière plan
//
   vMSAccess = Variant::CreateObject("Access.Application");
   vMSAccess.OlePropertySet("Visible", false);
 
//
// OUVERTURE DE LA BASE DE DONNES
//
   vFileName = "C:\\maBdd1.mdb";
   vMSAccess.OleFunction("OpenCurrentDatabase", 
                                    vFileName, 
                                    false);
 
//
// EXECUTION DE LA MACRO:: Macro1
//
   vMSAccess.OleProcedure("RunMacro", "Macro1");
 
//
// FERMETURE DE LA BASE DE DONNEES
//
   vMSAccess.OleProcedure("CloseCurrentDatabase"); 
 
//
// FERMETURE DE MS ACCESS
//
   vMSAccess.OleFunction("Quit"); 
 
//
// LIBERATION DE LA MEMOIRE
//
   vMSAccess = Unassigned ;

Mais sans succé !!

09/12/2006, 13h58
blondelle

Salut kmaniche:
Je suis tres content pour toi que cela marche.

Citation:

vMSAccess.OleProcedure("RunMacro", "Macro1");

Pour pouvoir te repondre je suis alle faire un tour sur la FAQ Access, il y a des commandes qui ne fonctionnent que pour Access 97, "RunMacro" refuse de fonctionner en Access 2003? quand a appeler Macro1 dans Access, a voir comment c'est concu Macro1 semble correspondre a Module1 (en Excel), et un Module peut contenir plusieurs procedures, d'ailleurs la fonction RunMacro demande la Macro puis la procedure puis deux parametres Null (facultatifs).
Pour ecrire la Procedure VBAccess j'ai galere, je ne connais pas Access, et je n'ai aucun document sur son fonctionnement, l'essentiel est d'avoir trouve une solution de depannage.
09/12/2006, 14h31
kmaniche

Merci encore une fois,

Alors je fais :resolu:
09/12/2006, 15h31
Fbartolo

Ce qui est dommage c'est qu'il faut access sur le poste, contrairement à OLEDB pour l'accès aux requêtes et tables.

Merci pour vos recherches.

Je pense que certaines solutions pourraient aller en FAQ
09/12/2006, 15h38
kmaniche

Citation:

Envoyé par Fbartolo

Ce qui est dommage c'est qu'il faut access sur le poste, contrairement à OLEDB pour l'accès aux requêtes et tables.

Merci pour vos recherches.

Je pense que certaines solutions pourraient aller en FAQ

Ben oui, et tout ça grace à BLONDELLE
09/12/2006, 15h48
blondelle

Citation:

Fbartolo a écrit :
Ce qui est dommage c'est qu'il faut access sur le poste, contrairement à OLEDB pour l'accès aux requêtes et tables.

Merci pour vos recherches.

Je pense que certaines solutions pourraient aller en FAQ

C'est propose a la FAQ comme il n'existe rien pour gerer Access avec BCB c'est un debut.
18/12/2006, 22h10
kmaniche

Bonsoir,

Histoire de mise au point,

Comment dois-je faire si ma base de donnée été protégée par mot de passe.:oops:

Merci "Blondelle"
18/12/2006, 23h19
blondelle
kmaniche a ecrit:

Citation:

Bonsoir,

Histoire de mise au point,

Comment dois-je faire si ma base de donnée été protégée par mot de passe.

Sans garantie car je ne connais pas Access et je n'ai pas de DOC dans la FAQ access j'ai trouve ca.

Citation:

Il est possible d'intégrer le mot de passe au code lors de l'ouverture de la base de données :
Dim db as Dao.DataBase

Set db = DBEngine.OpenDatabase("C:\MaBase.mdb", False, False, ";pwd=password")

'Effectuer le traitement sur la base de données ici.

db.Close

Je pense donc que le code devrait ressembler a ca.
Code:

1 2 3 4 Variant password; password = "MotDePasse"; vMSAccess.OleFunction("OpenDatabase", vFileName, false, false, password);
18/12/2006, 23h39
blondelle
J'ai trouve dans l'aide une autre facon qui correspond a la facon qui avait servi au debut pour lancer ton appli.
Code:

1 2 vMSAccess.OleFunction("OpenCurrentDatabase", vFileName, false, password);
19/12/2006, 14h27
blondelle

Peut tu me dire si les fonction d'ouverture de fichier proteges fonctionnent.

Fuseau horaire GMT +2. Il est actuellement 17h02.