Requête Access via Delphi

Version imprimable

Bonjour à tous,

non, je ne veux pas afficher tout simplement le résultat d'une requête dans un DBGrid ou tout autre composant de la famille !

Ce que je voudrais, c'est exécuter une requête (donc qui existe déja dans la DB Access) via delphi et visualiser le résultat DANS Access. (je sais que c'est puant mais on a pas toujours le choix. Le boss c'est le boss !).

J'ai déja utilisé un truc du genre pour les états ou les macros :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 try vAccess := GetActiveOleObject('Access.Application'); Except vAccess := CreateOleObject('Access.Application'); end; vAccess.visible:=true; vAccess.OpenCurrentDatabase(DBPath, false); //pour exécuter un état vAccess.DoCmd.OpenReport('monrapport', acViewPreview, EmptyParam, EmptyParam); //pour exécuter une macro vAccess.DoCmd.RunMacro('mamacro', EmptyParam, EmptyParam);
Mais pour une requête je sais pas du tout !! :?

Quelqu'un à une idée ?

Merci d'avance

@+

26/09/2008, 15h12
BuzzLeclaire

http://www.blueclaw-db.com/docmd_openreport.htm

A plus.
28/09/2008, 16h19
zemeilleurofgreg

euhhhhhhhhhhhhhhhh ......

je reste sans voix devant autant de simplicité ! :oops:

Merci Buzz

@+
29/09/2008, 10h28
zemeilleurofgreg

ça fonctionne nikel

Encore un grand merci :king:
29/09/2008, 13h13
rec82

UNE PETITE ILLUSTRATION

BON JOUR CAMADE :D
BON JOUR ZEMEILLEUROFGREG VOTRE DISCUSSION EST trés interessent
si tu peut une petite illustration sur RunMacro et Open Report et les argumment de ces fonction.
plus quelle est la commande pour exécuter une requete existe dans une base access via delphi.

merci beaucoup8-):lol:

:salut:

voici le code pour ouvrir un état Access :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TfrmMain.lbprintrapportDblClick(Sender: TObject);
const
    acViewNormal = $00000000;
    acViewDesign = $00000001;
    acViewPreview = $00000002;
begin
  try
    vAccess := GetActiveOleObject('Access.Application');
  Except
    vAccess := CreateOleObject('Access.Application');
  end;
  vAccess.visible:=true;
  vAccess.OpenCurrentDatabase(DBPath, false);
  vAccess.DoCmd.Maximize;
  vAccess.DoCmd.OpenReport('monetat', acViewPreview, EmptyParam, EmptyParam); //monetat étant le nom de l'état
end;

pour une macro :

Code:

1
2
3
4
5
6
7
8
9
10
 DisplayInfoPanel('Création du fichier ANR en cours ...');
   try
    vAccess := GetActiveOleObject('Access.Application');
  Except
    vAccess := CreateOleObject('Access.Application');
  end;
  vAccess.OpenCurrentDatabase(DBPath, false);
  vAccess.DoCmd.RunMacro('mamacro', EmptyParam, EmptyParam);//mamacro étant le nom de la macro
  vAccess.CloseCurrentDatabase;
  vAccess.Quit;

et pour un query

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.Button1Click(Sender: TObject);
var
vAccess : variant;
begin
  try
    vAccess := GetActiveOleObject('Access.Application');
  Except
    vAccess := CreateOleObject('Access.Application');
  end;
  vAccess.visible:=true;
  vAccess.OpenCurrentDatabase('D:\Applications\Borland\Delphi7\Projects\Easy Master\DATA\BDC_DATA.mdb', false,'');
  vAccess.DoCmd.OpenQuery('Requete2', acViewNormal, acEdit);
end;

30/09/2008, 17h36
zemeilleurofgreg
pour éviter d'utiliser les constantes
Code:

1 2 acViewNormal, acViewDesign, acViewPreview, acEdit
Tu peux ajouter "AccessXp" dans les Uses.

@+