pbl de connexion à ma base access

Question

voici mon code
Private Sub Commande0_Click()

Dim db As Database
Dim rs As Recordset
Dim var As String
Set db = CurrentDb()
'Instruction SQL
var = "select * from client "
'Création du jeu d'enregistrement
Set rs = db.OpenRecordset(var)
rs.Open db
rs.MoveLast
MsgBox rs.Fields
rs.Close
db.Close
End Sub

et j'ai l'erreur suivante : la requete doit avoir au moins un champs de destination
merci d'avance de me dire ce qu'il ne va pas

Jacques · Answer

Bonjour
Je suis un tout petit peu plus à l'aise avec ADO (Access 2000) plutôt que DAO. 
Je ne comprend pas le but de ta ligne rs.MoveLast. 
Par ailleurs, je pense que tu cherche à afficher la collection Fields dans ta boite de message pour voir ce qu'il y a dans le recordset.
A la place de ces deux lignes, essaies:
rs.MoveFirst
Do While Not rs.EOF
   Debug.Print Field.Name & ", " & Field.Type & ", " & Field.ActualSize
   rs.moveNext
Loop
Ce bout de code permet d'afficher dans la fenêtre exécution le nom de tous les champs de la collection Fields, tout au moins dans l'objet ADO. Mais je pense que c'est pareil pour l'objet DAO. Tiens moi au courant.
Amicalement

seb · Answer

le pbl se situe au moment ou je crée le recordset le movenext c'etait juste pour afficher un truc.

Jacques · Answer

Es tu dans Access 200 ou dans 98? En d'autres termes, utilise tu DAO (ce qui semble) ou ADO?

Jacques · Answer

Salut

Vois le code suivant. Il ouvre un recordset du fichier "Types de contacts" dans l'application "Contacts" pour y ajouter un nouveau type de contact. Ca devrait répondre à ta demande.

    Dim dbsContacts As Database
    Dim rstTypes As DAO.Recordset
    
    Set dbsContacts = CurrentDb
    Set rstTypes = dbsContacts.OpenRecordset("Types de contacts")
    rstTypes.AddNew
    rst!TypeContact = NewData
    rstTypes.Update

Pense à fermer le recordset.

Amicalement.

flyboyready · Answer

il vous manque 
   do while not rs.eof
         instrucions
   wend

Pbl de connexion à ma base access

5 réponses

Discussions similaires