Discussion :

[Pistachou]

bonjour à tous

Je suis un débutant de chez débutant.

Je viens de faire un programme avec delphi7 qui me permet de surveiller le nombre d'enregistrements dans une base Access.

Je voudrais savoir s’il existe un moyen simple de déclencher une requête ajout, qui existe dans ma base Access.
Ou si je suis obligé de refaire une requête avec mon Adoquery ?.

merci de vos lumières

cordialement

Thierry

[Just-Soft]

Salut;

Tout à fait possible la seule contrainte est que ta requête doit être paramétrée et les paramètres doivent récupérer leurs données via ton interface fait avec Delphi.

[Pistachou]

Salut;

Tout à fait possible la seule contrainte est que ta requête doit être paramétrée et les paramètres doivent récupérer leurs données via ton interface fait avec Delphi.

Merci de cette info, mais je comprend pas ce que tu veux dire

Dans Acces j'ai une requête "transfert" qui copie tous les enregistrement d'une table1 dans une table2 ( tables identiques ) comment puis je déclencher cette requête dans mon apli Delphi.
merci

[Just-Soft]

Re;

y a pas mieux qu'un petit exemple !

supposons que tu as créé une requête dans ACESS nommée Transfert alors sous Delphi si tu utilise un composant Query tu n'as qu'à faire ça :

Query1.Close;
Query1.Clear;
Query1.SQL := 'Select * From Transefrt';
Query1.Open

comme si tu manipulé une table rien de différence l'ami.

[philnext]

Pour ta question d'origine il n'y a pas, à ma connaissance, de moyen de déclencher une requête contenue dans Access et le meilleur moyen est bien de passer par un ADOQuery.

[zemeilleurofgreg]

il y a l'objet ADOCommand prévu à cet effet

[Pistachou]

Merci à tous pour vos réponses.
je vais tester tout cela.

Juste comme je suis curieux j'avais fait une recherches dans le FAQ et j'ai trouvé ceci:
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);

je me retrouves avec le message "le serveur RPC n'est pas disponible" si quelqu'un peux m'expliquer
merci

[Pistachou]

je dois etre nul de chez nul pfeuuu

j'essaie de faire cette requête:

procedure TForm2.Button1Click(Sender: TObject);
begin
ars.SQL.Clear;
ars.SQL.Add('INSERT INTO fp_premium ');
ars.SQL.Add('SELECT * FROM fp_trimestrielle');
ars.Open;
end;

c'est a dire je veux ciopier tous les enregistrement de fp_trimestrielle dans fp_premium

j'ai le message suivant:

" Le fournissuer actuel ne prends pas en charge les jeux d'enregistrements multiples renvoyés à partir d'une exécution simple"

Quelqu un peut m'aider? merci

[philnext]

SELECT * INTO fp_premium FROM fp_trimestrielle

[Pistachou]

SELECT * INTO fp_premium FROM fp_trimestrielle

merci mais cela me repond que la table fp_premium existe deja et bloque

[Just-Soft]

Salut;

je dois reconnaître que la copie à travers SQL est plus rapide et pratique quant le nombre d'enregistrements est assez conséquent. En alternative tu peux toujours te contenter de ça:

TableCopie.First;
While not(TableCopie.Eof) do
begin
try
TableDest.AppendRecord([Champ1.AsValue,..., Champn.AsValue]);
TableCopie.Next;
except
// gestion des erreurs
end
end;

en supposant que ton composant est Table dans le cas d'un composant Query faut changer les nom c'est tout.

[philnext]

merci mais cela me repond que la table fp_premium existe deja et bloque

Oui le select Into crée la table, il faut donc la supprimer avant.

[zemeilleurofgreg]

si ta query existe déja dans la DB, pourquoi la réécrire ?

Utilises l'objet ADOCommand prévu à cet effet !

[Pistachou]

Oui le select Into crée la table, il faut donc la supprimer avant.

J’aurais peut du expliquer plus le principe:

j'ai une baseprod access qui sert au lancement en production ( pilotage des tours numérique)
j'ai des bases tampons dans les quelles viennent ce ranger les commandes en fonction de leurs types base1= lentille rigide base2= lentille souple base N lentilles N
j'ai créé un programme delphi qui me permet de visualiser ( Abakus vcl) le nombre de commandes en attente.
Je voudrais avec un bouton transférer le contenu de la base1 ou 2 dans la baseprod mais bien sûr sans l'éffacer avant car elle n'est peut-être pas vide.
Effectivement, j'aurais pu faire tout cela avec access mais les composants visuels sont nuls et les opérateurs doivent pouvoir faire cela sans réfléchir
D'ou mon choix de delphi car je possède delphi7 entreprise.
Mais je suis nul de chez nul.( ceci dit Delphi à l'air ttés sympa)
Merci de vos messages

thierry

[Pistachou]

Je viens de trouver la solution de mon probléme:
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add('INSERT INTO table1 ');
ADOQuery.SQL.Add('SELECT * FROM table2');
ADOQuery.ExecSQL et non open comme je l'écrivais.

merci