[VB.net] Compter le nombre d'enregistrement
Résolu
Bonjour,
Je programme en vb.net avec une base MySQL.
J'aimerai compter le nombre d'enregistrement d'une requete.
Voici mon code :
Evidement, nombre correspond aux nombres d'enregistrement mais je n'arrive pas à trouver la bonne méthode.
Merci @ vous.
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.
Configuration: Windows XP Firefox 3.0
3 réponses
-
bonsoir,
regarde l'adresse suivant je pense que cela peux t'aider : https://plasserre.developpez.com/cours/vb-net/ -
Dim intCount As Integer intCount = ds.Tables("myTable").Rows.Count-
-
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)
-
-
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
