Principales respuestas
Acceso a BD con ADODB

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
- Cambiado Alberto López Grande (qwalgrande) domingo, 23 de junio de 2013 15:25 Pregunta de desarrollo
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 SubPublic 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.
- Marcado como respuesta Cynthia Rodriguez lunes, 21 de abril de 2014 13:17
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
-
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 SubPublic 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.
- Marcado como respuesta Cynthia Rodriguez lunes, 21 de abril de 2014 13:17
-