Situar el puntero en un TDBGrid - VB-MUNDO

ANCALO · #1 (**permalink**) 30-06-2004, 00:00:00

Situar el puntero en un TDBGrid

Hola de nuevo a todos, ante todo disculparme pues quizás esta pregunta ya la haya echo alguien en el foro, pero puesto que no funciona el buscador, no he conseguido encontrar la solución.

Mi problema es el siguiente, tengo una función en la cual selecciono (busco) desde en un Tex las líneas de un TDBgrid, y una vez buscadas selecciono una de ellas y vuelvo a ejecutar el TDBgrid con todo su contenido inicial, y no se como hacer para que este se quede en la línea que antes había seleccionado, pero mostrando todas las líneas del TDBrigrid y no solamente las de la selección.

En pocas palabras como situar el puntero en un TDBGrid en la línea 123 (por ejemplo)

Espero que me entiendan.

Salu2
</TR>

J.M.Movilla · #2 (**permalink**) 30-06-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

A ver... No tienes por qué rellenar de nuevo toda la grilla cada vez que haces una búsqueda... simplemente sitúas el puntero en el registro que desees (el que contiene la información que buscas), refrescas la grilla y sitúas el puntero del mouse en la grilla... Algo así

<BLOCKQUOTE><PRE>Codigo:<HR> If ADO1.Recordset.Find ("NombreDelCampo like " & DatoABuscar & ""

Then

ANCALO · #3 (**permalink**) 30-06-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

No se como hacer esto, José Maria, no entiendo que es lo que tengo mal.

If Adodc1.Recordset.Find("NOMBRE like " & Combo1.Text & ""

Then
TDBGrid1.Refresh
TDBGrid1.SetFocus
End If

esto es lo mismo?, me da error en Adodc1.Recordset.Find

Se esperaba una funcion o una variable.

Salu2</TR>

J.M.Movilla · #4 (**permalink**) 31-07-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

Si tu código es
<BLOCKQUOTE><PRE>Codigo:<HR>If Adodc1.Recordset.Find("NOMBRE like " & Combo1.Text & "") Then<HR></PRE></BLOCKQUOTE>y NOMBRE es el campo en el que deseas que se encuentre el valor de Combo1.Text y ambos son del mismo tipo... no encuentro motivo para que te dé error...

Lo que sí tengo que indicarte es que por causa de esta tu "queja" he comprobado que tal como te indicaba no te hubiera localizado la fila... Habrás de modificar el código por éste:
<BLOCKQUOTE><PRE>Codigo:<HR>Dim nReg As Variant

ANCALO · #5 (**permalink**) 31-07-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

No se que es lo que tengo mal, los botones del control Adodc1 se muestran en enable false, aun estando en propiedades como True.

y me sigue dando el error en esta linea señalando "Find"

Se esperava una función o una variable.

If Adodc1.Recordset.Find("NOMBRE like " & Combo1.Text & ""

Then

Perdona que te moleste tanto, pero es el primer programa que realizo con ADo, antes trabajaba con DAO, y siguiendo tu consejo, aqui estoy.

Gracias de nuevo.

Salu2</TR>

J.M.Movilla · #6 (**permalink**) 31-07-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

No, no... Perdóname tú, porque te estoy dando mal la instrucción... como si fuera una función, que no lo es....

Sustituye la línea del Find por estas dos...
<BLOCKQUOTE><PRE>Codigo:<HR>Adodc1.Recordset.Find("NOMBRE like " & Combo1.Text & "")

ANCALO · #7 (**permalink**) 31-07-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

Ahora me da este otro error:

Variable de tipo Object o la variable de bloque with no está establecida

en esta linea

Adodc1.Recordset.Find ("NOMBRE like " & Combo1.Text & ""

</TR>

J.M.Movilla · #8 (**permalink**) 17-09-2004, 00:00:00

RE: Situar el puntero en un TDBGrid

Si se queja de que no reconoce el objeto asegúrate de que tienes bien definidos los nombres de Adodc1 y de Combo1... No puede ser otra cosa...