elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Logarse en un programa con datos de una base de datos access
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Logarse en un programa con datos de una base de datos access  (Leído 1,569 veces)
galizia

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Logarse en un programa con datos de una base de datos access
« en: 21 Octubre 2011, 00:39 am »

Hola,

Estoy creando un programa tipo cyber el cual el primer formulario tendra para que escriban usuario y contraseña, la base de datos la tendre puesta en un ordenador que hara de servidor.
en este mismo servidor todos podran tener acceso a la base de datos para consulta solo.

en el servidor me hace falta poder añadir usuarios segun la marcha, me baje un codigo para hacerlo por vb6 y office 95 pero con el 2003 tengo problemas :(, ademas de no poder añadir usuarios nuevos...

si os sirve de idea el proyecto inicial con ofice 95 es
Código:
Private Sub Command1_Click()

  On Error Resume Next
  Direccion = "y:\cyber.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
      'FrmAgenda.CS.Caption = "Cerrar Sesión de " & UCase(Text1.Text)
      autentifica.Show
      
     Else
      MsgBox ("Password incorrecto"), vbInformation
      Text2.Text = ""
      Text2.SetFocus
     End If
    
    
    End If
   End With

End Sub

Private Sub Command2_Click()
 End
End Sub

Private Sub Command3_Click()
 Text1.Text = ""
 Text2.Text = ""
 Text1.SetFocus
End Sub




Private Sub Form_Load()

End Sub

Private Sub text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
Private Sub text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub
graciass


« Última modificación: 21 Octubre 2011, 01:46 am por raul338 » En línea

raul338


Desconectado Desconectado

Mensajes: 2.633


La sonrisa es la mejor forma de afrontar las cosas


Ver Perfil WWW
Re: Logarse en un programa con datos de una base de datos access
« Respuesta #1 en: 21 Octubre 2011, 01:47 am »

Estas usando el vb6 o el VBA? (El visual basic que se incluye con access)?

Si es visual basic 6, te diría que busques sobre ADO y rehagas todo


En línea

galizia

Desconectado Desconectado

Mensajes: 9


Ver Perfil
Re: Logarse en un programa con datos de una base de datos access
« Respuesta #2 en: 21 Octubre 2011, 15:35 pm »

con visual basic 6 uf con ado.... eso de acer que busque en la base de datos la tabla de usuarios y que verifique la contraseña en la tabla .... nose... :( i need help necesito ayudaa.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines