[Resolvido] Dividir SQL

[Renanbg 1]

Primeira vez que tenho que fazer isso devido ao erro

 

String literals may have at most 255 elements

 

eis a sql

QueryBaixar.SQL.Add('Insert into tbvencidas (Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento, Desconto, Total) select Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento, Desconto, Total from tbduplicatas where Codigo = '+DBEdit1.Text+'');

Como divido ela em 2 partes pra n dar o erro?

[Chrnos 30]

Simples... crie uma variável string para por sua sql e faça o seguinte:

 

var sSQL : String;

 

sSQL := 'Insert into tbvencidas (Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento, Desconto, Total)';

sSQL := sSQL + ' select Cedente, Data_doc, Num_doc, Vencimento, Cod_cedente, Valor, Status, Estabelecimento, Desconto, Total from tbduplicatas where Codigo = ';

sSQL := sSQL + QuotedStr(DBEdit1.Text);

QueryBaixar.SQL.Add(sSQL);

 

[]'s

[Renanbg 1]

Certo, muito obrigado