Visual Basic - urge ayuda bbdd acces97 actualizarla a acces2003 o 2007 i mas

Life is soft - evento anual de software empresarial
   
Vista:

urge ayuda bbdd acces97 actualizarla a acces2003 o 2007 i mas

Publicado por fajardo misterfajardo@gmail.com (9 intervenciones) el 06/11/2011 20:24:46
Hola tengo un codigo de un programa ke vaje pero no se actualizarla para poderla usar en acces 2003 o 2007 este es el codigo
asi me gustaria que los registroas de la bsae de datoss se puedan añadir desde otro programa en vb6 ya que el codigo ke os pongo sera par aordenador de consulta a la base de datos.. solo

Hola este es el programa que veran los usuarios, a parte me interesaria lo comentado que use office 2007 - o 2003-
asi como crear un programa en el server para que de de alta usuarios y contraseñas para entrar....

On Error Resume Next
Direccion = "x:\bbdd.mdb"
Set BaseDatos = OpenDatabase(Direccion)
Set RsUsuarios = BaseDatos.OpenRecordset("Select * From Usuarios")

With RsUsuarios
.FindFirst "Usuario ='" & Text1.Text & "'"
If .NoMatch Then
MsgBox ("Usuario no registrado"), vbInformation
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
If Text2.Text Like RsUsuarios(2) Then
Usuario = Text1.Text
autentifica.lblusuario.Caption = Text1.Text
autentifica.Show

Else
MsgBox ("Password incorrecto"), vbInformation
Text2.Text = ""
Text2.SetFocus
End If


End If
End With

End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder