Discussion :

[blackghost]

c la premiere fois que j'utilse sql server en prog.
g créé ma base et je me s8 connecté avec vb6 et asp et voila la mêm erreur:

Échec de la connexion de l'utilisateur 'mamby'. Raison : Non associé à une connexion sécurisée SQL Server

et je n'est rien compris!!! : :

[amazircool]

est ce que tu travaille avec le pilote ODBC comme intermadiare entre (SGBD/VB)?????

[WOLO Laurent]

Il ne s'agit pas d'un problème lié au pilote ODBC.
Quel est le type de sécurité que vous avez configuré (Windows ou Mixte )?
Veuillez également poster votre code Vb/Asp.

[blackghost]

sécurité mixte

la connexion c oleDB

[WOLO Laurent]

Alors voici une procedure pour vous connecter au serveur :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Global gcn as ADODB.Connection
Function blnConnection() As Boolean
    'Fixer les propriétés de la connection
    Set gcn = New Adodb.Connection
    With gcn
        .Provider = "sqloledb.1"
        .ConnectionTimeout = 5
        .CursorLocation = adUseServer
        .Properties("Initial catalog") = "POPULATE_DB"
        .Properties("Data Source") = "DIR_WU"
        .Properties("User ID") = "sa"
        .Properties("Password") = ""
    End With
    'En cas d'erreur, avertissement !
    On Error GoTo ErrHandler
    'Tentative Connection
    gcn.Open
    blnConnection = True
    Exit Function
ErrHandler:
    blnConnection = False
End Function

[blackghost]

voici ma connexion

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Dim C As ADODB.Connection
Dim R As ADODB.Recordset
On Error GoTo m
 
Set C = New ADODB.Connection
Set R = New ADODB.Recordset
 
C.CursorLocation = adUseClient
C.Provider = "SQLOLEDB.1"
C.ConnectionString = _
"Persist Security Info=False" & ";" & _
"Data Source=TITANIUM" & ";" & _
"User ID=mamby" & ";" & _
"Password=mamy" & ";" & _
"Initial Catalog=cti"
C.Open
DoEvents
MsgBox "ok !", vbInformation, "Connexion"
 
Exit Sub
m:
MsgBox Err.Description & vbCr & Err.Source
Err.Clear
End

[/quote]

[WOLO Laurent]

Et quel est le méssage d'érreur ?