Discussion :

[loverdev]

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 :

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

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?

[boubounne]

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

Code :

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

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

[loverdev]

Voici le code qui marche (Merci Boubounne) :

Code :

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

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

[Pol63]

les bases de données savent gérer des autoincrémentation de manière autonome ...

[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 !!