Array
(
)

Ajuda com ClientDataSet

Rodolfo.pirolo
   - 21 fev 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


Vinicius2k
   - 21 fev 2006

Colega,

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

T+


Rodolfo.pirolo
   - 21 fev 2006

Vinicius,

Muito obrigado pela dica.

Rodolfo