Parcours d'un champ d'une table avec incrémentation d'un champ text

Version imprimable

Je veux savoir comment je parcours un champ d'une table jusqu'au dernier en langage vb.net ensuite j'incrémente la valeur du dernier champ et je le met dans un champ text dans une forms.
Voici ce que j'ai fait mais ca ne marche pas:(

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub Frmajoutf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'sql = "select Num_frs from Fournisseur"
        Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb")
        Dim command As OleDbCommand = cnx.CreateCommand
        Dim myreader As OleDbDataReader
        Dim nbre As Integer
        command.CommandText = "select Num_frs from Fournisseur"
        cnx.Open()
        myreader = command.ExecuteReader
        nbre = myreader.FieldCount + 1
        Txtnumf.Text = nbre
        cnx.Close()
    End Sub

Code:

1
2
3
4
5
6
7
8
 
        command.CommandText = " SELECT * FROM Ma_table "
        reader = command.ExecuteReader()
        While (reader.Read())
        msgbox(reader(" Ton_champ"))
        End While
        reader.Close()
        command.Dispose()

voila utilise while(reader.Read()) comme dans mon exemple pour parcourir les enregistrement de ton champ

22/08/2007, 11h11
loverdev

Comment je peux avoir la valeur du dernier champ et l'incrémenter de 1?
22/08/2007, 11h58
Pol63

reader.quelquechose
22/08/2007, 12h07
loverdev

je cherche le quelque chose. je veux me pointer sur le dernier enregistrement ensuite l'incrémenter de 1
22/08/2007, 12h30
Pol63

reader.item(num_colonne)
22/08/2007, 12h39
loverdev

reader.item(num_colonne) fait quoi exactement?
22/08/2007, 12h43
SaumonAgile

Pourquoi tu ne sélectionne pas directement le MAX(ton_champ) + 1 dans ta requête SQL ?

voici comment j'ai procédé :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Private Sub Frmajoutf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb")
        Dim command As OleDbCommand = cnx.CreateCommand
        Dim cmd = New OleDbCommand("select max (Num_frs) as maxnumf from Fournisseur", cnx)
        Dim myreader As OleDbDataReader
        Dim nbre As Integer
        command.CommandText = "select * from Fournisseur"
        cmd.connection = cnx
        cnx.Open()
        myreader = command.ExecuteReader
        While (myreader.Read())
            MsgBox(myreader("Num_frs"))
            cmd.executenonquery()
        End While
        nbre =
        Txtnumf.Text = nbre
        myreader.Close()
        command.Dispose()
        cnx.Close()
    End Sub

Comment j'affecte la valeur maximale trouvé dans la requête à une valeur "nbre" pour pouvoir l'incrémenter de 1?

22/08/2007, 13h04
SaumonAgile

C'est quoi ces deux requêtes ?
Ton code est vraiment horrible à lire, tu devrais le structurer, ce n'est pas étonnant que tu ne t'en sortes pas, c'est incompréhensible... ;)

EDIT :
Pourquoi tu ne fais pas une seule requête qui renvoie le MAX + 1 :

Code:

select max (Num_frs) +1 as maxnumf from Fournisseur

Et tu récupères le résultat en utilisant ExecuteScalar au lieu d'utiliser un DataReader qui dans ce cas ne sert à rien.
22/08/2007, 13h07
Pol63

ca se trouve il fait ca pour faire une autoincrémentation manuelle en plus :mouarf:

si tu veux connaitre le plus grand nombre + 1 ca sert à rien de lire toute la table
on lit toute la table quand on veut connaitre toute la table
dans ton cas tu peux faire
SELECT MAX(champ) + 1 FROM table

ça marche!! Merci saumonagile pour votre aide.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
  Private Sub Frmajoutf_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cnx As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Administrateur.STANDARD\Mes documents\Projet Budget\Budget\Budget\Marches.mdb")
        Dim cmd = New OleDbCommand("select max (Num_frs)+ 1 as maxnumf from Fournisseur", cnx)
        Dim nbre As Integer
        cnx.Open()
        cmd.connection = cnx
        cmd.executenonquery()
        nbre = cmd.executescalar()
        Txtnumf.Text = nbre
        cnx.Close()
    End Sub

Pour Sperot : Personne n'est parfait

22/08/2007, 13h18
SaumonAgile

Citation:

Envoyé par loverdev

ça marche!! Merci saumonagile pour votre aide.

N'oublie pas le tag :resolu: