Cómo implementar el inicio de sesión remoto en VB

Conexión

CnNew.ConnectionTimeout = 25

CnNew.Provider = "sqloledb"

CnNew.Properties("fuente de datos"). value = "" 'Nombre del servidor SQL

CnNew.Properties ("Directorio inicial").value = "pubs" 'Nombre de la biblioteca

CnNew.Properties ("Seguridad integrada"). value = "SSPI" 'Tipo de inicio de sesión

'con.Properties("user id").value = "sa"

'con.Properties("contraseña").value = "wwww"

CnNew.Open

OpenCn = True

addFlag = True

Salir de la función

strErrMag .

Mag = "Conexión de base de datos finalizada"

Llamar a MsgBox(Mag,vbOKCancel, "Error: Conexión de base de datos")

addFlag = False

Fin

Finalizar función

Public Sub Clocn()

'Cerrar base de datos

En caso de error, reanudar siguiente

Si CnNew.State <> adStateClosed entonces CnNew.Clocn()

En caso de error, reanudar a continuación

Si CnNew.State <> adStateClosed entonces CnNew.Clocn()