Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - galizia

#1
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.
#2
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

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
#3
Software / consultas
7 Octubre 2010, 03:47 AM
Hola,
0. las consultas son.
1. como quitar la contraseña de un fichero ppt o pps. powerpoint me lo pasaron pero quiero kitar imagenes i editar cosas a mi gusto... el que me lo paso era un antiguo conocido de trabajo...... pero tuvimos pelea i se niega a ayudar pero como son mas de 100 hojas uf acer una por una que dificil...
2. algun programa para vpn de empresa, si es gratuito mejor, que sea compatible xp i windows vista - 7
o algun programa que sea control remoto i posivilidad de copiar archivos de la maquina oficina al portatil fisico, gracias urgnte
#4
es que no se hacerlo jajaa