SQL server 2000 et vb?

Version imprimable

17/01/2006, 23h25
blackghost

SQL server 2000 et vb?

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!!! :?: :?:
18/01/2006, 04h14
amazircool

Plus infos

est ce que tu travaille avec le pilote ODBC comme intermadiare entre (SGBD/VB)?????
18/01/2006, 06h58
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.
18/01/2006, 22h39
blackghost

sécurité mixte

la connexion c oleDB

Alors voici une procedure pour vous connecter au serveur :

Code:

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

voici ma connexion

Code:

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]

20/01/2006, 11h05
WOLO Laurent

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