ado

Question

bonjour g un probleme avec la commande Ors.MovePrevious

il me mes une erreur :
run-time error '3219'
l'op&#233;ration demend&#233;e n'est pas autoris&#233;e dans ce contexte

voici mon code compl&#233;:
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&#233;

psicofox6@hotmail.com==

nhervagault · Answer

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 &#234;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&#232;tres et tu trouveras la reponse.



Voila

cs_frop01 · Answer

S'il s'agit d'une requete change

Ors.Open strSql, cnx, adOpenDynamic

si c'est une table directe

Ors.Open strSql, cnx, adOpenStatic

Ado

2 réponses