VB.NET et requête MySQL

Fermé
Samy17 Messages postés 30 Date d'inscription lundi 5 janvier 2009 Statut Membre Dernière intervention 26 février 2012 - 12 févr. 2012 à 14:02
Bonjour,

En cherchant un peu partout je suis parvenu à mettre en place ma connexion à MySQL. Je parviens sans soucis à exécuter des requêtes telles que des INSERT, DELETE etc. Cependant si j'ai mis ma fonction d'exécution d'une requête dans un module et lorsque je fais un SELECT, je n'arrive pas à récupérer le résultat depuis mon Main.

Voici mon code :


Public Sub requete(ByVal requeteStr)

'Déclaration
Dim RequeteSQL As String
Dim objCommand As MySql.Data.MySqlClient.MySqlCommand
Dim objDataReader As MySql.Data.MySqlClient.MySqlDataReader
Dim MyAdapter As MySql.Data.MySqlClient.MySqlDataAdapter = New MySql.Data.MySqlClient.MySqlDataAdapter()
'Création de la chaîne de connexion
Dim connectString As String = "Server=localhost;Database=cadress;User ID=root;Password='Mon_password'"

Try 'Ouvre le piège

'Création de la connexion
Dim Connection As MySql.Data.MySqlClient.MySqlConnection = New MySql.Data.MySqlClient.MySqlConnection()
Connection.ConnectionString = connectString



'Ouverture de la connexion
Connection.Open()



'Requete SQl
RequeteSQL = requeteStr

'Execution de la requete
objCommand = New MySql.Data.MySqlClient.MySqlCommand(RequeteSQL, Connection)
objDataReader = objCommand.ExecuteReader


While objDataReader.Read = True
MessageBox.Show(objDataReader.GetString(0) & " " & objDataReader.GetString(1))


End While

'Fermeture
objDataReader.Close()
Connection.Close()
'End While

Catch Ex As Exception 'Intercepte l'erreur en cas de pb
MsgBox(Ex.ToString)
End Try 'Ferme le piège

End Sub



Déjà, je pense qu'il faut faire une Function plutôt qu'une Sub.
Merci à tous de votre aide