Busqueda en un DBF sin SQL

[[eduarcol]]

voy a tratar de ponerlo facil

1.- Coloca un TQuery
2.- Configuralo como si fuera el TTable
3.- En el evento que deseas realizar la busqueda escribe el siguiente codigo:

Código Delphi [-]
begin
   //Cierra el query
   MiQuery.Active := False;
   //Establece la sentencia donde clientes es el nombre de la tabla,
   //Nombre es el campo por el que se realizara la busqueda y
   //txNombre la caja de texto por la que va a buscar
   MiQuery.Sql.Text := 'Select * from Clientes where Nombre Like ' + QuotedStr(txNombre.Text + '%');
   MiQuery.Active := True;
end;

Lo coloco de memoria, si te da un error avisas para ayudarte a corregirlo

[RoyTan]

Vale de acuerdo.

Solo una duda, ¿ya tengo en el Datamodule un TTable Clientes, que hago, lo dejo o lo sustituyo por TQuerry Clientes?

¿Pueden estar los dos o juntos son incompatibles?
Me refiero a TTable yTQuerry conectados a la misma base de datos.

Gracias.

[[eduarcol]]

si tienes otro uso para el tTable dejalo, si no lo necesitas mas quitalo, no son incompatibles

[RoyTan]

Ok Eduarcol.

Voy a probar y mañana te cuento Ok.

Gracias amigo.

[RoyTan]

Bueno empezamos mal con el SQL.
Creo que no he configurado bien el TQuery.
Porque al compilar el programa me da el siguiente error.
TQuery: No SQL statament available
Si tengo un TTable Clientes y un TQuery Clientes, ¿ Tengo que tener también un TDataSource para cada uno de ellos?

Gracias.

[[eduarcol]]

Lo mas seguro es que estas tratando de abrirlo antes de asignarle el SQL, el active := True o el Open saltatelo hasta que llegues al codigo que te escribi

[RoyTan]

Sí pero el problema es que no soy capaz de poner a True la propiedad Active del TQuery.

No se como hacerlo me da error.

[fpirovani]

Empezado por eduarcol

voy a tratar de ponerlo facil

1.- Coloca un TQuery
2.- Configuralo como si fuera el TTable
3.- En el evento que deseas realizar la busqueda escribe el siguiente codigo:


Código Delphi [-]begin
//Cierra el query
MiQuery.Active := False;
//Establece la sentencia donde clientes es el nombre de la tabla,
//Nombre es el campo por el que se realizara la busqueda y
//txNombre la caja de texto por la que va a buscar
MiQuery.Sql.Text := 'Select * from Clientes where Nombre Like ' + QuotedStr(txNombre.Text + '%');
MiQuery.Active := True;
end;




Lo coloco de memoria, si te da un error avisas para ayudarte a corregirlo

Hola a todos!
Justamente estoy tratando de hacer lo mismo que RoyTan. Hice todo como figura en la cita que hice del post de eduarcol, pero cuando quiero buscar, para que encuentre una coincidiencia tengo que ingresar el nombre empezando por la primer letra. Por ejemplo: si quiero buscar CARLOS en el campo NOMBRE tengo que escribir primero la C despues la A etc.
yo lo q necesito es que si escribo en el edit OS me muestre todos los registros que dentro del campo NOMBRE figure OS. Por ejemplo: carlOS, marcOS.
Si no entendi mal lo que lei del hilo que creo RoyTan el queria hacer justamente eso.

Saludos

[[eduarcol]]

el operador %, se utiliza para determinar la ubicacion de la cadena de busqueda en el ejemplo de roytan esta al final, o sea todo lo que comienze como se indica y termine en lo que sea.

Si quieres lograr eso, modifica esta linea

Código Delphi [-]
MiQuery.Sql.Text := 'Select * from Clientes where Nombre Like ' + QuotedStr('%' + txNombre.Text + '%');

[fpirovani]

Buenisimo!! muchas gracias anda perfecto!

Ahora yo tengo un DBgrid donde se muestra lo que va encontrando a medida que se escribe, pero no me aparece ordenado en orden alfabetico...
y en el Query no contre donde espesificar un indice como para que lo ordene, tal como la propiedad IndexName del TTable (TTable.IndexName)

ya que estoy te pregunto, hay algun tutorial, manual, libro o algo parecido donde se puedan aprender detalles como el de la ubicacion del signo % en el Query

[[eduarcol]]

Empezado por fpirovani

Buenisimo!! muchas gracias anda perfecto!

Ahora yo tengo un DBgrid donde se muestra lo que va encontrando a medida que se escribe, pero no me aparece ordenado en orden alfabetico...
y en el Query no contre donde espesificar un indice como para que lo ordene, tal como la propiedad IndexName del TTable (TTable.IndexName)

ya que estoy te pregunto, hay algun tutorial, manual, libro o algo parecido donde se puedan aprender detalles como el de la ubicacion del signo % en el Query

Busca en google MANUAL DE SQL, encontraras informacion de sobra, con respecto al orden prueba esta sentencia:

Código SQL [-]
Select * from Clientes where Nombre Like ' + QuotedStr('%' + txNombre.Text + '%') + ' Order by CampoOrdenar

Donde "CampoOrdenar", es el campo por el que quieres ordenar el grid.