Re:ApplyUpdates no SQL Server, é isso ???
Voc j tentou trabalhar com stored procedures, s?o muito mais eficientes
para executarem opera??es de inclus?o, altera??o, etc. pq executam os
scripts diretamente no sql server;
Exemplo:
CREATE PROCEDURE sp_Cidades_ins
@prm_Cod_Cidade char(03),
@prm_nome char(30),
@prm_Uf char(02),
@msg_erro char(100) output AS
if exists ( select *
from Cidades
where Cod_Cidade = @prm_Cod_Cidade )
begin
select @msg_erro = 'Cidade j cadastrado.'
return
end
begin transaction
insert
into Cidades
values ( @prm_Cod_Cidade,
@prm_nome,
@prm_Uf )
if @@error <> 0
begin
select @msg_erro = 'Erro: Ocorreu um problema na inclus?o da Cidade.'
rollback
end
else
begin
select @msg_erro = 'Inclus?o da Cidade efetuada com sucesso.'
commit
end
Denisson Kuntze <soft...@ieg.com.br> escreveu nas notcias de
mensagem:3b8e7515_1@dnews...
Quote
> Ol Pessoal,
> Estou como problemas para usar o SQL Server 2000
> e Delphi 5, utilizo os componentes padr?es do Delphi TQuery e TUpdateSQL
> e fa?o Conex?o via ODBC com o driver do SQL Server,
> at a tudo bem, consigo conectar, ver as tabelas,
> fazer consultas, querys, avan?ar, voltar, etc mas
> quando altero ou fa?o a inclus?o de um registro e
> fa?o o Post da vem o erro.
> Alguem pode me dar uma dica de como gravar fisicamente
> registros no SQL Server ???
> Coloco no evento OnPosto da TQuery o seguinte
> ( que com o MySQL funciona perfeitamente ) :
> with DataSet as TQuery do
> begin
> If UpdatesPending then
> begin
> Database1.StartTransaction;
> try
> ApplyUpdates;
> Database1.Commit;
> except
> Database1.Rollback;
> raise;
> end;
> CommitUpdates;
> end;
> end;
> Fico no aguardo,
> At.