Discussion :

[meddeb2001]

bonjour

debutant en VB

je veux realiser un form en vb6 qui contient des textboxs qui affichent le contenu d'une table access.
j'ai reussi a afficher un seul enregistrement, je veux cree un bouton suivant et precedent pour se deplacer dans la table.
comment je peux le faire merci d'avance

a+

[Invité]

Bonjour

Par quel intermédiaire es-tu connecter à Access.

Starec

[LeXo]

je pens qu'il la fait o plus simple

tu devrais avoir un bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
private function bouton_click()
while not rs.EOF
 
mon.bouton.enabled=true
wend
rs.movenext
 
rafraichir //rafrachi tes champs
end function

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private function rafraichir()
chp1.text=rs.fields(1)
....
 
end function

voila a ce a quoi ça me ferait penser

[BM42]

Salut

Perso j'utilise un groupe de Bouton (4) avec se bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Cmd_Move_Click(Index As Integer)
Select Case Index
    Case 0 '1er Enregistrement
        Rset.MoveFirst
 
    Case 1 'Enregistrement précédent
        Rset.MovePrevious
 
    Case 2 'Enregistrement suivant
        Rset.MoveNext
 
    Case 3 'Dernier enregistrement
        Rset.MoveLast
 
End Select
End Sub

A+

[meddeb2001]

merci
je suis connecté par data envirenment

[meddeb2001]

marci

while not rs.eof
me genere une erruer de compilation

[BM42]

salut

Test ta base avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
with rst
....
.open
if .bof or .eof then
msgbox("Problème de fichier")
end if
end with

pour voir si le problème vien de ta base ou de ton code

A+

[meddeb2001]

bonjour

j'utilise VB6, j'ai fait la connexion a ma base access par data envirement
la connexion est reussi
j'ai cree des texbox dans un form pour afficher le contenu de ma table access, apres execution je ne peux voir qu'un seul enregistrement statique. j'ai pensé a cree un bouton (suivant, precedent, premier et dernier) mais je n'arrive pas a ecrire le code en VB6
pover m'aider a le faire
merci d'avance

[BM42]

Re

Voici un exemple tout bête
Dans une form j'ais 2 textbox et un bouton suivant.
Le code de la form :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Form_Load()
With rst
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
    .Open
    .MoveFirst
End With
 
Set Text1(0).DataSource = rst
Set Text1(1).DataSource = rst
Text1(0).DataField = "Champ1"
Text1(1).DataField = "Champ2"
 
End Sub
 
Private Sub Cmd1_Click()
rst.MoveNext
End Sub

A+