Discussion :

[Jamesmo]

Bonjour,

Je suis entrain de programmer un bouton de déplacement suivant en Vb.Net et je veux que ce bouton se désactive dés qu'il arrive au dernier enregistrement.

Voici la requête que j'ai effectué pour avancer d'un enregistrement à l'autre:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
 
 Cmd = New OleDbCommand("SELECT TOP 1 Contact.* FROM Contact WHERE Code > " & txtCode.Text & " ORDER BY Code", Cnx)
 Dr = Cmd.ExecuteReader
 
While Dr.Read
 txtCode.Text = Dr(0)
 txtNom.Text = Dr(1)
 txtPrenom.Text = Dr(2)
 txtTel.Text = Dr(3)
 End While
 
Dr.Close()
 
 BtnPremier.Enabled = True
 BtnDernier.Enabled = True
 BtnSuivant.Enabled = True
 BtnPrecedent.Enabled = True
 
 J'ai fait ensuite une autre requête qui compte et te retoure le nbre d'enregistrement
 Cmd = New OleDbCommand("SELECT COUNT(*) FROM Contact " Cnx)
 Dr = Cmd.ExecuteReader
 
While Dr.Read
 txtCode.Text = Dr(0)
 End While
 
If txtCode.text<> nb Then
 BtnSuivant.Enable=True
 
Else
 BtnSuivant.Enable=False

Le pb, c'est que la requête count ne me retourne pas le nbre d'enregistrement.
Le bouton suivant fait n'importe quoi, peut être que j'ai mal formulé ma requête...

J'ai besoin de votre lumière pour régler ce pb, Merci !

[oussamaisgi]

il faut utiliser currencymanager c'est très pratique pour la navigation mais en mode deconnecté bien sur

Code :

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

1
2
 dim cm as currencymanager
cm.bindingcontext=(ds,"table")

pour suivant tu mettras comme position += 1 et lui il gère automatiquement la fin et le debut sans bug

[Saintelaitlait]

Le français c'est bien. Bien orthographié c'est mieux.

[oussamaisgi]

Le français c'est bien. Bien orthographié c'est mieux.

désolé mais je vais m'habituer d'écrire standarement

[shayw]

Salut

Code :

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

1
2
3
Dim count As Integer
    Cmd = New OleDbCommand("SELECT COUNT(*) FROM Contact " Cnx)
   count = Cmd.ExecuteNonQuery()