Discussion :

[zemeilleurofgreg]

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 :

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

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

@+

[BuzzLeclaire]

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

A plus.

[zemeilleurofgreg]

euhhhhhhhhhhhhhhhh ......

je reste sans voix devant autant de simplicité !

Merci Buzz

@+

[zemeilleurofgreg]

ça fonctionne nikel

Encore un grand merci

[rec82]

BON JOUR CAMADE
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 beaucoup

[zemeilleurofgreg]

voici le code pour ouvrir un état Access :

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

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

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 :

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

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;

[zemeilleurofgreg]

pour éviter d'utiliser les constantes

Code :

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

1
2
acViewNormal, acViewDesign,
    acViewPreview, acEdit

Tu peux ajouter "AccessXp" dans les Uses.

@+