Como conectarse a una BdD con contraseña desde VB6?

[RaymerBol]

Hola amigos del foro, miren quisiera conectarme desde Visual Basic 6 a una base de datos que tenga su contraseña (en Access). El programa se encargue de abrir la base de datos que esta en access con contraseña. Cual seria la secuencia de codigo? o que pasos hay que seguir... ? por favor y no se si estoy haciendo bien al utilizar la base de datos en Access.

Por favor necesito sugerencias en cuanto al Lenguaje de Programacion a utilizarse y que manejador de base de datos utilizar (estandares y buenos).


Gracias anteladamente por su ayuda amigos.....

[jc_moty]

Bueno, el codigo para conectarte a una BD de Access con contraseña usando ADO es el siguiente:

Código:

Dim Data As Connection
Set Data = New Connection
Data.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = " & RUTA_DE_LA_BD & ";Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=CONTRASEÑA"

¿Que DBMS usar y con que lenguaje?, la respuesta a esta pregunta depende de el uso final que se le dara a la aplicacion, VB y Access funcionan de maravilla, siempre y cuando no exigas mucho de la BD, por ahi he leido que access soporta hasta 10 usuarios concurrentes en una red, aunque creo que son menos; VB es bastante sencillo para programar, aunque los exes tienden a ser un poco lentos. Ahora bien, pregunto ¿Cual es el entorno en el que se va desenvolver el sistema que vas hacer?; yo pienso que VB no lo deberias de cambiar, lo que si deberias de pensar bien, es que DBMS usar; VB puede conectarse con la mayoria de DBMS existentes: MySQL, SQL Server, Access, FoxPro, etc.
En conclusion dependiendo del ambiente en el que va trabajar la aplicacion deberias de seleccionar el DBMS o el lenguaje.

Saludos

[aldo1982]

hola probe con etsa coneccion:

Código:

dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\proyecto\db.mdb;Persist Security Info=False;password=aldo"

y me tira el siguietne error:

Código:

no se peude inicializr la aplicacion, falta el archivo de informacion del grupo de trabajo o bien está abierto en modo exclusivo por otro usuario

segun tengo entendido para poder poenr contraseña a archivos mdb hay ke abrirlos en modod exclusivo o no es asi ? alguien me podria dar una ayuda con esto por favoir ?

salu2 y gracias

[Insomnia]

Hola

Data.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data source = " & RUTA_DE_LA_BD & ";Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=CONTRASEÑA"

dbconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\proyecto\db.mdb;Persist Security Info=False;password=aldo"

Te falta la parte JET OLEDB:DATABASE PASSWORD, tu solo has puesto password.

--Saludos--

[jc_moty]

Iniciado por aldo1982

segun tengo entendido para poder poenr contraseña a archivos mdb hay ke abrirlos en modod exclusivo o no es asi ? alguien me podria dar una ayuda con esto por favoir ?

Primero Abris Access despues abris tu BD, en el cuadro de dialogo de abrir, fijate en el boton abrir, este tiene una flecha que muestra un menu, en el cual debes de seleccionar Abrir en modo Exclusivo o algo similar, y ya; asi podras ponerle contraseña a tu BD.
Y luego para que VB no te de problemas segui la observacion que hizo Insomnia.

Saludos

[aldo1982]

hola keria agradecer, muchisimas gracias me andubo perfecto el ejeplo mencionado

salu2 y nuevamente muchas graciaass !!! ;)

[RaymerBol]

Amigos del Foro, si me resulto, pero lo que quisiera saber si es los mismos pasos para conectarse con MySQL (manejador de BdD), en este momento no tengo el manejador de BdD pero pienso adquirirlo y me sugerieron que es mejor con este?.

Muchas gracias por sus tan amables respuestas.... de veras amigos del Foro.

[Bourne]

hola segui los pasos tal como los descriven arriba
pongo

Código:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SisGen\Datos\fichas.mdb;Persist Security Info=False;JET OLEDB:DATABASE PASSWORD=pepa"

Y me dice "No es una contraseña valida"

lo que hice fue abrir la base en modo exclusivo
ir a Herramientas Seguridad Poner contraseña a la base

Que hago mal?

[black_devil]

Provider=Microsoft.Jet.OLEDB.4.0;User ID = Admin;Password=pepa;Data Source=C:\SisGen\Datos\fichas.mdb;Persist Security Info=False"


Si no funciona la pass, prueba a utilizar conexion ODBC...
Me preguntas aca cualquier ... cosa

[Bourne]

bueno puse lo que me dijiste

Código:

Provider=Microsoft.Jet.OLEDB.4.0;User ID = Admin;Password=pepa;Data Source=C:\SisGen\Datos\fichas.mdb;Persist Security Info=False"

y ahora me sale

