Visual Basic.NET - Obtener nombre de los Campos

   
Vista:

Obtener nombre de los Campos

Publicado por Rodrgio (17 intervenciones) el 06/02/2008 16:44:28
Hola que tal, tengo una aplicación con un DataGridView que lo lleno en el Load del Formulario
También tengo un Botón y una Caja de Texto para buscar registros sobre el DataGridView

La aplicación funciona bien pero quiero que el usuario pueda elegir en que campo buscar, por defecto busca siempre en el campo “Nombre”
Yo quiero meter un ComboBox con los nombres de los campos, esto es lo que no me sale
Espero que puedan ayudarme saludos.

No se si hace falta pero igual pego el código:

Private BindingSource1 As Windows.Forms.BindingSource = New BindingSource
Private Const cs As String = "Server = (local); Database = BDcasa; User id = Rodrigo; Password = ******"
--------------------
Private Sub Form1_Load …
Try
Using Conexion As SqlConnection = New SqlConnection(cs)
Conexion.Open()
Dim Adaptador As New SqlDataAdapter("SELECT * FROM UsuariosDelSistema", Conexion)
Dim Tabla As New DataTable
Adaptador.Fill(Tabla)
BindingSource1.DataSource = Tabla
DataGridView1.DataSource = BindingSource1.DataSource
End Using
Catch ex As Exception
MsgBox(ex.Message.ToString)
End Try
End Sub
---------------------
Function Buscar(ByVal Columna As String, ByVal texto As String, ByVal BindingSource As BindingSource) As Integer
Try
If BindingSource1.DataSource Is Nothing Then
Return -1
End If
Dim fila As Integer = BindingSource.Find(Columna.Trim, texto)
BindingSource.Position = fila
Return fila
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try
Return -1
End Function
------------------------
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ret As Integer = Buscar(ComboBox1.SelectedItem, TextBox1.Text.Trim, BindingSource1)
If ret = -1 Then
MsgBox("No se encontró el registro")
Else
DataGridView1.DataSource = BindingSource1
DataGridView1.FirstDisplayedScrollingRowIndex = ret
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