busqueda con filtro de milllones de datos

[solosoy]

Buenas tardes tengo un problema; tengo millones de datos como 2 millones q seguiran aunmentando, lo que quiero es que cuando haga una busqueda filtrando dos a tres campos no se cuelgue; se colgaba pq yo llamaba la base de datos asi:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


Dim seleccion As String = "SELECT * FROM base"

da = New SqlDataAdapter(seleccion, conexion)
dt = New DataTable
da.Fill(dt)

' enlazar el DataTable al BindingSource
BindingSource1.DataSource = dt

End Sub

Private Sub Aplicar_Filtro()

' filtrar por el campo Producto
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
Dim ret As Integer = Filtrar_DataGridView( _
"DESC_COMER", _
txtbuscar.Text.Trim, _
BindingSource1, _
dgvdiarios)

If ret = 0 Then
' si no hay registros cambiar el color del txtbox
txtbuscar.BackColor = Color.Red
Else
txtbuscar.BackColor = Color.White
End If
' visualizar la cantidad de registros
Me.Text = ret & " Registros encontrados"

End Sub
Function Filtrar_DataGridView( _
ByVal Columna As String, _
ByVal texto As String, _
ByVal BindingSource As BindingSource, _
ByVal DataGridView As DataGridView) As Integer

' verificar que el DataSource no esté vacio
If BindingSource1.DataSource Is Nothing Then
Return 0
End If

Try

BindingSource.Filter = "DESC_COMER like '" & txtbuscar.Text & "%' AND DESC_OTROS like '" & Txtreferencias.Text & "%'"
'BindingSource.Filter = "DESC_COMER like '" & txtbuscar.Text & "'%{0}%' AND DESC_OTROS like '" & Txtreferencias.Text & "%'AND DESC_FOPRE like '" & Txtotros.Text & "%'"


' enlzar el datagridview al BindingSource
DataGridView.DataSource = BindingSource.DataSource

' retornar la cantidad de registros encontrados
Return BindingSource.Count

' errores
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical)
End Try

Return 0

End Function

Private Sub btnexaminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexaminar.Click
'Aplicar_Filtro()
End Sub

Private Sub txtbuscar_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtbuscar.TextChanged
Aplicar_Filtro()
End Sub

Private Sub Txtreferencias_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtreferencias.TextChanged
Aplicar_Filtro()
End Sub

Private Sub Txtotros_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Txtotros.TextChanged
Aplicar_Filtro()
End Sub

con este ejemplo mostraba cuando eran 1000 datos sin problemas; pero ahora como son mas de dos milllones se me cuelga no quiero q muestre todos los milllones de datos en el datagridview sino los datos filtrados al hacer la busqueda; todo en visual.net 2005 y sql2000

Graxias de antemano.

[Dradi7]

entonces para esto trata de usar delegate y Thread

[Aquaventus]

Hola solosoy, no es que se cuelgue, es solo que estas ejecutando esa busqueda en el mismo plano de tu aplicación, y tarda su respuesta, para ello deberias ejecutar en 2do plano como dice Dradi7 usando delegate y thread para que al menos tu interfaz muestre mediante un progressbar o un mensaje que se está ejecutando dicha consulta. Saludos!.

[solosoy]

Iniciado por Aquaventus

Hola solosoy, no es que se cuelgue, es solo que estas ejecutando esa busqueda en el mismo plano de tu aplicación, y tarda su respuesta, para ello deberias ejecutar en 2do plano como dice Dradi7 usando delegate y thread para que al menos tu interfaz muestre mediante un progressbar o un mensaje que se está ejecutando dicha consulta. Saludos!.

Amigos soy nuevo en todo esto, nose si me podrian dar mas informacion y decirme onde puedo poner esos atributos en mi codigo;le agradeceria de corazon; como digo solo quiero q corra el programa y cuando em piece a buscar lo hagasin problemas graxias.

[solosoy]

Iniciado por Dradi7

entonces para esto trata de usar delegate y Thread

Amigos soy nuevo en todo esto, nose si me podrian dar mas informacion y decirme onde puedo poner esos atributos en mi codigo;le agradeceria de corazon

[Dradi7]

Ejemplo como debes implementarlo

Código vb:

Dim Ts As ThreadStart
Dim T As Thread
 
Delegate Sub cambiarColor(ByVal c As Color)
Dim cc As cambiarColor
 
Private Sub Procesar()
    Ts = New ThreadStart(AddressOf Aplicar_Filtro)
    T = New Thread(Ts)
    T.Start()
End Sub
 
' OJO CUANDO ESTES USANDO PROCESOS EN SEGUNDO PLANO Y QUIERE MANEJAR(REALIZAR CAMBIOS) OBJETOS QUE SE ENCUENTREN EN PRIMER PLANO DEBES USAR DELEGADOS
Private Sub Aplicar_Filtro()
    ' MOSTRAMOS MENSAJE ESTE MENSAJE NO NECESITA DELEGADO PORQUE NO DEPENDE DE PROCESOS EN PRIMER PLANO
    msgbox("Mostrando Mensaje")
    ' EN CAMBIO SI HAGO ESTO
    txtAviso.Text = "Filtrando" ' ME DARA ERROR PORQUE ESTOY TRATANDO DE CAMBIAR ALGO QUE ESTA EN PRIMER PLANO, ENTONCES ACA USO LOS DELEGADOS
    
    ' USANDO DELEGADOS
    bb = New cambiarColor(AddressOf cambiarColorBackground)
    If txtAviso.InvokeRequired Then txtAviso.Invoke(bb, Color.Red)
End Sub
 
private sub cambiarColorBackground(ByVal c As Color)
    txtAviso.Color = c
end sub
 

Este es un ejemplo basico de como vas a utilzarlo por cada control que vas a realizar cambios entonces debes usar delegados