Problemas con ADODC y Contraseña
Publicado por XcUiDi (30 intervenciones) el 05/12/2002 08:17:10
Ok, antes que nada, un saludo a todos los Buenos programadores que incrementan las soluciones a los problemas de nosotros, los aún novatos en el campo de Visual Basic.
Bien, el motivo de este mensaje es para solicitar ayuda con respecto a un problema con una base de datos (.mbd en Acces):
A. Primero, Tengo mi base (.mbd) con unas 5 tablas, todas bien diseñadas, normalizadas y relacionadas. Le establecí una contraseña para que no pueda abrirse por personas sin autorización.
- En Access, abrir el archivo en modo exclusivo.
- Ejecutar la orden: Herramientas->Seguridad->Establecer contraseña para la base de datos...
- Escribí la contraseña: prueba y confirmar: prueba
- Cerré la base de datos, y cerré Microsoft Access.
B. Después lo vinculé a Visual Basic con el ADODC control, con código, de la siguiente manera:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.path & "\Answerer.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.Password = "prueba" 'La contraseña para poder visualizarla...
Adodc1.RecordSource = "tClaves" 'La tabla que quiero utilizar con ese ADODC...
Adodc1.Refresh 'Refresh para que actualice la información para utilizarla
continua en el siguiente mensaje....
Bien, el motivo de este mensaje es para solicitar ayuda con respecto a un problema con una base de datos (.mbd en Acces):
A. Primero, Tengo mi base (.mbd) con unas 5 tablas, todas bien diseñadas, normalizadas y relacionadas. Le establecí una contraseña para que no pueda abrirse por personas sin autorización.
- En Access, abrir el archivo en modo exclusivo.
- Ejecutar la orden: Herramientas->Seguridad->Establecer contraseña para la base de datos...
- Escribí la contraseña: prueba y confirmar: prueba
- Cerré la base de datos, y cerré Microsoft Access.
B. Después lo vinculé a Visual Basic con el ADODC control, con código, de la siguiente manera:
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.path & "\Answerer.mdb"
Adodc1.CursorType = adOpenDynamic
Adodc1.Password = "prueba" 'La contraseña para poder visualizarla...
Adodc1.RecordSource = "tClaves" 'La tabla que quiero utilizar con ese ADODC...
Adodc1.Refresh 'Refresh para que actualice la información para utilizarla
continua en el siguiente mensaje....
Valora esta pregunta


0