visual basic y access 2000

[ccca001]

hola , necesito una ayudita con respecto a algo que quiero hacer y es lo siguiente...: quiero hacer un formulario que al abrirse se conocte a una base de datos xxx, y solicite 2 claves... la primera sera para el usuario comun y me permitira hacer solo algunas cosas (habilite un menu por ejemplo, usuario restringido)... y en caso de que ingrese la segunda clave (administrador) tenga acceso a todo el sistema, o sea habilite dos menus(siguiendo con el ejemplo anterior) me entienden...

ademas, cuando intento abrir la base de datos mediante codigo ( dim & set) me aparece el error de que no reconoce la base de datos (access 2000) pero tengo instalado el service pack 6 de vb, y solo me resulta con el control data para acceder a la base de datos...¿como lo hago solo con codigo?

si tienen ideas o soluciones me gustaria que me las contaran de (codigo o links de informacion que tengan)...

gracias...

[GeoAvila]

lo de los usuarios lo podes crear desde access y cuando conectes la base de datos usas los usuarios que creaste en access. y el mismo te prohibira hacer la cosas que delimites..


nos vemos..

[ccca001]

mmm, si ya lo tengo algo solucionado, pero solo con el data control (y yo no quiero usar data control, quiero mas codigo (para aprender me entiendes)), y el problemas es este: cuando intento abrir la base de datos mediante codigo:

dim midb as database
dim mircd as recordset
Set midb = opendatabase ("usuarios")
Set mircd= midb.OpenRecordset("usuarios", dbOpenTable)

me aparece el error de que no reconoce la base de datos (access 2000) pero tengo instalado el service pack 6 de vb, y solo me resulta con el control data para acceder a la base de datos...¿como lo hago solo con codigo?

[ccca001]

en serio nadie puede ayudar en esto???????

[ccca001]

Const dbase As String = "C:\mibase.mdb"
Set oconn = New ADODB.Connection
Set rst = New ADODB.Recordset

With oconn
.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mibase.mdb;Uid=;Pwd=;"
.Open
End With

rst.Open "SELECT * FROM usuarios", oconn, adOpenDynamic, adLockOptimistic

sBuscar = accesotxt
sBuscar = Replace(sBuscar, "*", "%")
sBuscar = Replace(sBuscar, "?", "_")

accesotxt = sBuscar

sBuscar = "SELECT * FROM usuarios WHERE clave LIKE '" & sBuscar & "' ORDER BY clave"

Set tRs = oconn.Execute(sBuscar)
With tRs
True
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados"
Else

principalfrm.Show
Unload Me
End If
End With


y ademas permite encontrar un valor en la base de datos...

[jrp01]

Eso es lo que decia GeoAvila, en una tabla creas tus usuarios y los pass, desde VB haces una busqueda que encuentre el usuario y que concuerde el pass, dependiendo del tipo de usuario habilitas o desabilitas opciones.

[ccca001]

Iniciado por ccca001

si tienen ideas o soluciones me gustaria que me las contaran de (codigo o links de informacion que tengan)...

si pero me referia a codigo, la idea la tenia clara, pero no sabia el codigo, igual de todos modos gracias...
que seguiremos preguntando...