A voir également:
- Sql/vb
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Récupération serveur sql - Télécharger - Gestion de données
- Sql query - Télécharger - Gestion de données
- Sql replace plusieurs valeurs - Forum Programmation
3 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
18 nov. 2007 à 12:30
18 nov. 2007 à 12:30
Bonjour,
Voilà un exemple de fonction permettant la connexion à une base SQL Serveur. Il faut cocher dans les références : Microsoft ActiveX Data Objects x.x Library
Tu peux aussi visiter le site vbFrance ou Developpez.com
;o)
Polux
Voilà un exemple de fonction permettant la connexion à une base SQL Serveur. Il faut cocher dans les références : Microsoft ActiveX Data Objects x.x Library
Public Function BddConnection() As Boolean Dim Cnx As ADODB.Connection Dim CnxStrg As String Set Cnx = New ADODB.Connection If Cnx.State = adStateOpen Then BddConnection = False Exit Function Else CnxStrg = "Provider=SQLOLEDB.1;" & _ "Persist Security Info=True;" & _ "Integrated Security=SSPI;Initial Catalog= maBase;" & _ "Data Source= monServeur" Cnx.ConnectionString = CnxStrg Cnx.CursorLocation = adUseClient On Error Resume Next Cnx.Open If Err.Number > 0 Or Cnx.State = adStateClosed Then BddConnection = False Exit Function End If BddConnection = True End If End Function
Tu peux aussi visiter le site vbFrance ou Developpez.com
;o)
Polux
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
18 nov. 2007 à 12:48
18 nov. 2007 à 12:48
De rien, c'est avec plaisir.
Si ça règle ton problème, merci de mettre le sujet "résolu" ...
Bon courage,
;o)
Polux
Si ça règle ton problème, merci de mettre le sujet "résolu" ...
Bon courage,
;o)
Polux
8 juil. 2008 à 10:41