Impossible de se connecter a une bdd SQL

Version imprimable

Bonjour, j'ai tenté en vain de connecter mon programme a une base de donnée

Voici mes informations de connexion (evidemment elles ont été instancié)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Set cnx = New ADODB.Connection On Error GoTo GestErreur cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=NOMSERVER;Initial Catalog = NOMDATABASE; User id=USER; password = MDP;Workstation id=GetComputerName;" cnx.ConnectionTimeout = 10 cnx.Open GestErreur: If Err <> 0 Then lblConnexion.Caption = "Connexion impossible" Else lblConnexion.Caption = "Connexion réussit!" End If
Cela marche en utilisant les memes informations avec le Data Environnement (Que je ne souhaite pas utiliser)....

Une idée? :?

Ta chaine de connection est bizare
Tu passes tout en litéral
J'aurais plutot vu quelque chose comme

Code:

1
2
3
4
5
cnx.ConnectionString = "Provider=SQLOLEDB;Data Source =" & sNOMSERVER & "; " & _
                        "Initial Catalog =" & sNOMDATABASE & "; " & _
                        "User id =" & sUSER & "; " & _
                        "password =" & sMDP & "; " & _
                        "Workstation id =" & GetComputerName & ";"

sNOMSERVER ,sNOMDATABASE ,sUSER et sMDP etant soit des constantes déclarées en debut de code, soit des variables à renseigner

Code:

1 2 3 4 5 6 7 Dim Buf As Long Dim MeComputeurName As String Buf = 32 MeComputeurName = String(Buf, " ") GetComputerName MeComputeurName, Buf MeComputeurName = Left(MeComputeurName, Buf) cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=NOMSERVER;Initial Catalog = NOMDATABASE; User id=USER; password = MDP;Workstation id= " & MeComputeurName & ";"
en suposant que l'API GetComputerName ai elle aussi été déclarée.

Plus simple peut être en employant Environ

Code:

cnx.ConnectionString = "Provider=SQLOLEDB;Data Source=NOMSERVER;Initial Catalog = NOMDATABASE; User id=USER; password = MDP;Workstation id= " & Environ("COMPUTERNAME") & ";"

Motif de l'edit
Salut Delbeke
Moi j'avai pris NOMSERVER ,NOMDATABASE ,USER et MDP comme une entrée en dur, GetComputerName elle ne pouvant faire que allusion à l'API.

25/05/2009, 22h47
OsTaLaKaR

Je ne pourrais pas vous dire si cela fonctionne (je suis a la maison:mouarf:)

Mais je vous remercie :)

Je vous tiens au courant demain !:ccool:
26/05/2009, 10h43
OsTaLaKaR

Parfait, sa fonctionne !
26/05/2009, 11h33
OhMonBato

Tant mieux ! Merci alors de cliquer sur le bouton "Résolu" en bas de cette page.