Bonjour,
Je travaille en VB6 et j'accède à ma base avec ADO et des requêtes SQL.
J'ai une table "Composant", une table "Categories" et une table "Marque". L'application finale aura encore plus de tables et de relations mais si j'arrive à gèrer ces 3 là, le reste posera pas de problème. Chaque table a un ID clé primaire, ce qui complique surement les choses mais qui est nécessaire.


Tout d'abord, pour la suppression, pas de problème, avec ce code ADO:

---

TbComposants.MoveFirst
While (Not TbComposants.EOF)
    If (TbComposants("NomComposant") = ListComposants.Text) Then
        If (TbComposants.RecordCount <> 0) Then
            TbComposants.Delete
            TbComposants.Update
            TbComposants.Requery
        End If
    End If
TbComposants.MoveNext
Wend

---

J'aurais pu m'en sortir avec une requête sql, mais soit, çà marche bien comme çà.
Maintenant j'ai un soucis pour l'ajout et la mise à jour. Comme la mise à jour et l'ajout sont proche techniquement, c'est par l'ajout que j'ai commencé avant de me lancer dans la modification. Mon premier test a été:

---

Private Sub CommandAjout_Click()
Combo2.Text = ""
Combo3.Text = ""
Text1.Text = ""
End Sub

Private Sub CommandValiderAjout_Click()
CmdAdoAddComposant.ActiveConnection = MaConnection
CmdAdoAddComposant.CommandText = "SELECT * FROM Composants"
Composants.Ref_Marque FROM Composants"
TbComposants.CursorLocation = adUseClient
TbComposants.CursorType = adOpenDynamic
TbComposants.LockType = adLockPessimistic
TbComposants.Open CmdAdoAddComposant
TbComposants.AddNew
TbComposants![NomComposant] = IIf(IsNull(Text1.Text), "", (Text1.Text))
TbComposants![Ref_Categorie] = IIf(IsNull(Combo2.Text), "", (Text1.Text))
TbComposants![Ref_Marque] = IIf(IsNull(Combo3.Text), "", (Text1.Text))
TbComposants.Update
TbComposants.Requery
End Sub

---

Mais celà ne fonctionne pas, j'ai une erreur, vb6 n'associe pas les références aux tables.
Le seul moyen que j'ai trouvé pour ajouté des composants à la table est celui ci:

---

Private Sub Command4_Click()
CmdAdoAddComposant.ActiveConnection = MaConnection
CmdAdoAddComposant.CommandText = "INSERT INTO Composants ( Id, NomComposant, Ref_Categorie, Ref_Marque ) SELECT Composants.Id, Composants.NomComposant, Composants.Ref_Categorie, Composants.Ref_Marque FROM Composants"
TbComposants.CursorLocation = adUseClient
TbComposants.CursorType = adOpenDynamic
TbComposants.LockType = adLockPessimistic
TbComposants.Open CmdAdoAddComposant
TbComposants.requery
End Sub

---

Mais celui ci rajoute le contenu entier de la table composant, à la table composant. Mais celà fonctionne, donc je pense que c'est déjà une bonne base.
Il faudrait donc que dans ma requête SQL, je spécifie le contenu de NomComposant, Ref_Categorie et Ref_Marque, ce que j'ai essayé sans succès pour l'instant.

Voilà, merci à ceux qui ont lu jusqu'au bout et encore plus à ceux qui répondront
A bientot

merci
raben

salut,

ta requête doit se présenter comme ça :
"INSERT INTO Composants ( Id, NomComposant, Ref_Categorie, Ref_Marque )
SELECT Composants.Id, Composants AS Expr1. NomComposant, Composants.Ref_Categorie
AS Expr2, Composants.Ref_Marque AS Expr3 FROM Composants
WHERE + la valeur de l' Id de l' enregistrement que tu dois ajouter

Bon on laisse le code pour l' instant et corrigeant quelques imperfection au niveau
de la conception:
1° lorsqu' il s' agit de tables liées, il faut éviter le N° Auto
   et opter pour un Long

2° C' est mieux d' avoir, dans les trois tables, le même nom de champ
sur le quel est établie la relation

Composant    Categories     Marque
 Id                     Id                   Id

3° je viens de me rendre compte que
"INSERT INTO Composants ( Id, NomComposant, Ref_Categorie, Ref_Marque )
SELECT Composants.Id, Composants.NomComposant, Composants.Ref_Categorie,
Composants.Ref_Marque FROM Composants"

tu inseres dans Composants le contenu de Composant...
il y' a là quelque chose qui ne colle pas ! , non ?

...

ce que je veux dire c' est :

                           *Composants   
*Categories                  Id
 Ref_Categorie --->  Ref_Categorie            *Marques                            
                               Ref_Marque   <---------   Ref_Marque  

 

Si la propriété "Mettre à jour automatiquement" de la relation est True:
>tu changes dans Categories, ça  change automatiquement dans Composants
>tu changes dans Marques, ça  change automatiquement dans Composants 

2°Après
TbComposants.AddNew
Ou est l' Id ? Si c' est Auto , d' accord
sinon tu dois récupérer le dernier et l' incrémenter de 1

3° Peut être que chaine vide autorisée pou NomComposant
Mais, tes tables étant liées,
TbComposants![Ref_Categorie] = IIf(IsNull(Combo2.Text), "", (Text1.Text))
TbComposants![Ref_Marque] = IIf(IsNull(Combo3.Text), "", (Text1.Text))
sont érronées               
Dans Composants,Ref_Categorie ne doit pas être nulle.
Ref_Marque aussi...

Bonjour,

En efftet la requête rajoute la table composants à la table composants, mais au moins celà fonctionnait, donc je partais de çà comme base.

La mise à jour des relations est bien automatique entre les tables.

En effet les champs ref_categorie et ref_marque doivent être rempli, mais je n'arrive pas à faire comprendre au programme qu'il doit les remplir en partant du textbox ou combobox, mais en allant chercher la valeur dans la table de la relation. J'ai essayé d'assigner un numérique, au cas ou le programme n'accepterait que la valeur d' id comme valeur.

merci

J'ai bien 2 combos avec catégories et marques qui sont remplies avec le contenu des tables respectives, que l'utilisateur peut choisir. Et un textbox pour le nom du composant que l'utilisateur doit encoder.

Je vais tenté sans les numéros auto pour categories et marques, je crois en effet que ca sera plus simple, que çà n'est pas nécessaire, et que ca sera plus facile. Mais on m'a toujours donné comme consigne de mettre des ids clé primaire pour chaque table.

Evidemment que la requête de la table composants ne sert à rien et créer des doublons, mais c'était le seul moyen d'ajouter quelque chose à ma table et qui fonctionnait.

merci

^^Je vais tenté sans les numéros auto pour categories et marques, je crois en effet que ca sera plus simple,..."
t' as donc rien compris...!
crois moi ça sera encore plus difficile
Indexes Categories sur Ref_Categorie (Texte)
Indexes Marques sur Ref_Marque (Texte)
Quand tu listes dans les combos, c' est plus facile de récupérer du texte...

pardon !
c' est moi qui a mal compris...
je croyais que c' était tenté avec  les numéros auto...

pas de soucis ;)
je suis entrain d'arriver a quelque chose :)
enfin même, çà marche ! mais je refais çà au propre demain et j'attaque la mise à jour après l'insertion

merci !