Ver Mensaje Individual
  #10  
Antiguo 10-04-2020
Neeruu Neeruu is offline
Miembro
 
Registrado: oct 2007
Posts: 485
Reputación: 17
Neeruu Va por buen camino
Cita:
Empezado por Ncvg Ver Mensaje
Buenas comunidad, tengo un problema, hace no mucho que uso delphi y quisiera saber como puedo hacer consultas con el text de un edit y al mismo tiempo capturar esa variable.
Para dejarme entender tengo esta consulta en firebird.
Select Sum(monto) from Montos WHERE NOMBRES = 'Roberto Ramirez' AND CAST(FECHA as DATE) = CURRENT_DATE

Teniendo esa consulta sumó el monto del campo monto de dicha persona (En este caso Roberto Ramirez) en la fecha actual.

Ahora quiero llevar eso a un IBQuery en Delphi7, pero que en vez de encontrar a Roberto Ramirez, use el dato de un Edit para buscar a la persona que yo ponga en el text del edit y completando dicha consulta, agarrar el SUM y ponerlo dentro de una variable int llamada monto dentro de Delphi, hasta el momento tengo esto dentro de un boton.

IBQuery1.Close();
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select Sum(monto) from Montos');
IBQuery1.SQL.Add('WHERE NOMBRES = '+ENOMBRE.Text);
IBQuery1.SQL.Add('AND CAST(FECHA as DATE) = CURRENT_DATE');
IBQuery1.ExecSQL;
Monto := IBQuery1.FieldByName('SUM').AsInteger;
ShowMessage(InttoStr(Monto));

Pero me sale un error con 'Token unknow Ramirez' (Buscando el nombre de la consulta anterior en el edit), cual es el error que tengo y que codigo puedo usar para lograr lo que busco, de antemano les agradezco mucho amigos, puesto que busco y busco y no encuentro algo que me sirva
Hola, error que te aparece se debe a que estas concatenando mal el parámetro.

Código Delphi [-]
IBQuery1.Close();
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('Select Sum(monto) from Montos');
IBQuery1.SQL.Add('WHERE NOMBRES = '+QuotedStr(ENOMBRE.Text));
IBQuery1.SQL.Add('AND CAST(FECHA as DATE) = CURRENT_DATE');
IBQuery1.ExecSQL;
Monto := IBQuery1.FieldByName('SUM').AsInteger;
ShowMessage(InttoStr(Monto));

Interpreto que nombres es un string, por eso agregue el QuotedStr

Prueba y avisame.
Saludos.
__________________
Saluda Atte Neeruu!!! :)
Responder Con Cita