Try this:
cn.Provider = "SQLOLEDB"
cn.Properties("Initial Catalog").Value = sDatabase
cn.Properties("Data Source").Value = sServer
If IntegratedSecurity Then
cn.Properties("Integrated Security").Value = "SSPI"
Else
cn.Properties("User ID").Value = sUserName
cn.Properties("Password").Value = sPassword
End If
On Error Resume Next
cn.Properties("Connect Timeout").Value = TIMEOUT_CONNECT
cn.Properties("General Timeout").Value = TIMEOUT_COMMAND
cn.Properties("Persist Security Info").Value = False
cn.ConnectionTimeout = TIMEOUT_CONNECT
cn.open
Also this is a very useful control:
http://www.geocities.com/scirocco_ha/DataControl.htm
Quote:
Originally posted by ojvm
how can i connect to MSDE i'm trying this
-------------------
With cnContraseña
.Provider = "SQLOLEDB"
.ConnectionString = "UID=" & Usuario & ";pwd=" & Password & " ;Database=OVAZQUEZ\Asistencias;Server=ovazquez;Pro vider=SQLOLEDB;"
.ConnectionTimeout = 5
.CommandTimeout = 5
.Open
End With
-----------------
AND THIS
-----------------------
With cnContraseña
.Provider = "SQLOLEDB"
.ConnectionString = "Data Source =localhost; Initial catalog = Asistencias; User ID =" & Usuario & ";pwd=" & Password
.ConnectionTimeout = 5
.CommandTimeout = 5
.Open
End With
------------------------
but nothing works, only get a message "ConnectionOpen Error -2147467259 the sql server does not exist" the code is VB 6.0, THANKS
|