drpsico
Messages postés208Date d'inscriptionvendredi 7 mai 2004StatutMembreDernière intervention15 août 2005
-
4 juil. 2005 à 21:14
cs_frop01
Messages postés1352Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention19 novembre 2008
-
5 juil. 2005 à 09:39
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