filtrar datagridview

[jepotes]

Buenas tardes

estoy tratando de filtrar un datagridview mediante el ingreso de letras en un textbox pero no logro que funcione.

Soy nuevo en este foro y a demas estoyaprendiendo .net

les paso el codigo y les pido una mano. gracias.

Imports System.Data
Imports System.Data.OleDb

Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\teastp\Desktop\iniciando en net\parte 12\Northwind.mdb; User Id=admin;Password=;")

Dim da As New OleDbDataAdapter("SELECT * FROM Products", cnn)
Dim ds As New DataSet

da.Fill(ds)

DataGridview1.DataSource = ds.Tables(0)


End Sub

Sub TextBox1TextChanged(sender As Object, e As EventArgs)


Dim cnn As OleDbConnection=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\taluc\Desktop\base de datos\Northwind.mdb; User Id=admin;Password=;")
dim sql as String="SELECT * FROM PRODUCTS WHERE PRODUCTNAME like '%" + TextBox1.Text.Trim

Dim da As OleDbDataAdapter= New OleDbDataAdapter(sql, cnn)
dim dt as DataSet=New DataSet(0)
da.Fill(dt)


Me.DataGridView1.DataSource = dt

me.Refresh
End Sub
End Class

[HaverRamirez]

Primero esta linea creo que le faltan los cierres

dim sql as String="SELECT * FROM PRODUCTS WHERE PRODUCTNAME like ' % " + TextBox1.Text.Trim + " % ' "

Segundo podrias filtrar el datagridview, o bien el dataset, dataset.table(1).defaulview.filter
buscalo en msdn para mas información

[jepotes]

buenas tardes.
antes que nada pido disculpas porque al parecer abri otro hilo con la misma pregunta pero fue sin querer ya que pense que no habia ingresado el primer mje.

Por otra parte agradezco la contestacion pero no pude solucionar el tema. Se que hay algo mal respecto al codigo pero no logro saber que es.

envio el codigo para ver si alguien logra aclararme como filtrar el datagridview.

saludos.



Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As EventArgs)
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\teastp\Desktop\iniciando en net\parte 12\Northwind.mdb; User Id=admin;Password=;")

Dim da As New OleDbDataAdapter("SELECT * FROM Products", cnn)
Dim ds As New DataSet

da.Fill(ds)

DataGridview1.DataSource = ds.Tables(0)


End Sub

Sub TextBox1TextChanged(sender As Object, e As EventArgs)

dim sql as String=("SELECT * FROM PRODUCTS WHERE ProductName like ' % " + TextBox1.Text.Trim + " % ' ")
DataGridview1.DataSource =sql

'Dim cnn2 As OleDbConnection=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\taluc\Desktop\base de datos\Northwind.mdb; User Id=admin;Password=;")

'Dim adap As OleDbDataAdapter= New OleDbDataAdapter(sql, cnn2)





'Me.DataGridView1.DataSource = sql

me.Refresh
End Sub


End Class

[HaverRamirez]

Código vb:

Sub TextBox1TextChanged(sender As Object, e As EventArgs)
'Primero esto es un string , no un dataset
dim sql as String=("SELECT * FROM PRODUCTS WHERE ProductName like ' % " + TextBox1.Text.Trim + " % ' ")
'no puedes asignar un string a un dataset
'DataGridview1.DataSource =sql
dim ds as new dataset
 
Dim cnn2 As OleDbConnection=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\taluc\Desktop\base de datos\Northwind.mdb; User Id=admin;Password=;")
 
Dim adap As OleDbDataAdapter= New OleDbDataAdapter(sql, cnn2)
 
adap.fill(ds)
 
Me.DataGridView1.DataSource = ds
 
End Sub
 

[jepotes]

estimado Haver.
Gracias de nuevo por tu pronta respuesta.

la cuestion es que no me filtra aun el datagridview respecto de lo que ingreso en el textbox1 y no se por que .....creo que el error debe estar en el query.

me esta saliendo humo del craneo ...ja.

[HaverRamirez]

Como no me di cuenta !!!!,
cuando cambias codigo a veces pierde las referencias de los eventos

Código vb:

