Query DataSetProvider ClientDataSet

Delphi

22/07/2004

Pessoal,
Tenho uma query BDE + DataSetProvider + ClientDataSet configurados
da seguinte maneira

Query1:
Unidiretional := True

DataSetProvider1:
DataSet := Query1
Options[poAllowCommandText]
UpdateMode := upWhereKeyOnly

ClientDataSet1:
ProviderName := DataSetProvider1
CommandText := SELECT * FROM PESSOA WHERE NOME LIKE ´AURE¬´
No evento AfterPost:
ClientDataSet1.ApplyUpdates(0);

Aparentemente tudo funciona, mas os dados não gravam no banco, o que tá faltando?
Já tentei fazer assim tbm e nao mudou nada:
DataBase1.StartTransaction;
ClientDataSet1.ApplyUpdates(0);
DataBase1.Commit;


Aureliovs

Aureliovs

Curtidas 0

Respostas

G1b4

G1b4

22/07/2004

Caro Carreta,
Tente isso:
CommandText := SELECT * FROM PESSOA WHERE CODIGO = :CODIGO

Na propriedade params do clientdataset :
DataType = ftInteger (se for inteiro)
ParamType = ptInput

Dê duplo clique no clientdataset e adicione todos os campos. Configure as provider flags e ok...
Para verificar se está gravando no campo:
with ClientDataSet1 do
if ApplyUpdates(0)<>0 then begin
   ShowMessage(´Erro na gravação. Processo Cancelado!!!´);
   CancelUpdates;
end;


Espero ter ajudado :D !!!


GOSTEI 0
G1b4

G1b4

22/07/2004

Para verificar se está gravando no campo:


OPs... Não é ´campo´, é ´banco´ de dados... :lol:


GOSTEI 0
POSTAR