Ayuda al usuario para realizar búsquedas

[rochi]

¿Pueden explicar mejor soy principiante?.
¿que es un query, con que se relaciona, porque me da un errer
vk_DELETE,VK_BACK : [Error] Unit5.pas(57): Incompatible types: 'Char' and 'Integer'?
¿Con que elemetos debo relacionarlo?

Hay ejemplos que vienen con Delphi y algunos artículos de este y otros sitios relacionados con bdatos y su manejo, que pueden ayudarte. Lo mío será una referencia superficial para que te sirva como guía, nada más, algo así como saber que existe 'eso' y listo.

Brevemente, una query es una consulta que se hace sobre una o mas tablas. Por lo tanto una query/consulta se relaciona con una o mas tablas.
El instrumento para realizarla es el lenguaje SQL (Structured Query Language). Casi todos los motores de bd traen uno incorporado, con sus estandares y dialectos. En Delphi, hay varios componentes que representan una 'query', con sus propiedades, métodos, eventos, etc. Esto dependerá de cual motor de bd estás usando, y el componente respectivo para trabajar con el motor. En BDE creo que es el TQuery, y si usas Interbase/Firebird, están los componentes IBX, que tiene el TIBQuery para las consultas. Las consultas se usan para extraer parte de los registros de una tabla o mas tablas, según cierto criterio de búsqueda. Y básicamente son datos que ese componente no puede modificar, sino solo extraer. Una consulta, conceptualmente, no modifica los datos. (Aunque verás que se usan consultas para extraer datos que otros componentes sí pueden modificar, por ejemplo los TIBClientDataSets)

La ventaja de trabajar con un lenguaje basado en SQL, es que no es necesario traer todos los datos de una tabla, sino los necesarios.
Es muy util en las tecnologías cliente-servidor, lo cual aligera el tráfico de datos entre ambos y lo hace menos propenso a errores.

Todos los componentes query tienen una propiedad SQL donde pones una sentencia SQL, que podría ser: 'Select cod_prod from Productos Where cod_prod > 100'. Donde Productos es una tabla asociada a una TTAble, y seleccionas aquellos producto con cód > 100.
Asocias un dataSource al TQuery para desplegar sus datos, por ejemplo en una grilla.
TQuery es un descendiente indirecto de TDataSet, por lo cual tiene algunos de los métods/eventos/prop. de este, por ej First, Locate, AfterClose, EOF,etc,etc. (No tiene Insert, no puede modificarse)

En cuanto a tu error, no se cómo estás manipulando los datos, ni que tenés en el código. Pero tal vez estás asociando la propiedad Text del dbEdit, con un campo de la tabla que no es string. ¿Podrías ser mas específico?.

Yo también estoy en mis comienzos, pero me decidí por Interbase/Firebird (cliente-servidor, tecnología mas nueva y con ventajas) y los componentes IBX o los dbexpress, y me encuentro probando Zeos. Tengo entendido que BDE es algo ya vetusto, parece medio pesado, y que Borland no se ocupará de mejorarlo, mas bien lo congeló. No se si viene con la versión 2005. Tengo d7.

Probablemente algun agregue algo más a lo mío. Suerte

rochi

[[Lepe]]

Aplicación práctica de lo comentado por Rochi:

En la paleta BDE de delphi, eliges un componente Tquery, lo pones en el formulario; en el inspector de objetos:

- la propiedad DatabaseName, la despliegas, si has creado un Alias con el BDE administrator, eliges esa, si no has creado ninguna, pones la ruta de tu base de datos C:\prueba\tablas
- En la propiedad SessionName, eliges la que haya.
- En la propiedad sql, le das a los 3 puntos y pones:
SELECT Nombre FROM Clientes.DB ORDER BY Nombre
(Esto quiere decir, que vas a recoger todos los nombres de tu tabla clientes y ordenarlo ascendentemente por nombre.)

En la paleta de componentes "Data Access" eliges el TDatasource y lo pones en la ventana, en su popiedad dataset, eliges el Query1.

En el DBEdit que tienes de búsqueda, en su propiedad DataSource, le asignas el DAtasource1 que acabas de añadir, con esto enlazas el DBedit a la consulta que acabas de crear.

En la ventana de búsqueda, en el evento OnCreate, añades Query1.Open, y en el evento OnClose de la ventana: Query1.Close;

Por último en el evento OnKeyDown de tu DBEdit, pones :
Autocompleta(DBEdit1, Query1, 'Nombre');

De esta forma, has construido una consulta "oculta para el usuario", y que siempre va a estar ordenada alfabeticamente (muy util para las búsquedas)

