5/5 (6 avis)
Vue 15 658 fois - Téléchargée 1 737 fois
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
17 oct. 2009 à 23:13
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??
7 janv. 2009 à 15:38
Il est donc fort probable que cela soit impossible avec Free.
J'avais utilisé cette solution pour me connecter à un server privé :s
7 janv. 2009 à 15:35
5 sept. 2007 à 14:54
merci pr ton aide...
11 avril 2007 à 12:03
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.