les adjunto mi código completo y una captura del programa
public Class TIENDA
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs)
LoadGrid("")
End Sub
Public Sub LoadGrid(ByVal SearchString As String)
'Inicio la conexion de la base de datos
con.Open()
'inicio mi variable a 0
IdPaciente = 0
'se declara una nueva tabla llamada consultorio
Dim dt As New DataTable("ServicioProducto")
Dim rs As OleDb.OleDbDataAdapter
'compruebo si hay datos en el cuadro de busqueda
If SearchString = "" Or SearchString = "Escribe aqui para buscar" Then
'consulta en caso del cuadro de busqueda este vacío
rs = New OleDb.OleDbDataAdapter("SELECT * FROM ServicioProducto", con)
Else
'consulta en tal caso que exista algun datos en el cuadro de busqueda
rs = New OleDb.OleDbDataAdapter("SELECT * FROM ServicioProducto where ServicioProducto LIKE '" & SearchString & "%' OR Cantidad LIKE '" & SearchString & "%'", con)
End If
'rellena los datos en una tabla declarada consultorio
rs.Fill(dt)
'declara una variable para agregar los datos en el listview
Dim indx As Integer
'limpia el contenido del list view
ListView1.Items.Clear()
For indx = 0 To dt.Rows.Count - 1
Dim lst As New ListViewItem
'Columnas a rellenar
lst.Text = dt.Rows(indx).Item("Id").ToString
lst.SubItems.Add(dt.Rows(indx).Item("ServicioProducto").ToString)
lst.SubItems.Add(dt.Rows(indx).Item("Cantidad").ToString)
lst.SubItems.Add(dt.Rows(indx).Item("Descripcion").ToString)
lst.SubItems.Add(dt.Rows(indx).Item("Costo").ToString)
ListView1.Items.Add(lst)
Next
'libera memoria de la conexion
rs.Dispose()
'cierra la conexion de la base de datos
con.Close()
End Sub
Private Sub TIENDA_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadGrid("")
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
idpaciente = ListView1.FocusedItem.Index
ListView2.Text = ListView1.Items(idpaciente).SubItems(1).Text
ListView2.Text = ListView1.Items(idpaciente).SubItems(2).Text
ListView2.Text = ListView1.Items(idpaciente).SubItems(3).Text
ListView2.Text = ListView1.Items(idpaciente).SubItems(4).Text
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
LoadGrid(TextBox1.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
End Sub
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Dim opc As DialogResult = MsgBox("¿Desea salir de esta aplicación?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Salir")
If opc = Windows.Forms.DialogResult.Yes Then
Else
e.Cancel = True
End If
End Sub
Private Sub TextBox1_ChangeUICues(ByVal sender As Object, ByVal e As System.Windows.Forms.UICuesEventArgs) Handles TextBox1.ChangeUICues
LoadGrid(TextBox1.Text)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
LoadGrid(TextBox1.Text)
End Sub
Private Sub cmdAsignar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
End Sub
Private Sub ListView2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView2.SelectedIndexChanged
End Sub
End Class