Probablemente tengas que añadir en tus uses las librerias: Math, strUtils para las funciones ifthen y RightStr. Y eliminar la palabra "codigoutil."

Un saludo y espero te sirva.

PD:Masticalo despacio, ya que hay mucho contenido condensado.

[gregorio]

Lepe.
Hola,
Puede decirme como hago un query.last, autocompleta.
Fovor ser lo mas explicito posible, no tengo ni la mas remota idea de como se hace.

Perdona mi ignorancia.
Gracias.

[Nelson Polanco]

Saludos amigos.

Atención Rochi, visita este link http://delphi.about.com/od/usedbvcl/l/aa050499.htm
y encontrará un ejemplo claro y sencillo de lo que necesitas.

Espero le ayudes a todos los que necesitan realizar busqueda incremental.

Nelson Polanco
Rep. Dom.

[gregorio]

Lepe.

Saludos, a todos.

Hice lo que me dice pero se produce un error en le linea de codigo del DBEdit.

Autocompleta(DBEdit1, Query1, 'Nombre');

[Error] Unit5.pas(78): Undeclared identifier: 'Autocompleta'

El Autocompleta se consigue con los codigos que publicate mas arriba?
Puede explicarme como manejo estos codigos para que me funcionen, para una Tabla paradox de nombre TableDueño en el campo Dueño.

Gracias, por toda su colaboración.

[rochi]

Hola, Nelson gracias por el link, de ahí saqué algunas ideas cuando andaba buscando ayuda sobre el tema. Lo mío tiene algunos cambios, para comenzar uso TClientDataSets anidados, ya que así manejo una relación maestro-detalle (recordar que estoy con FB + d7 + IBX).

Lo que hice, y al menos funciona, fue lo siguiente: en un ComboBox, tengo los parámetros de búsqueda, que son los campos de la tabla en cuestión.Y tengo en un box de edición edSearch, que es donde se almacena lo que se va digitando.

 ´
// en el evento OnChange de edSearch 
//dmSocios -> datamodule con los componentes del Socio. El datamodule se crea al abrir el form del Socio.

if Length(edSearch.Text) > 0 then
  begin
	  if self.ComboBox.ItemIndex >= 0 then
		 begin
			if (not dmSocios.EjecQry(ComboBox.text,Trim(edSearch.Text))) then
			   Application.MessageBox('No se
encontraton resultados','¡Atención!',MB_OK)
		 end
  else
	 Application.MessageBox('No seleccionó criterio de	 búsqueda','¡Atención!',MB_OK)
  end;
//Aqui ejecuto la SQL en el CommandText 

function TdmSocios.EjecQry(param:String;text_buscar:String):Boolean;
begin
	cdsSocios.close;
	cdsSocios.CommandText := 'Select * from SOCIOS where ' + 'Upper( '+ param + ') Like ' + QuotedStr(UpperCase(Text_buscar) + '%');
	cdsSocios.Open;
 
	Result := cdsSocios.RecordCount <> 0
end;

El resultado se despliega en una grilla que tiene asociado el DataSource del cdsSocios.

Claro, esto es para búsquedas con campos que son strings, pero con un campo numérico, no cambia demasiado la idea tampoco. Si tienen idea de como unficar todo en una consulta,...ya que si ingreso un entero, se despliega ese valor, y no un conjunto de valores. No hay búsqueda incremental en ese caso, a menos que trate al valor como un string.

En fin, si creen que estoy complicandome o haciendo las cosas poco elegantemente, serán bienvenidas y agradecidas todas las sugerencias.
Saludos, rochi

[[Lepe]]

Empezado por gregorio

[Error] Unit5.pas(78): Undeclared identifier: 'Autocompleta'

El Autocompleta se consigue con los codigos que publicate mas arriba?
Puede explicarme como manejo estos codigos para que me funcionen, para una Tabla paradox de nombre TableDueño en el campo Dueño.

Gracias, por toda su colaboración.

Todo el código de Autocompleta, supongo que lo has pegado en una unidad nueva.

File -->new Unit, y añade las el código publicado aqui, cada uno en su sección correcta, Interface e implementation.

Guarda la unidad como UCompleta.pas.

Donde desees usarlo, tienes que añadir el "uses" para decirle a delphi donde está la rutina; para ello, ve a la linea :

Código Delphi [-]
Unit NecesitoElAutocompletaEnEstaUnidad;

uses Forms, controls, Windows, ... UCompleta;

Veo que en tus campos y tablas utilizas la letra 'ñ' delphi no va a reconocer ese carácter, así que cambia el nombre de la tabla y campo por : Tabladueno, Dueno.

No necesitas hacer un query.last, simplemente llamar a esa rutina.

Un saludo