ExecSql, não está funcionado.

Delphi

23/10/2003

amigos estou usando o comando abaixo, mas acho que o execsql não está funcioando pois o update não está atualizando a tabela, alguém pode dar uma dica, obrigado


with qDistribExp do
begin
Sql.Clear;
Sql.Add(´SELECT CD_SOCIO...
ParamByName(´STATUS´).Value := ´C´;

Sql.Add(´INSERT INTO DISTRIB_REM...
ParamByName(´LOTE´).Value := vLote;

Sql.Add(´UPDATE DISTRIB_OCO SET...
ParamByName(´LOTE´).Value := vLote;

ExecSQL;
end;


Valdirlscosta

Valdirlscosta

Curtidas 0

Respostas

Outl@w

Outl@w

23/10/2003

O comando EXECSQL não funciona para instuções SQL que retornam DataSets (consultas), como o Select que está tentando executar:
Sql.Add(´SELECT CD_SOCIO... ParamByName(´STATUS´).Value := ´C´;

Para este tipo de instrução utilize o comando [b:ca42e5f2bd]Open[/b:ca42e5f2bd]
valeu?


GOSTEI 0
Valdirlscosta

Valdirlscosta

23/10/2003

bom dia amigão,

esqueci de mencionar que o meu select contem um into assim:


select cd_socio into #tmp from socios


ai não dá prá usar o open; dá um erro de cursor handle;

valdir

[quote:6c71cbcc8b=´outl@w´]O comando EXECSQL não funciona para instuções SQL que retornam DataSets (consultas), como o Select que está tentando executar:
Sql.Add(´SELECT CD_SOCIO... ParamByName(´STATUS´).Value := ´C´;

Para este tipo de instrução utilize o comando [b:6c71cbcc8b]Open[/b:6c71cbcc8b]
valeu?[/quote:6c71cbcc8b]


GOSTEI 0
POSTAR