Validar

Cerrado
Denunciar
-
Message postés
2153
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Contribuidor
Última intervención
martes, 26 de octubre de 2010
-
hey... estoy tratando de hacer un sistema de control de visitas en visual basic 6.0 ycon base de datos access y necesito saber como validar el inici de sesion para q el administrador dentre al sistema con usuario y contraseña... sera q me ayuda!!!

4 respuestas

Message postés
2153
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Contribuidor
Última intervención
martes, 26 de octubre de 2010
2.244
Hola

aca te mando un link

http://www.codigogratis.com.ar/post-1.html
1
Gracias

Unas palabras de agradecimiento nunca están de más. Deja tu comentario

CCM 11050 usuarios nos han dicho gracias este mes

gracias Nnet espero encontrar algo
Message postés
2153
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Contribuidor
Última intervención
martes, 26 de octubre de 2010
2.244
Avisame cualquier cosa
hola quisiera saber si estoy conectando bie visual con access
Option Explicit
Public mirs As Connection
Public cnn As Recordset
Public Sub conecta_DB()
Set micnn = New ADODB.Connection
Set mirs = New ADODB.ecordset
Dim servidor, basedatos, Usuario, Contraseña As String
Set mirs.Provider = "MICROSOFT.JET.OLEDB.4.0"
Set cnn.Open = Path + "\prueba.MDB"
End Sub
Message postés
2153
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Contribuidor
Última intervención
martes, 26 de octubre de 2010
2.244
A simple vista esta todo bien.
BUENO AHORA QUIERO INICIAR SESION
Public Function Validar_INICIO(ByVal INICIO As String) As Boolean

Dim i As Integer, iLen As Integer, caracter As String
Dim pos As Integer, bp As Boolean, iPos As Integer, iPos2 As Integer

On Local Error GoTo Err_Sub

INICIO = Trim$(INICIO)

If INICIO = vbNullString Then
Exit Function
End If

INICIO = LCase$(INICIO)
iLen = Len(INICIO)


For i = 1 To iLen
caracter = Mid(INICIO, i, 1)

If (Not (caracter Like "[a-z]")) And (Not (caracter Like "[0-9]")) Then

If InStr(1, "_-" & "." & "@", caracter) > 0 Then
If bp = True Then
Exit Function
Else
bp = True

If i = 1 Or i = iLen Then
Exit Function
End If

If iPos = 0 Or iPos2 = 0 Then
Exit Function
End If

If iPos2 < iPos Then
Exit Function
End If


Validar_INICIO = True

Exit Function
Err_Sub:
On Local Error Resume Next

Validar_INICIO = False
End Function
Message postés
2153
Date d'inscription
viernes, 4 de abril de 2008
Estatus
Contribuidor
Última intervención
martes, 26 de octubre de 2010
2.244
Esta bien. A simple vista