Discussion :

[sehing7]

vb 6
access

bonjour..
j'ai 03 tables :
1. entrees, contient les champs suivant : id, qte
2. sorties, contient les champs suivant : id, qts
3. etat, contient les champs suivant : id, qte, qts, ecart (la colone qte et qts sont vide)

je voudrais importer la colone " qte" de la table etat par le contenu de la colone "qte" de la table entrees.
et remplir la colone " qts" de la table etat par le contenu de la colone "qts" de la table sorties.

qlq 1 peut m'aider a trouver le sql qui regle ce pb...

merci d'avance

[jfdmagic]

tes tables sont-elles liées par une relation One to Many (un à plusieurs) ?

Y a t-il intégrité référentielle entre les deux tables ?

[AnneCa]

Dans le cas où tu as une relation 1-1 càd Id est unique dans chaque table, tu peux utiliser ce SQL:

Code :

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

1
2
3
4
5
6
INSERT INTO etat SELECT 
id = t1.id,
qte = t1.qte,
qts = t2.qts,
ecart = 0  // tu peux mettre aussi un truc du genre t2.qte - t1.qts
FROM entrees t1 INNER JOIN sorties t2 on t1.id = t2.id

[sehing7]

merci de m'avoir repondu....

1. la table entrees : id : clé primaire
2. sorties : id : clé primaire
3. etat : id : clé primaire

j'ai met ce

Code :

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

1
2
Dim ecart As Recordset
Set ecart = Base.OpenRecordset("INSERT INTO ecart SELECT id= t1.id, qte = t1.qte,qts = t2.qts,ecart = 0  FROM entrees t1 INNER JOIN sorties t2 on t1.id= t2.id")

mais ca n'a pas marché....
erreur d'execution 3352 il n ya pas de nom de champ dans l'instruction insert into (id=t1.id)

[jfdmagic]

tu n'es pas clair(e) dans tes propos.

est-ce le même id dans les 3 tables ? comment tes tables sont-elles reliées ?

si tes champs reprennent la même chose et que ce sont les mêmes id, il n'est peut-être pas nécessaire de séparer les tables (tu compliques inutilement) car, ce qui t'intéresse, c'est bien la table état ? ....

Etat : id, qte, qts , ecart avec id : clé primaire

lors du remplissage, il suffit de dire que ecart = qts - qte

tu as ainsi une table unique et des requêtes beaucoup plus simples.

[sehing7]

je travail dans une application de gestion de stock...c'est a dire une application qui marche deja...sur cette application l'option etat de stock n'existe pas..
alors j'ai procédé comme suivant : j'ai créé les tables : entrées, sorties et etat.
pour les deux tables entrées et sorties, j'ai pu les remplire via ma base de données...
il me rest maintenant la table "etat". je voudrais la remplir via ces deux table...voila

Code :

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

1
2
Dim ecart As Recordset
Set ecart = Base.OpenRecordset("INSERT INTO ecart SELECT id = t1.id , qte = t1.qte,qts = t2.qts,ecart = 0  FROM entrees t1 INNER JOIN sorties t2 on t1.id = t2.id ")