Ajuda com ClientDataSet
21/02/2006
0
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
´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
Curtir tópico
+ 0
Responder
Posts
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+
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
Clique aqui para fazer login e interagir na Comunidade :)