Acceso a BD con ADODB

Question

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

Answer 1

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

Answer 2

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.

Answer 3

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