Comparar un registro de un edit con un registro de una tabla en una consulta

[Damian666]

Hola a todos,
Tengo un problemita, la verdad es que nose como hacerlo.
Necesito hacer una comparación en mi consulta con un dato introducido en un edit y una tabla de mi base de datos.
Esto para filtrar solo registros que contengan cierta gestion

Cuando utilizamos SQL en un TQuery nos muestra GES en params y listo. Pero en este caso como lo hago? Hasta antes de aumentar todo lo que esta de azul funcionaba pero ahora no, por favor alguien lo puede compilar en su cabeza y avisarme cual es mi error.

Bueno gracias nuevamente

Código Delphi [-]
procedure TFENTREGACC.BitBtn1Click(Sender: TObject);
 var
   GES,BUSCAR1:STRING;
 begin
   GES:=GEST.TEXT;
   IF (CUENTA1.TEXT<>'') THEN
   begin
     BUSCAR1:='SELECT * FROM CCCLIENTES WHERE ((PERIODO=01)OR(PERIODO=02) '
       + 'OR(PERIODO=03)OR(PERIODO=04)OR(PERIODO=05)OR(PERIODO=06)OR(PERIODO=07) '
         + 'OR(PERIODO=08)OR(PERIODO=09)OR(PERIODO=10)OR(PERIODO=11)OR(PERIODO=12)) '
           + 'AND (GESTION=:GES) AND CUENTA LIKE ''';
     BUSCAR1:=BUSCAR1+'%';
     BUSCAR1:=BUSCAR1+CUENTA1.Text;
     BUSCAR1:=BUSCAR1+'%';
     BUSCAR1:=BUSCAR1+'''';
     FDM.QCC.SQL.Clear;
     FDM.QCC.SQL.Add(BUSCAR1);
     FDM.QCC.Active:=TRUE;
     NAME1.Text:=FDM.QCC.FIELDBYNAME('NOMBRE').AsString;
     FDM.QCC.Open;
   end
   else
     exit;
 {...}

[lucasarts_18]

Empezado por Damian666

,
Necesito hacer una comparación en mi consulta con un dato introducido en un edit y una tabla de mi base de datos.

A mí se me ocurre algo así, puede que no esté acertado, pero puede darte un vislumbramiento de lo que necesitas..

Código Delphi [-]
   
   if miquery.fieldbyname('campoacomparar').value = Edit1.text then
   begin
     ....
     ....
   end;

saludos y espero que te sirva de algo...

[ContraVeneno]

Código Delphi [-]
with FDM.QCC do begin
 if active then close;
 SQL.Clear;
 SQL.Add('SELECT *');
 SQL.Add('FROM CCCLIENTES ');
 SQL.Add('WHERE ((PERIODO=01)OR(PERIODO=02)OR(PERIODO=03)OR ');
 SQL.Add('(PERIODO=04)OR(PERIODO=05)OR(PERIODO=06)OR (PERIODO=07)OR');
 SQL.Add('( PERIODO=08)OR(PERIODO=09)OR(PERIODO=10)OR(PERIODO=11)OR');
 SQL.Add('(PERIODO=12)) ');
 SQL.Add('AND (GESTION='+QuotedStr(Gest.Text)+')'); 
 SQL.Add('AND CUENTA LIKE ''%'+QuotedStr(CUENTA1.Text)+'%'' ');
 Open;
 NAME1.Text:=FIELDBYNAME('NOMBRE').AsString;
 .....//todo lo que tengas que hacer con tu dataset 
 //para cerrar el dataset -> Close;
end; //with FDM.QCC.

si lo haces de esta manera te ahorras el uso de la variable gest y de la variable Buscar1, ya que accesas directamente a tu edit.

¿Porque uso SQL.Add(toda la instrucción) en lugar de SQL.Add(una variable)?
Si existe un error en la sentencia SQL, cuando utilizas una variable te dira que tienes un error en la línea 1, ya que la instrucción se pasa en una sola línea. En cambio, si se pasa la instrucción (como en mi ejemplo), en caso de que exista un error, te dirá exactamente en que línea esta el error

[Damian666]

Hola ContraVeneno te cuentro que utilize tu lógica y me sirvió de mucho y cambie algunos detalles:

If (CUENTA1.TEXT<>'')OR(CUENTA2.TEXT<>'')THEN
with FDM.QCC do
begin
If active then close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM CCCLIENTES ');
SQL.Add('WHERE ((PERIODO=01)OR(PERIODO=02)OR(PERIODO=03)OR(PERIODO=04)OR');
SQL.Add('(PERIODO=05)OR(PERIODO=06)OR(PERIODO=07)OR (PERIODO=08)OR');
SQL.Add('(PERIODO=09)OR(PERIODO=10)OR(PERIODO=11)OR(PERIODO=12))');
SQL.Add('AND (GESTION='+(GEST.Text)+')');
SQL.Add('AND (CUENTA='+(CUENTA1.Text)+')');
Open;
NAME1.Text:=FIELDBYNAME('NOMBRE').AsString;
CLOSE;
end;exit;


with FDM.QCC do
begin
If active then close;
SQL.Clear;
SQL.Add('SELECT *');
SQL.Add('FROM CCCLIENTES ');
SQL.Add('WHERE ((PERIODO=01)OR(PERIODO=02)OR(PERIODO=03)OR(PERIODO=04)OR');
SQL.Add('(PERIODO=05)OR(PERIODO=06)OR(PERIODO=07)OR (PERIODO=08)OR');
SQL.Add('(PERIODO=09)OR(PERIODO=10)OR(PERIODO=11)OR(PERIODO=12))');
SQL.Add('AND (GESTION='+(GEST.Text)+')');
SQL.Add('AND (CUENTA='+(CUENTA2.Text)+')');
Open;
NAME2.Text:=FIELDBYNAME('NOMBRE').AsString;
CLOSE;
end;exit;

Ahora la duda que tengo es como utilizar este código si quiero hacer dos consultas en un mismo FORM, ya intente de todo pero como no domino SQL me sale error, aunque delphi compila bien

[ContraVeneno]

Código Delphi [-]
//....
CLOSE;
end;
exit; 
{-- este exit hace que se salga de la función y no se ejecute 
lo demás, supongo que por eso tu otra consulta nunca se realiza, 
trata de revisarlo paso por paso, para ver si eso es lo que sucede --}
 
with FDM.QCC do
begin
//.......

mi duda es con el exit como menciono en el comentario. No deberías tener ningún problema haciendo dos consultas, de cualquier manera tambien podrías usar otro TQuery (FDM.QCC2 por ejemplo).

Otra cosita:
cuenta1.text<>'' funcionaría bien, pero ¿que tal si en tu edit escribiendo un espacio? entonces cuenta1.text sería igual a '_' con lo que sí entraría en la función. Prueba hacer:

Código Delphi [-]
If (Trim(CUENTA1.TEXT)<>'')OR(Trim(CUENTA2.TEXT)<>'')THEN

[Damian666]

Hola nuevamente funciona perfectamente, quité los exit y agregué un if validando si 'cuenta2.text<> vacio' y recién funcionó

Agradezco mucho tu ayuda. a proposito creare un nuevo hilo para ver como guardar a partir de la búsqueda que me aconsejaste

Saludos.