Connexion vb.net 2008 avec MySql de php
progdebut1
Messages postés
8
Date d'inscription
vendredi 19 février 2010
Statut
Membre
Dernière intervention
22 novembre 2010
-
14 mars 2010 à 12:39
cs_samirachid Messages postés 1 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 14 avril 2011 - 14 avril 2011 à 12:54
cs_samirachid Messages postés 1 Date d'inscription mardi 29 mars 2011 Statut Membre Dernière intervention 14 avril 2011 - 14 avril 2011 à 12:54
3 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
15 mars 2010 à 09:43
15 mars 2010 à 09:43
Salut
Pour se connecter à une DB, regarde les exemples parmi les codes du site.
Pour php, il te suffit de définir une ConnectionString adéquat.
Voir http://www.connectionstrings.com/
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
Pour se connecter à une DB, regarde les exemples parmi les codes du site.
Pour php, il te suffit de définir une ConnectionString adéquat.
Voir http://www.connectionstrings.com/
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
FEMO2005
Messages postés
2
Date d'inscription
lundi 7 janvier 2008
Statut
Membre
Dernière intervention
17 mars 2011
17 mars 2011 à 21:49
17 mars 2011 à 21:49
oui le savoir
cs_samirachid
Messages postés
1
Date d'inscription
mardi 29 mars 2011
Statut
Membre
Dernière intervention
14 avril 2011
14 avril 2011 à 12:54
14 avril 2011 à 12:54
Imports System.Data
Module Module1
Public cnx As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub data()
'Déclarationdes variables
Dim NomServeur As String
NomServeur = "nomDeMonPc"
Dim NomBaseDeDonnes As String
NomBaseDeDonnes = "gestionSQL"
'Ouverture de la base de données
If cnx.State = 1 Then
cnx.Close()
End If
cnx.Open("Provider=SQLNCLI;Server=" & NomServeur & ";Database=" & NomBaseDeDonnes & ";Trusted_Connection=yes;")
End Sub
End Module
Module Module1
Public cnx As New ADODB.Connection
Public rs As New ADODB.Recordset
Public Sub data()
'Déclarationdes variables
Dim NomServeur As String
NomServeur = "nomDeMonPc"
Dim NomBaseDeDonnes As String
NomBaseDeDonnes = "gestionSQL"
'Ouverture de la base de données
If cnx.State = 1 Then
cnx.Close()
End If
cnx.Open("Provider=SQLNCLI;Server=" & NomServeur & ";Database=" & NomBaseDeDonnes & ";Trusted_Connection=yes;")
End Sub
End Module
