Discussion :

[OsTaLaKaR]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[Delbeke]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

    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.

[OsTaLaKaR]

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

Mais je vous remercie

Je vous tiens au courant demain !

[OsTaLaKaR]

Parfait, sa fonctionne !

[OhMonBato]

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