Ajuda com ClientDataSet

21/02/2006

Estou com a seguinte instrução no meu programa e está dando a seguinte mensagem:
´commandtext changes not are allowed´.

Alguem pode me dar uma dica.

Eis o trecho do programa:
with cds_Consultar do
begin
Close;

CommandText := ´select COD_TIPO, DESCRICAO, ST_ATIVO from TIPO_PESSOA´;
If me_Pesquisa.Text <> ´´ then
CommandText := CommandText + ´ where UPPER( DESCRICAO ) like ´ + QuotedStr( AnsiUpperCase( me_Pesquisa.Text ) + ´¬´ );

CommandText := CommandText + ´ order by DESCRICAO´;

Open;

if IsEmpty then
begin
MessageDlg(´Nenhum registro encontrado!´ + #13 + ´Refaça a pesquisa´, mtInformation, [mbOk], 0);
if me_pesquisa.CanFocus then
me_pesquisa.SetFocus;
end;
end;

Obrigrado pela colaboração

Rodolfo


Rodolfo.pirolo

Respostas

21/02/2006

Vinicius2k

Colega,

Para que sejam permitidas instruções no próprio TClientDataSet, ajuste [b:c4ed6859e1]Options->poAllowCommandText[/b:c4ed6859e1] do TDataSetProvider ao qual o TClientDataSet está ligado para [b:c4ed6859e1]True[/b:c4ed6859e1].

T+


Responder Citar

21/02/2006

Rodolfo.pirolo

Vinicius,

Muito obrigado pela dica.

Rodolfo


Responder Citar