eu tenho que criar uma linha de comando no delphi 4 porém o comando é grande demais e exede o limite de caracteres por linha imposto pelo delphi, eu gostaria de saber se tem como eu dividir o código em duas linhas sem prejudicar a programação, o código é esse:
Querycontas1.Sql.Add('Where Data_Primeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Primeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Segunda>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Segunda<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Terçeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Terçeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Quarta>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Quarta<='+aspa+DateToStr(datafinal1.Date)+aspa);
Pergunta
Kindelis
eu tenho que criar uma linha de comando no delphi 4 porém o comando é grande demais e exede o limite de caracteres por linha imposto pelo delphi, eu gostaria de saber se tem como eu dividir o código em duas linhas sem prejudicar a programação, o código é esse:
var
aspa:char;
begin
aspa:='''';
Querycontas1.Close;
Querycontas1.Sql.Clear;
Querycontas1.Sql.Add('Select *');
Querycontas1.sql.add('from ''c:\Angratel\contasaprazo.db''');
Querycontas1.Sql.Add('Where Data_Primeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Primeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Segunda>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Segunda<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Terçeira>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Terçeira<='+aspa+DateToStr(datafinal1.Date)+aspa+' or Data_Quarta>='+aspa+DateToStr(datainicial1.Date)+aspa+' and Data_Quarta<='+aspa+DateToStr(datafinal1.Date)+aspa);
Querycontas1.Open;
end;
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.