Connexion a une base mysql avec vb.net
fred
-
mwenyembel Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
mwenyembel Messages postés 1 Date d'inscription Statut Membre Dernière intervention -
bonjour, je souhaiterai savoir si il est possible de se connecter à une base de donées mysql avec vb.net
si oui, pourriez vous m'envoyer un code source ou m'expliquer comment.
Merci
si oui, pourriez vous m'envoyer un code source ou m'expliquer comment.
Merci
A voir également:
- Vb mysql
- Vb - Télécharger - Langages
- Mysql community server - Télécharger - Bases de données
- Vb cable - Télécharger - Audio & Musique
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
9 réponses
salem,
pouvez vous m'aider pour rechercher le code de connexion à une base Mysql en utilisant vb.net2005.
pouvez vous m'aider pour rechercher le code de connexion à une base Mysql en utilisant vb.net2005.
'Déclaration
Dim RequeteSQL As String
Dim objCommand As MySqlCommand
Dim objDataReader As MySqlDataReader
Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()
'Création de la chaîne de connexion
Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password"
Try 'Ouvre le piège
'Création de la connexion
Dim Connection As MySqlConnection = New MySqlConnection()
Connection.ConnectionString = connectString
'Mouchard n°1
MessageBox.Show("1")
'Ouverture de la connexion
Connection.Open()
'Mouchard n°1
MessageBox.Show("2")
'Requete SQl
RequeteSQL = "SELECT * FROM ordinateur"
'Execution de la requete
objCommand = New MySqlCommand(RequeteSQL, Connection)
objDataReader = objCommand.ExecuteReader
While objDataReader.Read
MessageBox.Show(objDataReader.GetString(0))
End While
'Fermeture
objDataReader.Close()
Connection.Close()
Catch Ex As Exception 'Intercepte l'erreur en cas de pb
MsgBox(Ex.ToString)
End Try 'Ferme le piège
Dim RequeteSQL As String
Dim objCommand As MySqlCommand
Dim objDataReader As MySqlDataReader
Dim MyAdapter As MySqlDataAdapter = New MySqlDataAdapter()
'Création de la chaîne de connexion
Dim connectString As String = "Server=localhost;Database=parc;User ID=root;Password=password"
Try 'Ouvre le piège
'Création de la connexion
Dim Connection As MySqlConnection = New MySqlConnection()
Connection.ConnectionString = connectString
'Mouchard n°1
MessageBox.Show("1")
'Ouverture de la connexion
Connection.Open()
'Mouchard n°1
MessageBox.Show("2")
'Requete SQl
RequeteSQL = "SELECT * FROM ordinateur"
'Execution de la requete
objCommand = New MySqlCommand(RequeteSQL, Connection)
objDataReader = objCommand.ExecuteReader
While objDataReader.Read
MessageBox.Show(objDataReader.GetString(0))
End While
'Fermeture
objDataReader.Close()
Connection.Close()
Catch Ex As Exception 'Intercepte l'erreur en cas de pb
MsgBox(Ex.ToString)
End Try 'Ferme le piège
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
hello,
comme toi je ce me pose la meme question alors si tu as eu des reponse depuis novembre, je suis preneur merci d'avance.. A++
comme toi je ce me pose la meme question alors si tu as eu des reponse depuis novembre, je suis preneur merci d'avance.. A++