Onde ta o erro?

[juniorocha 0]

pessoal, tow tentando executar essa procedure mas ele da o seguinte erro:

 

erro de sintaxe na operação consulta ( ID_ORCA = )

 

procedure TF_Cad_Orc.BitBtn9Click(Sender: TObject);	beginwith dados.Q_Kit dobeginclose;sql.clear;sql.add (' SELECT SUM (Kit_Total_Fin) AS TOTAL FROM TBL_Kit WHERE ID_ORCA = '+dbedit60.text+'');open;

Alguem sabe me dizer onde ta o erro??

vlwz

[Rodrigo Salvador 0]

Opa,

 

o erro está na última aspas da select. Use o seguinte:

 

sql.add (' SELECT SUM (Kit_Total_Fin) AS TOTAL FROM TBL_Kit WHERE ID_ORCA = '+dbedit60.text+''');

Quando você quiser usar aspas simples dentro do código Delphi use '''.

Há a função QuotedStr que resolve o mesmo problema:

 

sql.add (' SELECT SUM (Kit_Total_Fin) AS TOTAL FROM TBL_Kit WHERE ID_ORCA = '+QuotedStr(dbedit60.text));