Hacer busqueda en un Ttable

[[Nbull]]

Hola a tod@s, estoy haciendo un programa que me tiene que hacer una busqueda en una Ttable, lo hice aplicando un filtro para que se pudiera buscar por el campo [Nombre] o por el campo [PersonaContacto], esto funciona a la perfección con pocos registros, en cuanto se lo pase a mi jefe y metio trescientos y pico registros en la tabla el filtro se hace lentisimo.

He leido por los Foros que se pueden hacer busquedas con Locate, lo declarado de la siguiente forma:

Código Delphi [-]
Form1.Table1.Locate('Nombre', edit1.text, [loCaseInsensitive, loPartialKey]);

Y se me posiciona en el primer registro de la tabla, no me lo busca, esta mal declarado?

¿Una vez echa la busqueda con Locate se puede aplicar un filtro para que en el Dbgrid solo me aparezcan los registros que busco?Es que esto es lo que me interesaria que hiciera.

O a lo mejor hay que hacer la busqueda de otra forma.Os estaría muy agradecido si me lo solucionarais.

Gracias a Todos por vuestra ayuda.

[Er_Manué]

Para lo que tú quieres es mejor que uses una query y hagas un filtrado de los datos de la tabla mediante una SELECT...

// Por si las moscas ;)
Form1.Query1.Close();

// Cambiamos la condición de búsqueda
// Utilizamos quotedString para ponerle comillas simple a la cadena (en el caso que sea de tipo string  ;) )
Form1.Query1.SQL.Text := 'SELECT misCampos FROM miTabla WHERE Nombre='+quotedString(Edit1.Text);

// Ejecutamos la consulta
Form1.Query1.Open();

De esta forma tendremos en Query1 nuestro resultado filtrado de una forma rápida.

Si lo que quieres es realizar una búsqueda parcial, solamente debes cambiar la condición del WHERE...

....

Form1.Query1.SQL.Text := 'SELECT misCampos FROM miTabla WHERE Nombre LIKE "%'+quotedString(Edit1.Text)+'%"';

....

Salu2

[[Nbull]]

Gracias por contestarme ER MANUE,lo que pasa es que el componente Query no lo controlo mucho y no se como hacer que en mi Dbgrid1 salga los registros que tengo en los campos que tengo en mi tabla.

Lo he asociado con un Datasource igual que el componente Ttable, pero como hago para que salgan los registros de los campos que yo quiera., es que de codigo SQL no tengo ni pajolera idea.

Por cierto la sentencia "quotedString" me da un error, tengo que poner alguna libreria en la USES.Gracias por responderme.

[Er_Manué]

upps.. es quotedStr() viene definida en la libería SysUtils que por defecto se incluye cada vez que creamos un formulario.

Para acceder a los registros de un TQuery a través de un DataSource, igual que para un TTable.

Para mostrar únicamente una serie de campos de los registros, por ejemplo únicamente el nombre, apellidos y dirección, podemos hacerlo de varias formas:
[/list]

• Si vas a usar posteriormente el resto de campos para otro tipo de operaciones, controla los campos a mostrar en tu DBGrid añadiendo columnas (Una por cada campo que vayas a mostrar). Dentro de cada columna le puedes decir el campo del que quieres que tome los datos.
• Si no quieres el resto de campos para nada, es recomendable obtener desde la SQL únicamente los campos que deseemos mostrar, para no sobrecargar el motor de BD. Por ejemplo si únicamente quiero mostrar el nombre, apellidos y direccion, usaría la siguiente consulta:
  

  SELECT nombre, apellidos, direccion FROM tablaClientes;

Espero que te sirva de ayuda.

Si tienes problema con el SQL por internet hay miles de tutoriales, en esta misma página tienes un tutorial de SQL, en la sección manuales.

Salu2

[[Nbull]]

Gracias por tu ayuda,pero yo no quiero filtrar por campos sino por registros, me explico:

Yo tengo un programa con empresas direcciones telefonos etc... y lo que quiero es que cuando alguien le de a buscar, escriban el nombre de la empresa o de la persona de contacto y en el dbgrid solo me aparezca esa empresa, ya te digo que lo he conseguido con la propiedad filtered de Ttable pero cuando hay muchos registros de momento 400 va muy lenta la busqueda por eso puse este Hilo

Si me puedes ayudar de nuevo te lo agradecere, sino gracias de todas formas por tu interes.

[Er_Manué]

mmmm..

Exactamente eso es lo que te expliqué la primera vez que te respondí , La propiedad filter lo que hace es establecer un filtro sobre los registros recuperados por el TTable, TQuery,... Si lo que quieres es hacer un filtrado ANTES de obtener los datos y así sobrecargar menos el motor, debes hacer el filtrado mediante el uso de SQL.

Para hacer un filtrado mediante SQL, únicamente debemos establer el criterio de selección en el campo WHERE de la consulta. Por ejemplo, si tenemos los siguientes datos:

- Una tabla que se llama clientes
- La tabla clientes tiene los siguiente campos:

• id_cliente: Campo de tipo numérico que almacena la Clave Primaria de la tabla
• nombre: Campo de tipo string.
• apellidos: Campo de tipo string.
• empresa: Campo de tipo string.
• direccion: Campo de tipo string.
• resto de campos que ahora mismo no me interesan...

Una anotación, la estructura básica de una sentecia SQL es:
SELECT campos FROM tabla WHERE condicion

campos = CAMPOS a recuperar de cada registro, si los queremos todos ponemos *
tabla = TABLA de la queremos recuperar los datos.
condicion = CONDICIÓN de filtrado que le quermos aplicar a la TABLA seleccionada.

weno con todo esto, ahora queremos hacer una búsqueda mediante el campo nombre sería tan simple como añadir a la propiedad SQL del TQuery:

.....
Form1.Query1.SQL.Text := 'SELECT * FROM clientes WHERE nombre='+quotedStr(edtFiltroNombre.text);
......

edtFiltroNombre es un campo TEdit que contiene el nombre que quiero buscar.

Si quiero realizar una búsqueda por el campo empresa debemos utilizar la siguiente sentencia:

.....
Form1.Query1.SQL.Text := 'SELECT * FROM clientes WHERE empresa='+quotedStr(edtFiltroEmpresa.text);
......

edtFiltroEmpresa es un campo TEdit que contiene la empresa que quiero buscar

Y ahora por último, si quisieramos hacer un filtrado mediante los campos nombre y empresa, usamos:

.....
Form1.Query1.SQL.Text := 'SELECT * FROM clientes WHERE
 nombre='+quotedStr(edtFiltroNombre.text)+' AND empresa='+quotedStr(edtFiltroEmpresa.text);
......

Si quisieramos a demás filtrar tambien por el campo direccion únicamente deberíamos incluir una condición más en la clausula WHERE:

...WHERE nombre='+quotedStr(edtFiltroNombre.text)+
' AND empresa='+quotedStr(edtFiltroEmpresa.text)+' AND direccion='+quotedStr(edtFiltroDireccion.text)

Espero que te haya quedado más claro, si aún asi sigues teniendo dudas, te mando un ejemplo para que lo puedas estudiar.

Un salu2
Er_Manué