none
Acceso a BD SQL con ADOBD desde VB6 RRS feed

  • Pregunta

  • hola, necesito conectarme a una BD de SQL desde Visual Basic 6.0 y no sé cómo hacerlo, le pongo:

        Set cnn = New ADODB.Connection
        '
        ' abrir la base usando las credenciales de Windows
          cnn.Open "Provider=SQLOLEDB; " & _
                 "Initial Catalog=SICABK; " & _   'este es el nombre de la Base de datos
                 "Data Source=BDATOS3; " & _      'este es el nombre del servidor
                 "integrated security=SSPI; persist security info=True;"

    cuando lo ejecuto me da un error: "Error de inicio de sesión del usuario: 'usuario1'

    no sé si hay alguna parte donde debe poner el usuario y password

    Saludos

    lunes, 17 de junio de 2013 18:05

Respuestas

  • Puede ser así

    Option Explicit
    Public cnMDB As ADODB.Connection
    Public rs As ADODB.Recordset
    
    Public Function Conectar() As Boolean
      Set cnMDB = New ADODB.Connection
      Set rs = New ADODB.Recordset
      rs.CursorLocation = adUseClient
      cnMDB.Open "Provider=SQLNCLI;Server=PERSONAL-PC\SQLEXPRESS;Database=Prueba;Uid=sa; Pwd=lim@1;"
    End Function
    
    Public Sub Desconectar()
      On Error Resume Next
      rs.Close
      Set rs = Nothing
      cnMDB.Close
      Set cnMDB = Nothing
    End Sub

    Usas así

    Public Function CargarGrilla() As ADODB.Recordset
        Dim rs As ADODB.Recordset
        Dim strSQL As String
        Conectar
        strSQL = "SELECT cliCodigo AS Código, cliRazonSocial AS [Razón Social] FROM Cliente"
        Set rs = New ADODB.Recordset
        rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
        Set CargarGrilla = rs
    End Function


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    lunes, 17 de junio de 2013 18:14

Todas las respuestas

  • Puede ser así

    Option Explicit
    Public cnMDB As ADODB.Connection
    Public rs As ADODB.Recordset
    
    Public Function Conectar() As Boolean
      Set cnMDB = New ADODB.Connection
      Set rs = New ADODB.Recordset
      rs.CursorLocation = adUseClient
      cnMDB.Open "Provider=SQLNCLI;Server=PERSONAL-PC\SQLEXPRESS;Database=Prueba;Uid=sa; Pwd=lim@1;"
    End Function
    
    Public Sub Desconectar()
      On Error Resume Next
      rs.Close
      Set rs = Nothing
      cnMDB.Close
      Set cnMDB = Nothing
    End Sub

    Usas así

    Public Function CargarGrilla() As ADODB.Recordset
        Dim rs As ADODB.Recordset
        Dim strSQL As String
        Conectar
        strSQL = "SELECT cliCodigo AS Código, cliRazonSocial AS [Razón Social] FROM Cliente"
        Set rs = New ADODB.Recordset
        rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
        Set CargarGrilla = rs
    End Function


    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    lunes, 17 de junio de 2013 18:14
  • Muchas gracias, ya pude conectarme a la BD y leer una tabla, ahora voy a hacer pruebas para trabajar con los datos. Saludos
    lunes, 17 de junio de 2013 19:23
  • Ok, de nada.

    Pedro Ávila
    "El hombre sabio querrá estar siempre con quien sea mejor que él."
    Lima - Perú

    lunes, 17 de junio de 2013 19:53