Accès à une base de données sql server

Soyez le premier à donner votre avis sur cette source.

Snippet vu 15 035 fois - Téléchargée 48 fois

Contenu du snippet

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.

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de cs_farid91

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.