¿Como realizar 2 busquedas en dataview?

07/04/2005 - 18:41 por José Luis | Informe spam
hola tengo un problema sobre unas vistas, este ees mi codigo de buscar:

Private Function BuscarRegistro(ByVal prmPos As Integer)
As Integer

'Nota:Por extraà±a razon la primera vez que se
busca el password
'vpassword esta en 0 y en la segunda vez esta en 1
sin que se haya
aumentado
' y despues aumenta a 2
Dim vlogin, vpassword As Integer
Dim login, password As String


vlogin = 0
vpassword = 0
login = TBLogin.Text
password = TBPassword.Text
If TBLogin.Text = "" And TBPassword.Text = "" Then
MsgBox("Faltan introducir el login y
password",
MsgBoxStyle.Information)
ElseIf TBLogin.ForeColor.ToArgb <>
Color.Black.ToArgb Or
TBPassword.ForeColor.ToArgb <> Color.Black.ToArgb
Then 'negro
MsgBox("Hay campos que no estan correctos los
datos",
MsgBoxStyle.Exclamation)
Else
If TBLogin.Text = "" Then
MsgBox("Faltan introducir el login",
MsgBoxStyle.Information)
Else
If TBPassword.Text = "" Then
MsgBox("Faltan introducir el
password",
MsgBoxStyle.Information)
Else
Try

Try
vlogin = 0
vpassword = 0
''creamos una vista a un Data Set
DSUsuarios
'Table: Obtiene o asigna el objeto
DataTable del
conjunto de datos DSUsuarios
'Un objeto DataColumn denominado
login en la tabla
Usuarios

'para saber el nombre que se le
asigno a mi DataTable
MsgBox(DSUsuarios.Tables
(0).TableName)
'el nombre asignado es USUARIOS


Dim DVLogin As DataView = New
DataView(DSUsuarios.Tables(0), "", _
"login",
DataViewRowState.CurrentRows)
''ordeno
DVLogin.Sort = "login"
'' Regreso el index del valor
encontrado

vlogin = DVLogin.Find(login)
Dim DVPassword As DataView = New
DataView(DSUsuarios.Tables(0), "", _
"password",
DataViewRowState.CurrentRows)
'ordeno
DVPassword.Sort = "password"
'Regresamos el index del cliente
encontrado
vpassword = DVPassword.Find
(password)

If vlogin = vpassword Then
Return vpassword
Exit Function
Else
'Si hay error, regresamos la
'posición (index) del usuario
original(prmPos)
vlogin = 0
vpassword = 0
MsgBox("El login y el password
del usuario no se
encontraron", MsgBoxStyle.Exclamation)
Return prmPos
Exit Function
End If
Catch ex As Exception
'En caso de error, suponiendo que
no se encontró el
usuario,
'regresamos la posición original
del cliente(prmPos)
MessageBox.Show
(ex.Message, "Error", _
MessageBoxButtons.OK,
MessageBoxIcon.Error)
Return prmPos
Exit Function
End Try
End if


El problema que tengo con este codigo, es que no puedo
realizar dos busquedas
con find() sobre dos Dataview diferentes utilizando una
misma fuente de
datos..ya que solo entra al primera busqueda y no hace la
busqueda en la
segunda..

Alguien me puede expliquen un poco mejor donde puedo
encontrar informacion
sobre
DATAVIEW y sus propiedades... junto con los DATASETS
Espero que este bien.. y gracias por todo...

Preguntas similare

Leer las respuestas

#1 Eduardo A. Morcillo [MS MVP VB]
07/04/2005 - 19:26 | Informe spam
¿Hay alguna razon por la cual tengas a todos los usuarios en un DataTable?

Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo
https://mvp.support.microsoft.com/p...4EF5A4191C
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida