none
Conexión con SQL Server 2008

    Pregunta

  • Estoy tratando de hacer una conexión con una base de datos SQL Server en red haciendo

    Dim connClass As New ADODB.Connection 

    connClass.ConnectionString = "Provider=SQLNCLI10;Persist Security Info=True;" & _
                            "User ID=" & cUsuario & ";" & _
                            "Password=" & cPassword & ";" & _
                            "Initial Catalog=" & cCatalogo & ";" & _
                            "Data Source=" & cServidorSQL & ";" & _
                            "Use Procedure for Prepare=1;Auto Translate=True;" & _
                            "Packet Size=4096;" & _
                            "Workstation ID=CAT;" & _
                            "Use Encryption for Data=False;Tag with column collation when possible=False;"

    Pero al ejecutar connClass.Open  se queda parado sin ningún mensaje de error.

    ¿Alguna idea de cómo resolverlo?

    Gracias.


    Saludos, Javier J

    miércoles, 06 de junio de 2018 15:57

Todas las respuestas

  • Hola,

    Abri un nuevo proyecto en VB6.

    Agrega la referencia Microsoft ActiveX Data Objects 2.x ....

    Pegar un boton de comando

    Dentro del evento _Click del boton de comando pega este codigo

        On Error GoTo ErOpen
     
        Dim connClass As ADODB.Connection
        Set connClass = New ADODB.Connection
     

       'Asignar las variables:

       'cServidorSQL =
       ' cCatalogo =
       ' cUsuario =
        'cPassword =
        

        With connClass
            .Provider = "SQLNCLI"
            'Para SQLServer 2005 o superior puede ser que el data source sea
            'Servidor\Instancia, ejemplo MiServidor\SQLEXPRESS
            .Properties("Data Source").Value = cServidorSQL
            .Properties("Initial Catalog").Value = cCatalogo
            .Properties("User ID").Value = cUsuario
            .Properties("Password").Value = cPassword
            .ConnectionTimeout = 30
            .Open
        End With

        MsgBox "Se abrio la conexion correctamente !!!"

        Exit Sub
        
    ErOpen:
        
        Dim ErrLoop As ADODB.Error
            
        If connClass.Errors.Count > 0 Then
            For Each ErrLoop In connClass.Errors
                MsgBox "Numero: " & ErrLoop.Number & vbCrLf & vbCrLf & "Descripcion: " & ErrLoop.Description & vbCrLf & vbCrLf & "Estado SQL: " & ErrLoop.SQLState & vbCrLf & vbCrLf & "Error Nativo: " & ErrLoop.NativeError, vbCritical, "Error al abror Conexion"
            Next ErrLoop
        Else
            MsgBox "Numero: " & Err.Number & vbCrLf & vbCrLf & "Descripcion: " & Err.Description, vbCritical, "Error al abror Conexion"
        End If
        
        Set ErrLoop = Nothing
        Err.Clear

     


    Victor Koch

    jueves, 07 de junio de 2018 13:14
  • Estos son los errores que me da

    


    Saludos, Javier J

    miércoles, 13 de junio de 2018 15:26
  • Hola,

    La descripcion del error esta clara. El servidor no existe o no permite conexiones remotas.


    Victor Koch

    miércoles, 13 de junio de 2018 16:50
  • Al servidor "SERVIDOR\SIGPLUS" me puedo conectar desde el Management con el mismo usuario y contraseña.

    Saludos, Javier J

    miércoles, 13 de junio de 2018 17:02
  • Proba desde origenes de datos ODBC si te podes conectar.

    Lo exteraño es que, segun mi codigo, la conexion es via OLEDB y a vos el error te sale como si la conexion es via ODBC, cambiaste el codigo que te sugeri ?. 


    Victor Koch

    miércoles, 13 de junio de 2018 17:09
  • Desde oDBC se conecta bien. Si probé el código sin resultados.

    Estoy bastante perdido.


    Saludos, Javier J

    miércoles, 13 de junio de 2018 17:18
  • Proba cambiarle el proveedor oledb SQLNCLI por SQLOLEDB

    Victor Koch

    miércoles, 13 de junio de 2018 17:21
  • Eso ya lo probé sin resultado.

    Saludos, Javier J

    jueves, 14 de junio de 2018 6:49