Discussion :

[andyajram]

Bonjour ,
Je suis débutant en programmation , je voudrais avoir un peu d'aide sur mon projet ,
j'ai créer une application et une base de données dans laquelle des données seront stocké, dans la colonne A de la base de donnée j'ai une série de chiffres , je veux récupérer la dernière valeur de cette colonne, l'incrémenter de 1 et récupérer la valeur pour l'afficher dans mon textbox1 puis la rajouter comme une valeur suivante dans la base de données mais je ne trouve toujours pas la fonction !! S'il vous plait quelqu'un pourra m'aider ???!

Merci d'avance!

[franticfranz]

Bonjour,

La méthode :

1. Connecter à la base de données ;
2. Lire la dernière valeur de la colonne A et la stocker dans une variable ;
3. Incrémenter la variable ;
4. Convertir la variable en texte et la copier dans la TextBox ;
5. (Éventuellement attendre une action de l'utilisateur)
6. Enregistrer la variable dans la base de données sous forme de ligne de données supplémentaire.

Toute la cosmétique autour de cette méthode se trouve dans l'extraordinaire cours suivant :
http://plasserre.developpez.com/cours/vb-net/

Ex-tra-or-di-naire.

Regardez du coté des bases de données : vous aurez un certain nombre de choix à opérer, si ce n'est déjà fait, sur les caractéristiques de votre base de données et la manière de stocker vos données.

[andyajram]

MErci Pour ton Intêret je verrais ca est ce que ca pourra m'aider

[abd75web]

tu peux utiliser ub datareader pour lire la dérnière valeur

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim Cmd As New SqlCommand("Select Max(Colonne A) From ....", Connexion)
Dim DR As SqlDataReader = Cmd.ExecuteReader()
 
If DR.Read Then
If Not DR.Item(0) Is DBNull.Value Then
Ta nouvelleValeur = (DR.GetValue(0) + 1).ToString
Else
Ta nouvelleValeur= "1"
End If
End If

[andyajram]

MErci Beaucoup ABDo

[andyajram]

Ca ne marche toujours pas ! j'arrive pas a lire la valeur ni a l'incrémenter !!

[rv26t]

Bonjour,

Il serait intéressant de connaître la BDD que vous utilisez.

Pour lire une information il existe la méthode ExecuteScalar.

Pour sélectionner une info
Avec Access

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Public Function ValCpt(ByVal connString As String, ByVal Requete As String) As Int32
        Dim CptMax As Int32 = 0
        Using conn As New OleDbConnection(connString)
            Dim cmd As New OleDbCommand(Requete, conn)
            Try
                conn.Open()
                CptMax = Convert.ToInt32(cmd.ExecuteScalar())
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        End Using
        Return CptMax
    End Function
End Class

Appel

Code :

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

        TxtCptBDD.Text = ValCpt("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\data\Personnes\Personnes.accdb", "Select Max(A) from compteur").ToString

Il faut utiliser les requêtes paramètrées. (pour votre insertion)
Pour apprendre leurs utilisation. Voir Tutoriel (Le tuto est avec un insert et sqlServeur) ou Faq.

[Edit]
Il y a aussi les cours sur les BDD. Voir ceux avec ADO.
[/Edit]

A+, Hervé.