Ado

Signaler
Messages postés
208
Date d'inscription
vendredi 7 mai 2004
Statut
Membre
Dernière intervention
15 août 2005
-
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
-
bonjour g un probleme avec la commande Ors.MovePrevious

il me mes une erreur :
run-time error '3219'
l'opération demendée n'est pas autorisée dans ce contexte

voici mon code complé:
Private cnx As ADODB.Connection
Dim strSql As String
Dim Ors As ADODB.Recordset
Private Sub Form_Load()
Set cnx = New ADODB.Connection
cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
cnx.Open "c:\db1.mdb"
strSql = "select * from contact where num >0"
Set Ors = New ADODB.Recordset
Ors.Open strSql, cnx, , , adCmdText
End Sub


Private Sub suivant_Click()
If Not Ors.EOF Then
Ors.MoveNext
If Not Ors.EOF Then
Text1.Text = Ors.Fields("prenom")
Text2.Text = Ors.Fields("nom")
End If
End If
End Sub


Private Sub retour_Click()
If Not Ors.BOF Then
Ors.MovePrevious
If Not Ors.BOF Then
Text1.Text = Ors.Fields("prenom")
Text2.Text = Ors.Fields("nom")
End If
End If
End Sub

merci de m'aidé

psicofox6@hotmail.com==

2 réponses

Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Modérateur
Dernière intervention
15 juillet 2011
36
Salut,



C'est le type de recordset dans ton Ors.Open strSql, cnx, , , adCmdText



Ce qu'il y dans les ,,, qu'il faut changer.



Ton recordset est peut être ouvert en avant seulement (plus rapide et
moins gournand que ceux qui gere l'avant arriere et les insertions.



Regardes ka doc de ces paramètres et tu trouveras la reponse.



Voila
Messages postés
1352
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 novembre 2008
2
S'il s'agit d'une requete change

Ors.Open strSql, cnx, adOpenDynamic

si c'est une table directe

Ors.Open strSql, cnx, adOpenStatic