Besoin d'aide pour ADODC avec ACCESS

Signaler
Messages postés
8
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
6 juin 2005
-
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
-
Tout d'abord, bonjour,
Alors en fait, je suis en train de faire un QCM (Question à Choix Multiple) avec VB6 et je stock mes données dans une table sous access 2000. Pour faire la liaison VB - Access, j'utilise ADODC. J'ai réussi à faire la liaison mais je ne connais pas les commandes principale pour pouvoir exploiter ADODC.

Je désirerais connaitre quelque commande de base :
- Créer un nouvel enregistrement (en fait, j'utilise Adodc1.Recordset.AddNew mais il m'efface l'enregistrement sur le quel il était...)
- Mettre à jour un enregistrement
- Effacer un enregistrement
- Permettre d'afficher une donnée en utilisant des boutons d'option (en fait, j'ai 6 boutons d'option et il faudrait que si la réponse 1 est la bonne, le bouton 1 soit sélectionner, réponse 2 -> bouton 2, réponse 3 -> bouton 3, ... )
- Ne sélectionner que certains enregistrement (en fait, il y a une colonne de ma bdd nomée Module et je désirerais ne sélectionner que les questions d'un certain module)
- sélectionner un enregistrement sans utiliser les boutons de l'ADODC (en fait, il faudrait sélectionner X question au hasard et les affichées)

Bon et bien, je sais que comme celà ce ne doit pas être très clair mais si vous pouviez m'aider un minimum, ce serait saympa... Si vous avez besoin de plus de renseignement, n'ésitez pas à demander. Quoi qu'il en soit, je vous remercie d'avance pour votre aide.

8_mm

3 réponses

Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
apres le addnew et la MAJ des champs, et avant le close, il faut faire un update.
Messages postés
8
Date d'inscription
vendredi 10 septembre 2004
Statut
Membre
Dernière intervention
6 juin 2005

le problème est que je suis un novice et je ne vois pas exactement de quoi tu parle... pour le addnew, je comprends, la mise à jour des champs je ne sais en fait pas comment la faire pour le close, je n'en ai pas placé et comment dois-je faire le update?

je te remercie de bien vouloir me conseiller mais j'aurais du préciser que je ne m'y connais pas énormément... en fait, j'ai fait du VB à l'ordre de 4h/semaine durant cette année scolaire donc, je ne connais vraiment que les base de VB... c'est pour moi la première fois que je travail à l'aide d'une base de donnée...
Messages postés
123
Date d'inscription
vendredi 21 janvier 2005
Statut
Membre
Dernière intervention
25 juillet 2007
1
Voici le style de connection que j'utilise :

Global Rx0 As New Recordset
Global Con(2) As New Connection

Ouverture de la base :

Public Function Ouverture(Num As Integer, Chemin As String, Base As String) As Boolean


If Con(Num).ConnectionString <> "" Then
Con(Num).Close
Con(Num).ConnectionString = ""
End If


Con(Num).Provider = "microsoft.jet.oledb.4.0"
Con(Num).Properties("Persist Security Info") = False
Con(Num).Properties("User ID") = "Admin"
Con(Num).Properties("Jet OLEDB:Database password") = "UserPass"
Con(Num).Properties("data source") = Chemin & "" & Base & ".mdb"
Con(Num).Open

Ouverture = True


End Function

Lecture mode recherche seul :

Rx0.Open "Select * from [Libelles] where Clef=" & Val & " order by Code asc", Con(1), adOpenStatic, adLockReadOnly
--- ton code
Rx0.Close

Lecture mode recherche et MAJ :

Rx0.Open "Select * from [Libelles] where Clef=" & Val & " order by Code asc", Con(1), adOpenStatic, adLockReadOnly
If Rx0.EOF Then
Rx0.AddNew
End If
Rx0!Clef=xxx
Rx0!Code=yyy
--- Etc...
Rx0.Update
Rx0.Close