Incrémentation automatique d'un champ

Version imprimable

J'ai un pb je ne sais pas comment faire l'incrémentation automatique d'un champ dans une base de données avec le langage vb.net. je vous explique ce que je veux faire : je veux qu'en lancant la forms "ajout d'un nouveau fournisseur" il y aura parcours de la table "fournisseur" et plus précisément du champ "Num_frs" ensuite il pointe sur le dernier enregistrement dans la table "fournisseur" et il incrémente de 1 ensuite il l'affiche au niveau du textbox "txtnumfrs.text".
En vb 6.0 :
Code:

1 2 3 4 5 6 7 8 9 10 Private Sub Form_Load() sql = "select Num_fournisseur from Table_fournisseur" Data1.RecordSource = sql Data1.Refresh If Data1.Recordset.RecordCount > 0 Then Data1.Recordset.MoveLast Txtnumfrs.Text = Data1.Recordset.Fields(0) + 1 End If End Sub
comment le faire en vb.net?

tu peut essayer ca (je l'ai pas testé) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection ("chaine de connexion)
        Dim myReader As OleDbDataReader
        Dim Mycommand3 As OleDbCommand = MyConnexion.CreateCommand()
        Dim nbre As Integer
 
        Mycommand3.CommandText = "select * from fournisseur"
        MyConnexion.Open()
        myReader = Mycommand3.ExecuteReader()
        nbre = myReader.FieldCount()
        textbox1.text =myReader.GetValue(nbre)
        MyConnexion.Close()

Je pense que le datareader est la meilleur solution, sinon peut etre avec une requete du type "select max from fournisseur", mais je ne sait pas la synthaxe exacte

Voici le code qui marche (Merci Boubounne):yaisse2: :

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 * from Fournisseur"
        cnx.Open()
        myreader = command.ExecuteReader
        nbre = myreader.FieldCount
        Txtnumf.Text = nbre
        cnx.Close()
    End Sub

24/07/2007, 10h56
Pol63

les bases de données savent gérer des autoincrémentation de manière autonome ...
24/07/2007, 11h27
boubounne

attention quand meme, la ca va marcher si ton premier indice est 1 , si ca commence par exemple a 3, je ne suis pas sur que ta formule marche !!
car la tu compte le nombre de ligne de ta table, tu ne recupere pas le dernier indice !!