[VB.net] Compter le nombre d'enregistrement

Résolu/Fermé
afrodje - 7 févr. 2008 à 16:09
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 - 8 févr. 2008 à 12:17
Bonjour,

Je programme en vb.net avec une base MySQL.

J'aimerai compter le nombre d'enregistrement d'une requete.
Voici mon code :
        Dim connection As New Class_connection
            connection.connect()
            'requete
            Dim requete_select As String = "SELECT * FROM membre"
            Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter
            Dim oMySQLConnection As New MySqlConnection
            'dataset cache en memoire de donnée
            Dim ds As DataSet = New DataSet
            'Lien entre la base et la requête
            MyAdapter.SelectCommand = New MySqlCommand(requete_select, oMySQLConnection)
            Dim nombre As Integer = MyAdapter.SelectCommand.ExecuteScalar()
            MsgBox(nombre)


Evidement, nombre correspond aux nombres d'enregistrement mais je n'arrive pas à trouver la bonne méthode.

Merci @ vous.

3 réponses

OrionS Messages postés 55 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 22 septembre 2008 39
7 févr. 2008 à 21:56
bonsoir,

regarde l'adresse suivant je pense que cela peux t'aider : https://plasserre.developpez.com/cours/vb-net/
0
OrionS Messages postés 55 Date d'inscription jeudi 7 février 2008 Statut Membre Dernière intervention 22 septembre 2008 39
7 févr. 2008 à 22:03

Dim intCount As Integer
intCount = ds.Tables("myTable").Rows.Count
0
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
8 févr. 2008 à 09:44
Comment c'est possible d'avoir "mytable" en parametre alors que je voudrais compter les enregistrements d'une requete (et non d'une table)
0
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
8 févr. 2008 à 11:42
J'ai essayé le code suivant mais il me renvoi toujours 1, quelle que soit la requete
Dim requete_select As String = "SELECT * FROM membre"

            
                'Lien entre la base et la requête
                Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter
                MyAdapter.SelectCommand = New MySqlCommand(requete_select, connection.Getconnection_base)

                'Charge la table en mémoire 
                Dim ds As DataSet = New DataSet
                MyAdapter.Fill(ds)

                Dim nombre As Integer = ds.Tables.Count()
                MsgBox(nombre)
0
afrodje Messages postés 759 Date d'inscription mardi 13 mars 2007 Statut Membre Dernière intervention 22 janvier 2014 168
8 févr. 2008 à 12:17
J'ai trouvé la solution

 Dim requete_select As String = "SELECT nom FROM devis"
                'Lien entre la base et la requête
                Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter
                MyAdapter.SelectCommand = New MySqlCommand(requete_select, connection.Getconnection_base)Dim obt As MySqlDataReader
                obt = MyAdapter.SelectCommand.ExecuteReader
                While obt.Read
                    MessageBox.Show(obt.GetString(0))
                End While
0