| Pregunta: | 12100 - ABRIR UNA BASE DE DATOS ENCRIPTADA |
| Autor: | Esteban Tripodi Gauthier |
| Hola a todos!
Estoy haciendo un programa que requiere bastante seguridad, y por eso, además de la contraseña que se solicita al tratar de abrir la base de datos que utiliza el mismo a través de Access, por ejemplo, quiero encriptar la base de datos. Esto último sé como hacerlo, lo que no sé es cómo abrir la base de datos encriptada desde Visual Basic. Desde ya, muchas gracias. | |
| Respuesta: | Jose Roque |
| El "truco" consiste en agregar la referencia a la librería adecuada del motor JET, en esta ocasión será: Microsoft DAO 3.x Object Library
Por tanto, en el menú de proyecto tendrás que seleccionar "Referencias..." y de la lista seleccionar la librería de la versión 3.6. Una vez referenciada el motor adecuado, podremos acceder a las bases creadas con el Access. Option Explicit Private sBase As String ' Nombre de la base de datos ' Objetos para acceder directamente a la base usando código Private db As Database Private rst As Recordset Sub Main() sBase = "C:\bases\mibaseEncriptada.Mdb") Set Db=OPendatabase(sBase,False,false,"User=Admin; PWD=12345678") 'Aqui La clave de acceso por ejemplo es 12345678 'Listo ya Esta abierta la base de datos Set rst=db.openrecordSet("Clientes",Dbopendynaset) 'Aqui abrimos la tabla de clientes Set Rst=Db.openrecordset("Select * From clientes Where Estado=True;") 'Aqui Ejecutamos una consulta SQl y decimos que solo nos devuelva los clientes activos , Etc etc End Sub Espero haberte ayudado bye | |