"El formato de la cadena de inicializacion no cumple la especificacion OLE DB"

tambien probe poniendolo asi

Código:

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\SisGen\Datos\fichas.mdb;Persist Security Info=False;User ID = Admin;Password=pepa"

y me sale

"No se puede iniciar la aplicacion. Falta el archivo de informacion de grupo de trabajo o bien esta abierto en modo exclusivo por otro usuario"

a todo esto yo la base la tengo cerrada.

[black_devil]

Hola como tienes declarada tu base datos, bueno en mi caso uso ODBC, y mis conecciones son:

en un modulo tengo ....

en declaraciones

Código:

Public cn  As ADODB.Connection
Public rs As ADODB.Recordset

en una rutina

Código:

Public Sub conexionbd()
Set cn = New Connection
Set rs = New Recordset

With cn
         .ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;User ID=Admin;PWD=tupass;Data Source=Sistema Administrativo"
          .Open
End With
End Sub

en tu caso puede ser, en un módulo ...

Código:

Public cn  As Database
Public rs as Recordset

bueno no sé como estarán tus declaraciones

Código:

Public Sub conexionbd()
Set cn = New Connection
Set rs = New Recordset


With cn
         .Connection = "Provider=Microsoft.Jet.OLEDB.4.0;User ID = Admin;Password=pepa;Data Source=C:\SisGen\Datos\fichas.mdb;Persist Security Info=False"
          .Open
End With
End Sub

y en el evento load de tu form pones
modulo1.conexionbd
'nombre de tu modulo . la conexion q creamos...

A todo esto sabes trabajar con origenes de datos odbc en panel de control, herramientas administrativas, bueno si asi, te digo como y solucionado el problema, yo una vez tube tu problema, pero a través de odbc solucione el problema de la pass..., ya que me meti a la ayuda de access pero hay que hacer más cosas, prefiero la alternativa odbc, cualquier cosa pregunta

Crear un nuevo archivo de información de grupo de trabajo de Microsoft Access
Cuando se instala Microsoft Access, el programa de instalación crea automáticamente un archivo de información de grupo de trabajo de Microsoft Access que se identifica por la información del nombre y organización que se especifica. Puesto que esta información es a veces fácil de determinar, es posible para los usuarios no autorizados crear otra versión de este archivo de información de grupo de trabajo y asumir consecuentemente los permisos irrevocables de una cuenta de administrador (un miembro del grupo de Administradores) en el grupo de trabajo definido por ese archivo de información de grupo de trabajo. Para evitar esto, cree un nuevo archivo de información de grupo de trabajo y especifique una Id del grupo de trabajo (WID). Sólo alguien que conozca la WID podrá crear una copia del archivo de información de grupo de trabajo.

Salga de Microsoft Access


Para iniciar el Administrador de grupos de trabajo, abra la carpeta de idioma, y haga doble clic en el archivo WRKGADM.EXE. De forma alternativa, puede utilizar el acceso directo Administrador de grupos de trabajo de MS Access en el directorio \ARCHIVOS DE PROGRAMA\MICROSOFT OFFICE\OFFICE.

blabla...

[Bourne]

bueno gracias por tu ayuda igual

[jc_moty]

Pregunto; estas totalmente seguro de que esa es la contraseña; ¿la has escrito bien?; me refiero sobre todo a mayusculas/minusculas; acordate que todo eso puede afectar a la hora de querer hacer la conexion. ¿Que version de Access; VB y ADO usas?.

[jc_moty]

Iniciado por RaymerBol

Amigos del Foro, si me resulto, pero lo que quisiera saber si es los mismos pasos para conectarse con MySQL (manejador de BdD), en este momento no tengo el manejador de BdD pero pienso adquirirlo y me sugerieron que es mejor con este?.

D€finitivamente es mejor que Access; pero la cadena de conexion no es asi; a parte de eso necesitas los Drivers ODBC de MySQL que los encontraras en la seccion de Downloads de su pagina. La cadena de conexion la podes encontrar aqui.

Suerte

[Bourne]

acces 2003 uso adodc
vb6
si, la contraseña esta bien

[black_devil]

hey bourne, mira trabaja con odbc, ni pienses que con proveedor microsoft jet 4 y algo, estube con ese problema hace tiempo, lo hice con odbc y santo remedio ...

[Bourne]

pregunta como hago para trabajar con odbc no se nada al respecto

[xGs_Manco]

Gracias a Bourne casi que no encuentro la solucion a mi problema

[zerocolllaxa1989]

porfavor me pueden ayudar en esta conexion


Sub leer()

Set based = OpenDatabase("..\Control Vehicular\base_recepcion.mdb")

End Sub


mi base de datos tiene contraseña en otras lineas si lo lee pero en esta linea como pongo para que me leea la contraseña