Visual Basic - Refrescar un datagrid

Life is soft - evento anual de software empresarial
   
Vista:

Refrescar un datagrid

Publicado por Ale (47 intervenciones) el 28/10/2010 03:22:32
Hola a todos tengo la siguiente estructura en un form de consulta, la cual funciona sin problemas al momento de escribir algo en el text1 , el problema es que al dejar el blanco el text1 el datagrid no me muestra los registros, es decir no hace el refresf del datagrid..

Que me falta o que tengo mal ????

Dim consulta As String
Private Sub Form_Load()
Set DataGrid1.DataSource = Adodc1.Recordset
Adodc1.Refresh
Adodc1.RecordSource = "Ingreso5"
End Sub

Private Sub Text1_Change()
If Op1 = True Then
consulta = "Nombre"
ElseIf Op2 = True Then
consulta = "empresa"
End If
With Adodc1
If Text1 <> "" Then
.Recordset.Filter = consulta & " Like '*" + Text1 + "*'"
Set DataGrid1.DataSource = Adodc1.Recordset
Else
.Recordset.Filter = ""
End If
.Refresh
End With
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

RE:Refrescar un datagrid

Publicado por Pedro Luis (128 intervenciones) el 28/10/2010 09:08:55
No encuentro ningún error en el código, quizas alguna inconsistencia, haces un refresh antes del RecordSource, creo que deberia ser después.
Cuando no te muestra ningún registro en .Recordset.Filter = "" te está diciendo que no hay ningún registro a blancos, luego funciona bien.
La ayuda dice que para anular el registro hay que usar la constante adFilterNone con lo que se elimina el filtro.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Refrescar un datagrid

Publicado por Ale (47 intervenciones) el 30/10/2010 03:55:32
Me podrias pasar el codigo utilizando el select por favor???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar