SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: supra en Viernes 27 de Agosto de 2004, 23:55

Título: Buscar En Grid Desconectado
Publicado por: supra en Viernes 27 de Agosto de 2004, 23:55

Hola a todos:

Actualmente necesito cargar un recordset mediante ADO a un Grid (tengo
el truedbgrid, flexgrid, dbgrid por si las moscas), pero el real
problema es hacer que en el grid se valle seleccionando la fila donde
se encuentre el dato que gradualmente voy digitando en un textbox. He
considerado desconectar el grid del recordset una vez llenado, para
asi mejorar el rendimiento de la BD (Pero no tengo idea de como
hacerlo) actualmente estoy trabajando con ADO.

Por favor Ayuda!!!!

rasa_pro@hotmail.com

Título: Re: Buscar En Grid Desconectado
Publicado por: programador en Sábado 28 de Agosto de 2004, 11:10

:D hola que tal aqui te envio esto paraq ue veas como se puede realizar loq ue deceas claro esto eslo minimo lo demas tu le agregas pero esto es primordial casi todo se hace en el sentecia de SQL

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()

cn.Open "provider=microsoft.jet.oledb.4.0; data source=<Ubicacion donde esta tu base de datos>"
ejmp "c:\mis documentos\prueba.mdb"

rs.Open "Select * from <Tabla>", cn, adOpenStatic, adLockOptimistic

Set Grid.DataSource = rs //aqui hacemos que el gris contenga todo lo que contiene la tabla claro eso puedes modificarlo y hacerq ue aparesca loq ue tu quieres pero ya eso es cosa tuya yo solo te ayudo en lo que pediste

rs.Close //cerramos el rs

End Sub

Private Sub txtN_Change()

rs.Open "Select* from <Tabla> where <Campo> like '" & txtN & "%'", cn, adOpenStatic, adLockOptimistic
//el campo es con lo que vaz a buscar con su nombre su ide, no se ect con lo que tu decees

Set Grid.DataSource = rs //aqui volvemos a llenar el grid

rs.Close
End Sub

eso es todo pruebalo con lo que decees veras que funciona
                         :comp:        Cesar Tapia Mori       :kicking: [/size]

Título: Re: Buscar En Grid Desconectado
Publicado por: supra en Lunes 30 de Agosto de 2004, 18:04

Cita de: "programador"

:D hola que tal aqui te envio esto paraq ue veas como se puede realizar loq ue deceas claro esto eslo minimo lo demas tu le agregas pero esto es primordial casi todo se hace en el sentecia de SQL

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()

cn.Open "provider=microsoft.jet.oledb.4.0; data source=<Ubicacion donde esta tu base de datos>"
ejmp "c:\mis documentos\prueba.mdb"

rs.Open "Select * from <Tabla>", cn, adOpenStatic, adLockOptimistic

Set Grid.DataSource = rs //aqui hacemos que el gris contenga todo lo que contiene la tabla claro eso puedes modificarlo y hacerq ue aparesca loq ue tu quieres pero ya eso es cosa tuya yo solo te ayudo en lo que pediste

rs.Close //cerramos el rs

End Sub

Private Sub txtN_Change()

rs.Open "Select* from <Tabla> where <Campo> like '" & txtN & "%'", cn, adOpenStatic, adLockOptimistic
//el campo es con lo que vaz a buscar con su nombre su ide, no se ect con lo que tu decees

Set Grid.DataSource = rs //aqui volvemos a llenar el grid

rs.Close
End Sub

eso es todo pruebalo con lo que decees veras que funciona
                         :comp:        Cesar Tapia Mori       :kicking: [/size]

Pero mi tabla que en la que debo buscar tiene casi 100 mil registros, además yo no quiero filtrar solamente posicionarme en la fila que responda a mi criterio de busqueda. Pero gracias por tu idea me está sirviendo para otra rutina que necesitaba.

Saludos.