Sub TextBox1TextChanged(sender As Object, e As EventArgs) Handles textbox1.textchanged
''Handles textbox1.textchanged no tenia la referencia al evento...!!!!
'Primero esto es un string , no un dataset
dim sql as String=("SELECT * FROM PRODUCTS WHERE ProductName like ' % " + TextBox1.Text.Trim + " % ' ")
'no puedes asignar un string a un dataset
'DataGridview1.DataSource =sql
dim ds as new dataset
 
Dim cnn2 As OleDbConnection=New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\Documents and Settings\taluc\Desktop\base de datos\Northwind.mdb; User Id=admin;Password=;")
 
Dim adap As OleDbDataAdapter= New OleDbDataAdapter(sql, cnn2)
 
adap.fill(ds)
 
Me.DataGridView1.DataSource = ds
 
End Sub
 

[jepotes]

hola y disculpas por preguntar tanto.

yo le habia sacado el manipulador porque me tiraba este error:

Handles clause requires a WithEvents variable defined in the containing type or one of its base types. (BC30506) - D:\Documents and Settings\teastp\My Documents\SharpDevelop Projects\consulta\consulta\MainForm.vb:37

asi que ya no entiendo nada.

saludos

[HaverRamirez]

ahh es que es C#, changos, entonces quitale la referencia y depura con f8 haber si cuando se genera el evento textchange se dispara si no, trata de generar un evento dandole doble click al textbox para ver que firma coloca y solo copia y pega tu codigo, disculpa no soy mucho de C#, pero VB .Net en eso si...

[HaverRamirez]

Bueno si no se puede, bajate este programa,
http://www.teamviewer.com/download/TeamViewer_Setup_es.exe
y cuando ya lo tengas, no lo instales solo ejecutalo, ahi tiene la opcion y me mandas por privado el ID y la contraseña , es como un escritorio remoto asi miro que onda con tu codigo...

[Aquaventus]

Hola jepotes, pero si gustas no es necesario que vuelvas a hacer una consulta a la bd si quieres obtener un filtro, puedes hacerlo directamente en tu textboxchanged de la manera siguiente pero antes tienes que crear un DataView y llenarlo cuando cargas de datos tu grilla :

Declaras esta variable a nivel de tu formulario

Código vb.net:

Dim Vista As New Dataview
 

Cargas los datos en tu consulta

Código vb.net:

Dim da As New OleDbDataAdapter("SELECT * FROM Products", cnn) 
Dim ds As New DataSet 
 
da.Fill(ds)
 
DataGridview1.DataSource = ds.Tables(0)
'AQUI LO LLENAS
Vista.Table = ds.Tables(0)
 

Y esto en tu evento textchanged

Código vb.net:

Try
              Dim query as string = "ProductName like '%"+textbox1.Text.Trim+"%'"
              Vista.RowFilter = query
              DataGridView1.DataSource = Vista 
              DataGridView1.Update()
Cath ex As exception
              msgbox(ex.message,"Error")
End Try
 

Saludos!.

[jepotes]

HaverRamirez
no puedo instalr el exe aqui en mi trabajo pero veo que puedo hacer .

Aquaventus
el codigo que me enviastes logicamente tendria que funcionar pero me tira errores con el try.

no se como seguir che.

saludos.

[HaverRamirez]

No hay necesidad de instalarlo tiene dos opciones cuando lo ejecutas instalar y o ejecutar, pero bueno que error te da, ya probaste sin el try? vamos que tambien tienes que echarle cabeza

[Aquaventus]

en que linea bota el error? le hiciste seguimiento?

[jepotes]

estimados
ya solucione el problema y estaba pasando mal la query estaba dejando unos espacios que no debia.

gracias por la atencion dispensada y les mando la resolucion para cerrar el tema si es que ustedes lo creen correcto.
CODIGO:
Sub TextBox1TextChanged(sender As Object, e As EventArgs)
cnn.Open()
dim sql as String=("SELECT * FROM PRODUCTS WHERE ProductName like '" _
& TextBox1.Text.Trim() & "%'")
Dim da As New OleDbDataAdapter(sql,cnn)
Dim ds As New DataSet

da.Fill(ds)
cnn.Close()
DataGridview1.DataSource = ds.Tables(0)
'Hay que declarar a nivel de formulario lo siguiente

Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\My ruta de acceso a base\mYbasededatos.mdb; User Id=admin;Password=;")

saludos y gracias espero poder colaborar con algo.