Bonjour a tous,
Je reviens vers vous pour mon pb de connection a ma base de données (SQL server). J' ai réalisé une connection a mon server, j´importe ces données sur une feuille, en manuel j´y suis arrivé.
Mon pb est que j´actulise cette connecction a l´ouverture de mon classeur, le pb est lorsque j´ai un pb de connection a mon server, l´utilisateur ne sait pas explicitement s´il est connecté ou pas.
J´ai alors décidé de passer a une connection manuel par un code vba, ou l´utilisateur en clikant sur un bouton sait síl est connecté ou pas; pour que cela soit plus explicite. Mais j´ai un msg d´ereur informant que le nom d órigine et aucun controleur permis...
Dans un premier temps je voudrais testé ma connexion et ensuite copié les données selon certains filtres. Avant de parler de filtre je souhaite comprendre ou est mon erreur de synthaxe dans ma requete de connnexion.
Si quelqu´un connais d´ou provient mon erreur...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Public Cnx As New Connection Sub ActBD() Dim Cadena As String On Error GoTo ErrorBD Cadena = "DRIVER=SQL Server;SERVER=BLADELAB01;UID=etiquetas;PWD=francia1;DATABASE=SBO_NATURGEN_PROD" Cnx.Open MsgBox "Conexion exitosa ", vbInformation, "Ce que j´aimerais lire" Cnx.Close Exit Sub ErrorBD: MsgBox "Error de Conexion" & Err.Description End Sub
Merci d´avance pour l´aide
Partager