-
ayuda con visual basic
B tardes al momento de estar generando un pequeño fragmento de codigo me sale el siguiente error
"numero de argumentos erroneo o asignacion de propiedad no valida "
el fragmento de codigo es el siguiente:
Private Sub cmdOK_Click()
Set con = New ADODB.Connection 'establece conexion
'para abrir la base de datos
CONEX.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=172.17.25.181; DATABASE=horarios;UID=root; PWD=xxxx; OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
con.CursorLocation = adUseClient
con.Open CONEX
con.Open "select pass as contrasena from usuarios", con, adOpenDynamic, adLockOptimistic
'comprobar si la contraseña es correcta
If txtPassword.Text = con("contrasena") Then
en esta parte | me marca el error
LoginSucceeded = True
Me.Hide
frmSplash.Show
Else
MsgBox "La contraseña no es válida. Vuelva a intentarlo", , "Inicio de sesión"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
si me pudieran ayudar se los agradeceria
salu-2
-
Hola a menos que CON sea una funcion propia analiza los parametros de otra manera elimina CON() y deja solamente "contraseña" para que compare, el textbox con la clave.
If txtPassword.Text = con("contrasena") Then
y quedaria asi
If txtPassword.Text = "contrasena" Then 'Normal
o asi
If txtPassword.Text = ucase("contrasena") Then 'Mayusculas
o asi
If txtPassword.Text = lcase("contrasena") Then 'Minusculas
o asi
If txtPassword.Text = ltrim("contrasena") Then 'Sin espacios a los lados
espero te sea util.