Visual Basic - ayuda con Visial Basic 6.0

Life is soft - evento anual de software empresarial
   
Vista:

ayuda con Visial Basic 6.0

Publicado por Martha (1 intervención) el 22/08/2009 03:49:17
Hola me gustaria queme ayudaran con este error , resulta que quiero ingresar el id y password de usuario para iniciar el sistema pero me manda a decir : " no coinciden los tipos de datos en la expresion de criterios" no se que estou haciendo mal si alguien me ayuda a corregir. desde ya gracias

el codigo es el siguiente:

Option Explicit
Private Sub cmdingresar_Click()

Set rst = Nothing
Set rst = New ADODB.Recordset

CadenaSQL = "select * from usuario" & " where nombre ='" & Val(Me.txtident.Text) & "'" _
& " and Password= " & Val(Me.txtpas.Text) & ""

With rst
.Source = CadenaSQL
.ActiveConnection = cnn
.LockType = adLockOptimistic
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open
End With

If Not rst.EOF Then

If Trim(Me.txtident.Text = rst.Fields!nombre) And Trim(Me.txtpas = rst.Fields!Password) Then
MsgBox " Bienvenido Sr.(a)", vbExclamation, " Iniciando de Secion"
Unload frmSplash
MDIsistema.Show

Else
If Trim(Me.txtident = "" Or Me.txtpas = "") Then
MsgBox " Sr. Usuario Ingrese sus datos", vbInformation + vbCritical, "Inicio de Secion"
Me.txtident.SetFocus

Else
If Trim(Me.txtpas = "") And Trim(Me.txtident = rst.Fields!nombre) Then
MsgBox "Sr.Usuario no Ingreso la Contraseña, Escriba la contraseña", vbInformation, "Escriba la contraseña de usuario"
Me.txtpas.SetFocus
Else
If Trim(Me.txtident = "") And Trim(Me.txtpas = rst.Fields!Password) Then
MsgBox "Sr.Usuario ingrese su nombre de usuario, Escriba la contraseña", vbInformation, "Escriba la contraseña de usuario"
Me.txtpas.SetFocus

Else
If Trim(Me.txtpas) <> Trim(rst.Fields!Password) And Trim(Me.txtident) = Trim(rst.Fields!nombre) Then
MsgBox "Contraseña no válida. Intente de Nuevo ", vbInformation, " Escriba la contraseña correcta"
Me.txtpas.SetFocus
Else
If Trim(Me.txtident) <> Trim(rst.Fields!nombre) And Trim(Me.txtpas) = Trim(rst.Fields!Password) Then
MsgBox "Nombre de usuario no válido. Intente de Nuevo ", vbInformation, "Escriba el nombre de Usuario Correcto"
Me.txtident.SetFocus
End If
End If
End If
End If
End If
End If
End If
End Sub
Private Sub cmdsalir_Click()
End
End Sub

Private Sub Form_Load()
AbrirMainDB
End Sub

Private Sub txtident_Change()
If Len(txtident.Text) <= 15 Then
Val (Me.txtident.Text)
Else
MsgBox " La Longitud Maxima de ID es de 15 caracteres", vbInformation, "Ingrese Nuevamente su ID"
Me.txtident.Text = ""
Me.txtident.SetFocus
End If

End Sub

Private Sub txtident_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.txtpas.SetFocus
KeyAscii = 0
Else
KeyAscii = Asc(UCase(Chr(KeyAscii)))

End If
End Sub

Private Sub txtpas_Change()
If Len(Me.txtpas.Text) <= 8 Then
Val (Me.txtpas.Text)
Else
MsgBox " La Longitud maxima para la clave es de 8 caracteres", vbInformation, "Ingrese Nuevamente la clave"
Me.txtpas.Text = ""
Me.txtpas.SetFocus
End If
End Sub

Private Sub txtpas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Me.cmdingresar.SetFocus
Else
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End If

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

RE:ayuda con Visial Basic 6.0

Publicado por Iñaki (502 intervenciones) el 22/08/2009 05:46:54
Hola Martha, en principio el error que veo lo tienes en la cadena Sql, al utilizar Val.
Si lo que pretendes es que tomar el valor de una caja de texto sin espacios en blanco, seria Trim(....).
Val: convierte a numero,

CadenaSQL = " select * from usuario" & " where nombre ='" & Trim(Me.txtident.Text) & "'" _
& " and Password= " & TrimVal(Me.txtpas.Text) & ""
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con Visial Basic 6.0

Publicado por Iñaki (502 intervenciones) el 22/08/2009 05:50:15
Perdona cometi un error:

CadenaSQL = " select * from usuario" & " where nombre ='" & Trim(Me.txtident.Text) & "'" _
& " and Password= " & Trim(Me.txtpas.Text) & ""

Habia escrito TrimVal(....)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:ayuda con Visial Basic 6.0

Publicado por jaime guerrero (361 intervenciones) el 25/08/2009 18:47:27
CadenaSQL = "select * from usuario" & _
" where nombre ='" & trim(Me.txtident.Text) & "'" _
& " and Password= '" & trim(Me.txtpas.Text) & "'"

proba con esto. solo le he agregado el apostrofe a password. seguro ese es el problema. otra, nunca uses val, es una mala practiva. para eliminar espacion en blanco usa trim, para convertir a enteros cint, para double cdbl, etc, etc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar