manejo de funciones en asp.net
Publicado por john (1 intervención) el 20/02/2006 15:20:44
hola.
Tengo el siguiente codigo en un formulario de clase y necesito que strAnswer y strPerfil me retornen un valor pero no lo hacen.
Public Function Inspector(ByVal txtNick, ByVal txtPassword, ByVal strAnswer, ByVal strPerfil, ByVal strCon) As Boolean
'boolean
Dim strQuery As String
strQuery = ""
Dim objDataTable As DataTable
objDataTable = New DataTable
Dim objdataset, consulta2 As DataSet
Dim objData As BusinessRules.Data
objData = New BusinessRules.Data
objData.Conexion = strCon
If (txtNick.Text = "") Then
strAnswer = "Debe digitar un valor válido en el campo usuario"
Return False
Else
If (txtPassword.Text = "") Then
strAnswer = "Debe digitar un valor válido en el campo password"
Return False
Else
strQuery = "SELECT * FROM USUARIOS " & _
"WHERE login = '" + txtNick.Text.ToString().Trim() + "' AND " & _
"palabraclave = '" + txtPassword.Text.ToString().Trim() + "'"
objdataset = objData.Ejecutarlist(strQuery, objdataset)
consulta = "SELECT PerfilAdministrativo FROM USUARIOS " & _
"WHERE login = '" + txtNick.Text.ToString.Trim + "' AND " & _
"palabraclave = '" + txtPassword.Text.ToString.Trim + "'"
'objDataTable = objData.EjecutarAdo(objDataTable)
If objdataset.Tables(0).Rows.Count <> 0 Then
'If Not objDataTable Is Nothing Then
'If (objDataTable.Rows.Count = 1) Then
'strAnswer = objdataset.Tables(0).Columns("Nombre").ToString()
'strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
'strPerfil = True
'strAnswer = HttpContext.GetAppConfig("Nombre")
consulta2 = objData.Ejecutarlist2(consulta, objdataset)
'strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
strPerfil = 1
'Return True
Else
objData = Nothing
strAnswer = "Usuario o Password Invalido!"
Return False
End If
'Else
'objData = Nothing
'strAnswer = "Usuario o Password Invalido!"
'Return False
'End If
'Else
'Return False
'End If
End If
End If
'Return strAnswer
Return strPerfil
End Function
Tengo el siguiente codigo en un formulario de clase y necesito que strAnswer y strPerfil me retornen un valor pero no lo hacen.
Public Function Inspector(ByVal txtNick, ByVal txtPassword, ByVal strAnswer, ByVal strPerfil, ByVal strCon) As Boolean
'boolean
Dim strQuery As String
strQuery = ""
Dim objDataTable As DataTable
objDataTable = New DataTable
Dim objdataset, consulta2 As DataSet
Dim objData As BusinessRules.Data
objData = New BusinessRules.Data
objData.Conexion = strCon
If (txtNick.Text = "") Then
strAnswer = "Debe digitar un valor válido en el campo usuario"
Return False
Else
If (txtPassword.Text = "") Then
strAnswer = "Debe digitar un valor válido en el campo password"
Return False
Else
strQuery = "SELECT * FROM USUARIOS " & _
"WHERE login = '" + txtNick.Text.ToString().Trim() + "' AND " & _
"palabraclave = '" + txtPassword.Text.ToString().Trim() + "'"
objdataset = objData.Ejecutarlist(strQuery, objdataset)
consulta = "SELECT PerfilAdministrativo FROM USUARIOS " & _
"WHERE login = '" + txtNick.Text.ToString.Trim + "' AND " & _
"palabraclave = '" + txtPassword.Text.ToString.Trim + "'"
'objDataTable = objData.EjecutarAdo(objDataTable)
If objdataset.Tables(0).Rows.Count <> 0 Then
'If Not objDataTable Is Nothing Then
'If (objDataTable.Rows.Count = 1) Then
'strAnswer = objdataset.Tables(0).Columns("Nombre").ToString()
'strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
'strPerfil = True
'strAnswer = HttpContext.GetAppConfig("Nombre")
consulta2 = objData.Ejecutarlist2(consulta, objdataset)
'strPerfil = objdataset.Tables(0).Columns("PerfilAdministrativo").ToString
strPerfil = 1
'Return True
Else
objData = Nothing
strAnswer = "Usuario o Password Invalido!"
Return False
End If
'Else
'objData = Nothing
'strAnswer = "Usuario o Password Invalido!"
'Return False
'End If
'Else
'Return False
'End If
End If
End If
'Return strAnswer
Return strPerfil
End Function
Valora esta pregunta


0