Classe de connexion à une base mysql
Soyez le premier à donner votre avis sur cette source.
Vue 15 071 fois - Téléchargée 1 701 fois
Description
Cette classe va vous permettre de vous connecter à un serveur MySQL.
Elle comprend tout ce qui concerne l'ouverture d'une connexion, le passage de requetes de mise-à-jour et le retour de requetes ramenant uniquement un resultat (Ex : SELECT Nom FROM Client WHERE Num=1234)
La seul contrainte que vous aurez sera de donner la chaine de connexion au serveur ;-)
L'utilisation de cette source nécessite l'installation d'un driver supplémentaire sur Windows.
Celui-ci est contenu dans le .zip
Il faudra sélectionner le driver dans le gestionnaire de ressources de votre environnement de prog.
Je pense la mettre à jour d'ici peu de temps afin de gérer tout ce qui concerne le retour de requete avec plusieurs résultats.
Elle comprend tout ce qui concerne l'ouverture d'une connexion, le passage de requetes de mise-à-jour et le retour de requetes ramenant uniquement un resultat (Ex : SELECT Nom FROM Client WHERE Num=1234)
La seul contrainte que vous aurez sera de donner la chaine de connexion au serveur ;-)
L'utilisation de cette source nécessite l'installation d'un driver supplémentaire sur Windows.
Celui-ci est contenu dans le .zip
Il faudra sélectionner le driver dans le gestionnaire de ressources de votre environnement de prog.
Source / Exemple :
Imports MySql.Data
Imports MySql.Data.MySqlClient
Public Class Connexion
Private m_connexion As MySqlConnection
Public Shared ConnexionStr As String
Sub OuvrirConnexion()
Dim VR As New Variables
Me.m_connexion = New MySqlConnection("server=NOMDUSERVEUR;database=NOMDELABASEDEDONNEES;userid=IDENTIFIANT;password=MOTDEPASSE;")
Me.m_connexion.Open()
End Sub
Sub FermerConnexion()
Try
Me.m_connexion.Close()
Catch ex As System.Exception
MessageBox.Show(ex.Message)
End Try
End Sub
Function RetourneConnexion()
Return m_connexion
End Function
Sub RequeteSUI(ByVal SQL As String)
Me.OuvrirConnexion()
Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())
cmd.ExecuteNonQuery()
Me.FermerConnexion()
End Sub
Function RetourSelectUnResultat(ByVal SQL As String)
Dim retour As Object = Nothing
Me.OuvrirConnexion()
Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())
Dim Reader As MySqlDataReader = Nothing
Reader = cmd.ExecuteReader()
While Reader.Read()
retour = Reader.Item(0)
End While
Reader.Close()
Return retour
Me.FermerConnexion()
End Function
Function RetourRequete(ByVal SQL As String)
Dim i As Integer = 0
Dim j As Integer = 0
Dim NbChamps
Me.OuvrirConnexion()
Dim cmd As New MySqlCommand(SQL, Me.RetourneConnexion())
Dim Reader As MySqlDataReader = Nothing
Reader = cmd.ExecuteReader()
NbChamps = Reader.FieldCount()
Dim retour(500, NbChamps) As Object
While Reader.Read()
For j = 0 To NbChamps
retour(i, j) = Reader.GetValue(j)
Next
i = i + 1
End While
Reader.Close()
Return retour
Me.FermerConnexion()
End Function
End Class
Conclusion :
Je pense la mettre à jour d'ici peu de temps afin de gérer tout ce qui concerne le retour de requete avec plusieurs résultats.
Codes Sources
A voir également
- Mysql net
- Classe de connexion à une base de données de type mysql ! - Codes sources - PHP (Class et Objet ( POO ))
- PHP : Classe de connexion à une base de donnée mysql - CodeS SourceS - Guide
- Connexion à une base mysql avec c# csharp .net - Codes sources - C# / .NET (.NET)
- Visual Basic / VB.NET : Connexion a la base mysql est afficher les tables dans treeview - CodeS So - Guide
- Connexion à une base mysql ✓ - Forum - VB.NET
je m explique
j ai installé wampserver sur ma machine quand je me connecte a la base en local server=localhost tout marche bien
mais ce que je veux c est me connecter au mysql de wampserver d une autre machine de mon reseau
pour cela je mets sur server=192.168.1.2(l adresse ip de ma 2eme machine qui contient la base et j ajoute a la table user de mysql 192.168.1.2 comme root pour permettre une connexion a la base de données pour eviter tte confusion j ajoute aussi 192.168.1.1 mais malgré tout j arrive pas
avec une application php j arrive a me connecter depuis l autre machine mais avec mon application vb2008 j arrive pas
y a t il une solution stp??
Il est donc fort probable que cela soit impossible avec Free.
J'avais utilisé cette solution pour me connecter à un server privé :s
merci pr ton aide...
En tout cas, merci pour l'indication concernant la fermeture de la connexion a chaque requêtes, je n'avais pas du tout pensé à ce probleme.
ça fait juste 2 mois que je me suis mis à vb.net et la programmation objet dc c'est sûr que c'est pas parfait.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.