Combobox, tabla, campos, items

[[Caral]]

Hola de nuevo.
Bueno todo va bien pero tengo una duda adicional.
Lo que estoy haciendo:
1-Cargo la tablas en el primer combobox1 (perfecto)
2-Cargo los campos en el segundo combobox2 (perfecto)
3-Introduzco un dato en el Edit para filtrar con este codigo:

Código Delphi [-]
  ADOQuery1.Open;
  ADOQuery1.Filter := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
  ADOQuery1.Filtered := True;

Funciona muy bien pero cuando el campo es text (String), si el campo es numerico se fastidio el invento.
Pregunta:
1-Como hago para que identifique el campo antes de filtrar?
2-Como hago para que se quede en blanco el edit1 despues de hacer la consulta.?

Código Delphi [-]
Edit1.Clear;

Esto de arriba no camina, ya que se esta filtrando:

Me ayudais por favor.
Saludos

[[egostar]]

Hola Caral

Así de bote pronto lo que yo haría es lo siguiente

Código Delphi [-]
try
   Filtro := strtoint(edit1.text);
   ADOQuery1.Filter := ComboBox2.Text+ ' = '+Filtro;
except 
   ADOQuery1.Filter := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
end;

ADOQuery1.Filter := True;
ADOQuery1.Open;

No entiendo como abres primero la tabla y luego la filtras, yo imaginaría que primero se asigna el filtro y luego se abre la tabla.

Saludos

[[egostar]]

Estimado Caral

De regreso a casa en el trafico de esta mi bella ciudad y escuchando a Alvin Lee, venia haciendo recuento de las actividades de este dia y vino a mi mente tu pregunta.

Tengo una duda.

Porque estas usando un filltro en un Query, yo he usado filtros pero en TTables no en TQuery, los datos en un Query son filtrados directamente en su sentencia SQL.

Saludos desde casa.

[[Lepe]]

Sin detenerme en lo comentado por los demás foristas (que estoy totalmente de acuerdo), el problema que te dá son precisamente las comillas simples que añades.

Mira la diferencia, si es un campo definido como String:

Código SQL [-]
 select * from table where codigo = '33'

Si está definido como integer, el sql debe quedar así:

Código SQL [-]
 select * from table where codigo = 33

Exactamente igual que usando filter.

Si es numérico, no tendría sentido usar el operador "Like", ya que irá a un registro que no le sirve al usuario para nada, por ejemplo busca el 33 y encuentra el 3 .

Saludos

[[Caral]]

Hola
egostar: Efectivamente se puede hacer el filtro por sentencia sql, posiblemente mas efectivamente pero en este caso me quedo un poco mas comodo hacerlo asi.
Gracias por tu explicacion, ya tenia mas o menos el camino, lo que pasa es que me empeño en no usar el try except, porque en diseño genera un error y particularmente no me gusta, asi es como lo tengo, pero no lo voy a dejar.

Código Delphi [-]
var
   Filtro : String;
begin
   If (Edit1.Text <> '') then
   begin
   AdoQuery1.Filtered := false;
   Filtro := ComboBox2.Text+ ' Like '''+Edit1.Text+ '*''';
   ADOQuery1.Filter := Filtro;
   //showmessage(Filtro);
   try
      ADOQuery1.Filtered := True;
   except
      try
         Filtro := ComboBox2.Text+ ' Like '+Edit1.Text;
         ADOQuery1.Filter := Filtro;
         ADOQuery1.Filtered := True;
      except
         Filtro := ComboBox2.Text+ ' >= '+Edit1.Text;
         ADOQuery1.Filter := Filtro;
         //showmessage(Filtro);
         ADOQuery1.Filtered := True;
      end;
   end
    end
   else ADOQuery1.Filtered := False;

Lepe: Gracias por la explicacion, efectivamente por ese camino estoy, entiendo bien lo de String e integer, en este filtro en especial lo que pretendo es el cambio continuo por eso en este caso el signo = no me camina, estoy tratando con >= que funciona mas adecuadamente aun asi sigo pensando y recibiendo sugerencias.
Una opcion que se me ha ocurrido es hacer el cambio en un combobox, asi definiria el tipo de campo, integer, float, string y simplemente me daria el resultado , no se que tal os parece, habra otra opcion?.Seguro que si.
Gracias por la ayuda que me dais.
Saludos

[roman]

Hola,

Lo que creo que queda claro después del comentario de Lepe, es que no tiene mucho caso tratar de usar el mismo operador para todos los tipos de campo. ¿Por qué no mejor actuar con base al tipo de datos del campo?

Código Delphi [-]
J := cboCampos.ItemIndex;
case ADOQuery.Fields[J].DataType of
  ftString: filtro para campos string;
  ftSmallInt, ftInteger, ftWord, ftLargeInt: filtro para campos enteros;
  ftFloat, ftCurrency: filtro para campos reales;
  ftBoolean: filtro para campos lógicos;
  ftDate, ftTime, ftDateTime: filtro para campos fecha-hora;
else
  raise Exception.Create('no sé que hacer con este tipo de datos');
end;

Lo útimo es necesario para todos los datos tipo BLOB o más raros.

// Saludos

[[Caral]]

Hola
Roman: me parece fenomenal.
Como lo aplico, no tengo ni idea?
Me quedo grande.
Saludos