Connexion à une base sql server à partir de ms access
andersany
Messages postés
2
Date d'inscription
lundi 21 février 2005
Statut
Membre
Dernière intervention
3 février 2006
-
10 août 2005 à 13:11
cs_sentenza Messages postés 5 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 18 décembre 2007 - 12 août 2005 à 10:21
cs_sentenza Messages postés 5 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 18 décembre 2007 - 12 août 2005 à 10:21
A voir également:
- Connexion à une base sql server à partir de ms access
- Base de données access - Conseils pratiques -Visual Basic / VB.NET
- Curseur sql server - Conseils pratiques -SQL
- Access sql like ✓ - Forum SQL
- If sql server ✓ - Forum SQL
- Sql server foreach - Forum SQL
1 réponse
cs_sentenza
Messages postés
5
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
18 décembre 2007
12 août 2005 à 10:21
12 août 2005 à 10:21
La connection doit etre similaire entre access (vba) et vb : utilise ado :
pre-requis ADO (en reference de ton projet vb)
Dim conSQL as ADODB.connection
Dim strConnexionnectionString as String
strConnexionnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source= <ton serveur>1433;" & _
"Network Library=dbmssocn;" & _
"User ID=<ton user>;" & _
"Password=<ton password>;" & _
"Initial Catalog= <ta base de données>"
Set conSQL = New ADODB.Connection
With conSQL
.CommandTimeout = 15
.ConnectionTimeout = 15
.Open strConnexionnectionString
End With
pre-requis ADO (en reference de ton projet vb)
Dim conSQL as ADODB.connection
Dim strConnexionnectionString as String
strConnexionnectionString = "Provider=SQLOLEDB.1;" & _
"Data Source= <ton serveur>1433;" & _
"Network Library=dbmssocn;" & _
"User ID=<ton user>;" & _
"Password=<ton password>;" & _
"Initial Catalog= <ta base de données>"
Set conSQL = New ADODB.Connection
With conSQL
.CommandTimeout = 15
.ConnectionTimeout = 15
.Open strConnexionnectionString
End With