Board index » delphi » ApplyUpdates no SQL Server, é isso ???

ApplyUpdates no SQL Server, é isso ???

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.

 

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.

Other Threads