movenextRésolu

Question

bonjour, 
je n arrive pas a faire defiler un enregistremnt depuis une table sql server;
en faite le probleme c est que je defile le premier enregistrement avc movenext et puis c est stable...
voila mon code :
Private Sub cmd_suivant_Click()
Dim vCon As New ADODB.Connection
 Dim vRs As New ADODB.Recordset
 
vRs.CursorType = 1
 vCon.Open vNPAIConnectionString
vCon.CommandTimeout = 1200
 
  vRs.Open "select * from fiche_relance where per_id = '" & vTAId & "' ", vCon
 
    
If Not vRs.EOF Then

 vRs.MoveNext

 ficid.Text = vRs("fic_id")
 perid.Text = vRs("per_id")
fic_nom_clt.Text = vRs("fic_nom_clt")
txt_prenom_clt = vRs("fic_prenom_clt")
gsm_client.Text = vRs("fic_tel")

Else
MsgBox ("aucune fiche restante !")
End If

vRs.close
Set vRs = Nothing
  vCon.close
 Set vCon = Nothing
 
End Sub

cs_funseb · Accepted Answer

Salut,

C'est normal, tu r&#233;alises ta requ&#232;te dans ton &#233;v&#233;nement click !! donc &#224; chaque fois que tu cliques sur ton cmd_suivant, il r&#233;actualise ton recordset et remet la position au premier enregistrement de ton recordset ! Il faut que tu remplissent ton recordset en dehors de ta proc&#233;dure click , dans le form load par exemple !

Simouss33 · Answer

Je ne comprends pas tr&#232;s bien ton probl&#232;me, si tu veux parcourir tous tes enregistrements, il suffit de faire une boucle.

While Not vRs.EOF
   ficid.Text = vRs("fic_id")
   perid.Text = vRs("per_id")
   fic_nom_clt.Text = vRs("fic_nom_clt")
   txt_prenom_clt = vRs("fic_prenom_clt")
   gsm_client.Text = vRs("fic_tel")
   vRs.MoveNext
Wend

monopole · Answer

merci funseb, j ai bien compris ce que tu veut dire mais j ai pas pu realiser la methode c est a dire saisir le recordset ds la form load puis la recuperer ds le click suivant si tu peut me donner cet expl je serait content.merci

Simouss33 · Answer

D&#233;sol&#233; pour ma r&#233;ponse je n'avais effectivement pas compris le probl&#232;me

cs_funseb · Answer

ok, je dois t'avouer que je suis un peu rouiller en vb, je suis pass&#233; en .net depuis 8 mois ... donc a tester :
tu declare 
Dim vCon As New ADODB.Connection
 Dim vRs As New ADODB.Recordset
en haut de ta page (g&#233;n&#233;ral),

ensuite dans le form load tu met :
vRs.CursorType = 1
 vCon.Open vNPAIConnectionString
vCon.CommandTimeout = 1200
 
  vRs.Open "select * from fiche_relance where per_id = '" & vTAId & "' ", vCon
     ficid.Text = vRs("fic_id")
    perid.Text = vRs("per_id")
    fic_nom_clt.Text = vRs("fic_nom_clt")

    txt_prenom_clt = vRs("fic_prenom_clt")

    gsm_client.Text = vRs("fic_tel")

puis ds ton cmd_suivant :

If Not vRs.EOF Then

 vRs.MoveNext

 ficid.Text = vRs("fic_id")
 perid.Text = vRs("per_id")
fic_nom_clt.Text = vRs("fic_nom_clt")
txt_prenom_clt = vRs("fic_prenom_clt")
gsm_client.Text = vRs("fic_tel")

Else
MsgBox ("aucune fiche restante !")
End If

enfin dans un bouton quitter ou &#224; la fermeture de ta pae :
vRs.close
Set vRs = Nothing
  vCon.close
 Set vCon = Nothing

Voila, mais je suis pas certain !

Movenext

5 réponses

Discussions similaires