sql_dinamica nao esta funcionando

Question

O q est� errado nesta query?procedure TfrmConsulta.SpeedButton1Click(Sender: TObject);vartsql:string;beginif (length(trim(edIndice.Text)) = 0) and (length(trim(edDesc.Text)) = 0) then begin        sho...

Macario · Answer

Ola programador, boa tarde.Tente assim:[quote:79ff1e5681][color=darkred:79ff1e5681]  if (length(trim(edIndice.Text)) = 0) and (length(trim(edDesc.Text)) = 0) then    begin      showmessage(�N�o foi selecioanda nenhuma op��o para busca.�);      Status.Panels[0].Text := ��;      SpeedButton2.Click;    end  else    begin      with Dm.Consulta.SQL do        begin          Clear;          Add(�select * from indice�);          if (length(edIndice.Text) > 0) then            begin              Add(�where posicao like :Indice��;              if (length(edDesc.Text)) > 0 then                Add(� and descricao like �:EdDesc��);            end          else              if (length(edDesc.Text)) > 0 then                Add(�where descricao like �:EdDesc��);          Param.ParamByName(�indice�).asString := edindice.text;           Param.ParamByName(�edDesc�).asString := edDesc.text;          Open;        end;    end;[/color:79ff1e5681][/quote:79ff1e5681]Sempre opte por usar parametros.Qualquer coisa poste novamente...

Emerson Nascimento · Answer

pelo que eu percebi, o erro ocorria em fun��o do lugar onde eram colocados os �. eles deveriam ser passados para a fun��o QuotedStr().
veja se assim funciona:

var
tsql:string;
begin
if (length(trim(edIndice.Text)) = 0) and (length(trim(edDesc.Text)) = 0) then
begin
showmessage(�N�o foi selecionada nenhuma op��o para busca.�);
Status.Panels[0].Text := ��;
SpeedButton2.Click;
end
else
begin
tsql:=�select * from indice where�;

//experimento o edIndice para saber se h� algo
if (length(edIndice.Text) > 0) then
tsql:=tsql+� posicao like �+quotedstr(uppercase(edIndice.Text)+��)+� and�;

//experimento o edDesc para saber se h� algo
if (length(edDesc.Text)) > 0 then
tsql:=tsql+� descricao like �+quotedstr(��+uppercase(edDesc.Text)+��)+� and�;

//removo o and n�o utilizado
if Copy(tsql, length(tsql)-2,3) = �and� then
delete(tsql, length(tsql)-2,3);

//removo o where caso n�o seja utilizado
if copy(tsql, length(tsql)-4,5) = �where� then
delete(tsql, length(tsql)-4,5);

Consulta.close;
Consulta.SQL.Text:=tsql;
Consulta.open;
end;
end;

Paulo · Answer

emerson, tentei como vc disse, mas n�o funcionou. Eu j� fiz query dinamica e funcionou, s� que os fontes n�o est�o comigo. Tentei remover o where da vari�vel tsql, mas mesmo assim n�o funcionou. Vou futucar mais um pouco e ver o q acontece. Eu preciso da query din�mica, pq a consulta pode ter todos os edits preenchidos em alguns casos e em outros n�o. Por par�metro, sou obrigado a informar todos os par�metros. Eu dei um exemplo somente com dois edits, mas no total ser�o 12 edits, por isso a query din�mica. Nem todos s�o obrigados a vir cheios.

Macario · Answer

Seria mais facil vc tratar os parametros com if�s do que todo aquele codigo pra remover as clausulas where desnecessarias....

Emerson Nascimento · Answer

eu testei assim e funcionou:var&nbsp &nbsp tsql:string;begin&nbsp &nbsp if (length(trim(edIndice.Text)) = 0) and (length(trim(edDesc.Text)) = 0) then&nbsp &nbsp begin&nbsp &nbsp &nbsp &nbsp showmessage(�N�o foi selecionada nenhuma op��o para busca.�);&nbsp &nbsp &nbsp &nbsp Status.Panels[0].Text := ��;&nbsp &nbsp &nbsp &nbsp SpeedButton2.Click;&nbsp &nbsp end&nbsp &nbsp else&nbsp &nbsp begin&nbsp &nbsp &nbsp &nbsp tsql:=��;&nbsp &nbsp &nbsp &nbsp //experimento o edIndice para saber se h� algo&nbsp &nbsp &nbsp &nbsp if (length(edIndice.Text) > 0) then&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp tsql:=tsql+� and (posicao like �+quotedstr(uppercase(edIndice.Text)+���)+�)�;&nbsp &nbsp &nbsp &nbsp //experimento o edDesc para saber se h� algo&nbsp &nbsp &nbsp &nbsp if (length(edDesc.Text)) > 0 then&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp tsql:=tsql+� and (descricao like �+quotedstr(���+uppercase(edDesc.Text)+���)+�)�;&nbsp &nbsp &nbsp &nbsp //removo o and n�o utilizado&nbsp &nbsp &nbsp &nbsp delete(tsql, 1,4);&nbsp &nbsp &nbsp &nbsp if tsql <> EmptyStr then&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp tsql:= �select * from indice where�+tsql&nbsp &nbsp &nbsp &nbsp else&nbsp &nbsp &nbsp &nbsp &nbsp &nbsp tsql:= �select * from indice�;&nbsp &nbsp &nbsp &nbsp Consulta.close;&nbsp &nbsp &nbsp &nbsp Consulta.SQL.Text:=tsql;&nbsp &nbsp &nbsp &nbsp Consulta.open;&nbsp &nbsp end;end;...

Macario · Answer

O que voces acharam de errado na dica que eu passei?????

if (length(trim(edIndice.Text)) = 0) and (length(trim(edDesc.Text)) = 0) then begin showmessage(�N�o foi selecioanda nenhuma op��o para busca.�); Status.Panels[0].Text := ��; SpeedButton2.Click; end else begin with Dm.Consulta.SQL do begin Clear; Add(�select * from indice�); if (length(edIndice.Text) > 0) then begin Add(�where posicao like :Indice��; if (length(edDesc.Text)) > 0 then begin Add(� and descricao like �:EdDesc��); Param.ParamByName(�edDesc�).asString := edDesc.text; end; end else if (length(edDesc.Text)) > 0 then begin Add(�where descricao like �:EdDesc��); Param.ParamByName(�indice�).asString := edindice.text; end; Open; end; end; end;

Emerson Nascimento · Answer

nada de errado, mas � que h� 12 edits e fazer a verifica��o da forma como voc� indicou talvez seja um pouco complicado....

F�rum sql_dinamica nao esta funcionando #245493