Validar Sentença SQL no Delphi

Delphi

12/11/2010

Olá bom dia a todos.

Alguém sabe uma mandeira de Validar Sentenças SQL com parâmetros, por exemplo:

Fiz um cadastro de Consultas SQL onde o Usuário informa a Sentença e
Executa dai ele pode exportar para excel, txt, etc....

Para validar a Sentença estou fazendo assim:

Componentes: TSQLDataSet <= TDataSetProvider <= TClientDataSet
TDataSetProvider Com a opção poAllowCommandText = True


//Exemplo da sentença com o parâmetro

Value := 'SELECT * FROM ESTADO WHERE CODPAIS = :CODPAIS';


//função para validar a sentença

function ValidaSQL(Value : String): Boolean;

begin

      Result := True;

      try

         ClientDataSet.Close;

         ClientDataSet.CommandText := '';

         ClientDataSet.CommandText := Value;

         ClientDataSet.Params.Clear;

         ClientDataSet.FetchParams;

         ClientDataSet.Open;

      except
            on E : Exception do
            begin

                Result := False;
                Raise Exception.Create(E.Message);
            end;

      End;

end;


Dai é mostrado o seguinte erro: No value for parameter 'CODPAIS'


Como devo fazer para Validar a Sentença SQL?

Alguém conhece alguma function, dica ou algum componente?

Desde já agradeço a sua atenção...

Atenciosamente,

Rodrigo Purgato Bertelle
msn: rpurgato@hotmail.com
Rodrigo Bertelle

Rodrigo Bertelle

Curtidas 0

Respostas

Rodrigo Mattos

Rodrigo Mattos

12/11/2010

amigo o parametro do componente deve estar, ftUnknown, vai la na propriedade params e ve se a propriedade DataType do parametro esta ftUnknown, se estiver muda para o tipo do parametro.
GOSTEI 0
POSTAR