connection SQLDMO

Bonjour tout le monde,

voila j'utilise une connexion SQL-DMO en vb5 pour me connecter a une base de données SQL Server2000. Je peux me connecter si je saisie les mot de passe et user dans un formulaire, par contre je voudrais pouvoir me connecter avec l'authentification Windows [Trusted_Connection en ADO]. Et la je n'arrive pas a récupérer l'autentification windows et donc impossible de se connecter.
Est-ce que qqn peut m'aider parce que la je suis vraiment coincé ??????? SVP.

Merci d'avance et @+

Le troisieme parametre de la connection SQLDMO est Windows.authentification, il faut le mettre à 'true'

ben je dois avoir un prob pq lors de la ligne cnn.connect[cnn as SQLDMO.....] g ke 2 param. Bon merci jve regarder ca
++

Je comprend pas. Voila mon code :


Dim objsqlserv As New SQLDMO.SQLServer
Dim objdatadabase As SQLDMO.Database

objsqlserv.Connect serv, use, mdp ' je n'ai ke ces 3 parametres NomduServer, Login, Mdp. Je n'ai pas de Windows.authentification.

Si tu as un exemple ce serait sympa de me le fournir pq la je suis coincé.
Merci d'avance. ++

Salut,

voici pour toi un code qui te permettra de répondre à ton problème :




 Dim sServerName, sUsername, sPasswd as string

On Error GoTo ErrorHandler

Set objsqlserv = New SQLDMO.SQLServer

objsqlserv .LoginTimeout = -1 '-1 is the ODBC default (60) seconds
'Connect to the Server
If chkAuthentication Then
  With objsqlserv 
  'Use NT Authentication
    .LoginSecure = True
  'Do not reconnect automatically
    .AutoReConnect = False
  'Now connect
    .Connect txtServer.Text
  End With
Else
  With objsqlserv 
  'Use SQL Server Authentication
    .LoginSecure = False
  'Do not reconnect automatically
    .AutoReConnect = False
  'Use SQL Security
    .Connect sServerName, sUsername, sPasswd
  End With
End If

'Set global sqlserver value
Set goSQLServer = objsqlserv
'Show next form
frmSQLScript.Show
Me.Hide

Exit Sub

ErrorHandler:
MsgBox "Error: " & Err.Number & " " & Err.Description, vbOKOnly, "Login Error"

Toufixm!