Voici le code pour accèder à une base de données qui se trouve sous SQL SERVER par ADO
Source / Exemple :
Private Sub Form_Load()
'Connexion à la base de données
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
On Error GoTo ErrOuv
With cn
.Provider = "SQLOLEDB.1"
.ConnectionString = "driver=SQLOLEDB;" & "server={nom du server};uid={login};pwd = {password}"
End With
cn.Open
cn.DefaultDatabase = {Nom de la base de données ou se trouve la table}
Exit Sub
ErrOuv:
MsgBox "Verifiez que le serveur est en marche ou verifiez que la table que vous voulez traiter existe"
End
End Sub
Conclusion :
Ceci est un code simple. J'espère que ca peut vous aider.
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.