39 lines
1.4 KiB
VB.net
39 lines
1.4 KiB
VB.net
'Noviembre 2005
|
|
'CONDORBS
|
|
|
|
|
|
Public Class clBusqueda
|
|
'clase q me permite realizar una busqueda en una columna
|
|
Public Function buscarRegistro(ByVal prmPos As Integer, ByVal NombreDataset As String, ByVal NombreCampo As String, ByVal DS As DataSet) As Integer
|
|
'Dim prmPos As Integer
|
|
'Código para buscar un registro
|
|
DS.Copy()
|
|
Dim BuscarValor As String
|
|
Try
|
|
Dim dvCatClientes As DataView = _
|
|
New DataView(DS.Tables(NombreDataset), "", NombreCampo, DataViewRowState.CurrentRows)
|
|
|
|
'Preguntamos el valor a buscar
|
|
BuscarValor = InputBox("Introduce un valor a buscar del campo: " & NombreCampo, "Buscar")
|
|
If Not BuscarValor = "" Then
|
|
'Regresamos el index del valor encontrado
|
|
'Return dvCatClientes.Find(BuscarValor)
|
|
Exit Function
|
|
Else
|
|
'Si no se especificó el valro a buscar, regresamos la
|
|
'posición (index) del valor original(prmPos)
|
|
MessageBox.Show("La búsqueda no se puede realizar", "Información del sistema", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
|
Return prmPos
|
|
Exit Function
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Return prmPos
|
|
Exit Function
|
|
End Try
|
|
End Function
|
|
|
|
|
|
|
|
End Class
|