none
Acceso a BD con ADODB 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 17:35

Respuestas

  • Puedes Utilizar ésta función en un módulo para conectar con ADODB. Pero la declaración de la Conexión es la siguiente:

     --------------------------------------------------------------- ---------------------------------------------------------------

    Option Explicit

    Public Cn as New ADODB.Connection 'Pública para que puedas utilizarla en cualquier Form de tu proyecto

    Public Sub Main()
       
        Servidor = "TUServidorSQL\Instancia" 'Instancia si es que la tiene.
        DataBase = "TuBaseDeDatos"
        Usr = "TuUsuario"
        Pass = "TuContraseña"

        'También podrías hacer que esas variables vengan de un archivo INI, para que puedas cambiar esos datos cuando quieras.   

        If Conectar(Servidor, DataBase, Usr, Pass) = True Then
            form1.Show 'Asumiendo que éste es el formulario principal de tu aplicación.
            Else
                End
        End If
    End Sub

    Public Function Conectar(ServerName As String, DataBase As String, Usr As String, Pass As String) As Boolean
    On Error GoTo NotConnect

        Cn.Open "Provider=SQLOLEDB.1;Password=" & Pass & ";Persist Security Info=True;User ID=" & Usr & ";Initial Catalog=" & DataBase & ";Data Source=" & ServerName

        Conectar = True

         Exit Function
    NotConnect:
        Conectar = False
        MsgBox "Sin Permisos a la Base de Datos", vbOKOnly, "Usuario Bloqueado" 'En caso de que algún dato de conexión a la Base de Datos no sea correcto, te mostrará éste mensaje.

    End Function

     --------------------------------------------------------------- ---------------------------------------------------------------

    Espero haberte ayudado. Un saludo.

    Renzo.

    jueves, 3 de abril de 2014 15:04

Todas las respuestas

  • Es mas un tema para el foro de VB6, muevelo por favor

    http://social.msdn.microsoft.com/Forums/es-ES/vb56es/threads

    Mientras lo haces puedes revisar este enlace 

    http://www.elguille.info/vb/bases/ADO/abrirbaseSQL.htm

    lunes, 17 de junio de 2013 17:55
  • Puedes Utilizar ésta función en un módulo para conectar con ADODB. Pero la declaración de la Conexión es la siguiente:

     --------------------------------------------------------------- ---------------------------------------------------------------

    Option Explicit

    Public Cn as New ADODB.Connection 'Pública para que puedas utilizarla en cualquier Form de tu proyecto

    Public Sub Main()
       
        Servidor = "TUServidorSQL\Instancia" 'Instancia si es que la tiene.
        DataBase = "TuBaseDeDatos"
        Usr = "TuUsuario"
        Pass = "TuContraseña"

        'También podrías hacer que esas variables vengan de un archivo INI, para que puedas cambiar esos datos cuando quieras.   

        If Conectar(Servidor, DataBase, Usr, Pass) = True Then
            form1.Show 'Asumiendo que éste es el formulario principal de tu aplicación.
            Else
                End
        End If
    End Sub

    Public Function Conectar(ServerName As String, DataBase As String, Usr As String, Pass As String) As Boolean
    On Error GoTo NotConnect

        Cn.Open "Provider=SQLOLEDB.1;Password=" & Pass & ";Persist Security Info=True;User ID=" & Usr & ";Initial Catalog=" & DataBase & ";Data Source=" & ServerName

        Conectar = True

         Exit Function
    NotConnect:
        Conectar = False
        MsgBox "Sin Permisos a la Base de Datos", vbOKOnly, "Usuario Bloqueado" 'En caso de que algún dato de conexión a la Base de Datos no sea correcto, te mostrará éste mensaje.

    End Function

     --------------------------------------------------------------- ---------------------------------------------------------------

    Espero haberte ayudado. Un saludo.

    Renzo.

    jueves, 3 de abril de 2014 15:04
  • Renzo, muchas gracias, súper bien explicado, sabes? ya me cambié a desarrollo en Silverlight, y ahora traigo otros "dolores de cabeza"

    Saludos desde México


    cyndyrdz

    jueves, 3 de abril de 2014 17:25