Ingeniero Civil
Publicado por GUILLERMO ESCORCHA (2 intervenciones) el 30/04/2021 00:29:42
buenas tardes amigos llevo dias tratando de dar con el error 13 No coincide los tipos, este error me da en la linea de codio resaltada si me pueden ayudar a dar con el problema se los agradeceria
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Function Validar_Usuario(usuario As String, password_us As String) As Boolean
Dim RecordsetTemp As New ADODB.RecordsetDim Sql As String
Dim Clave As String
Clave = EncryptString("4nkiujn4", password_us, 1)
Sql = "Select * From tblUsuarios where usuario = '" & usuario & "' and password_us = '" & Clave & "'"
Set RecordsetTemp = ConexionADOIf RecordsetTemp.RecordCount > 0 Then
Glo_NombreUsuario = RecordsetTemp("nombres_apellidos")
Glo_IdUsuario = RecordsetTemp("IdUsuario")
Glo_IdentifUsuario = RecordsetTemp("identificacion")
Validar_Usuario = TrueElse
Validar_Usuario = FalseEnd If
End Function
Valora esta pregunta
0
