Discussion :

[fikou]

Bonjour à tous,
Dans une base avec relation et après avoir ajouter un enregistrement je n’arrive pas à afficher les information de la table liée. Cela fonctionne très bien avant l’ajout. Après l'ajout il faut que je quitte l’appli et que je la relance, et la lors de la navigation mon nouvel enregistrement s’affiche normalement

‘*** Init Recordset

Set adoConnect = New ADODB.Connection
adoConnect.Provider = "Microsoft.Jet.OLEDB.4.0"
adoConnect.ConnectionString = App.Path & "\Commandes.mdb"
adoConnect.Open

adoCommand.ActiveConnection = adoConnect
adoCommand.CommandText = "SELECT * FROM Produits P, Fournisseurs F WHERE P.IdProduitsFournisseurs = F.IdFournisseurs"
adoRecordset.CursorLocation = adUseClient
adoRecordset.CursorType = adOpenDynamic
adoRecordset.LockType = adLockPessimistic
adoRecordset.Open adoCommand

Ici je fais une saisie dans un form
Puis j’écrit dans la base
adoRecordset.AddNew
adoRecordset!NoArticle = oForm.txtNoArticle.Text
adoRecordset!Libellé = oForm.txtLibelle.Text
adoRecordset!PrixHT = oForm.txtPrixHT
adoRecordset!IdProduitsFournisseurs = iIdFournisseur
adoRecordset.Update

J’affiche le résultat dans un form mais le nom du fournisseur n’apparaît pas l’IdFournisseur est parfaitement renseigné.
J’ai essayé adoRecordset.Properties.Refresh après le update mais cela ne fonctionne pas.

Merci d’avance
Fikou

[DrQ]

Essaies de faire adoRecordset.Requery après ton Update.

[fikou]

Bonjour,
Merci Dr. Q
J’ai après le adorecordset.Update mis adorecordset.Requery et la je voyais le nom du fournisseur, mais je ne retrouvais pas l’enregistrement que je venait d’ajouter.
Alors j’ai fait ceci :

adoRecordset.Update
‘Je récupère l’IdProduit
iIdProd = adoRecordset!idproduit
adoRecordset.Requery
adoRecordset.MoveFirst
adoRecordset.Sort = "Libellé ASC"
adoRecordset.Find "idProduit = " & iIdProd

Je ne sais pas ce que vont dire les puristes mais apparemment cela fonctionne (je n’ai pu tester à fond).
Dr Q toi qui à écrit un tutoriel sur ADO ou trouver des infos simples et concrètes sur les recorsets et autre.
A chaque fois que j’ouvre un livre, un tut, une doc je trouve une méthode différente pour par exemple créer/ouvrir une base de données.
Merci pour tout

Fikou

[DrQ]

Et bien pour ma part, ma source c'est MSDN puis un PC avec VB6 et je teste C'est tout.

Généralement dans le MSDN sont fournis des exemples très bien faits. Le seul souci (enfin pour certains) c'est que la doc est souvent en anglais.

[fikou]

Bonjour,
Je trouve MSN difficile pour un autodidacte dont l'informatique n'est pas son métier, mais promis je vais m'y mettre.
Pour le p'tit bout de code, tient il la route ou c'est du bricolage.
Merci
Fikou