ADO (Como quot;travarquot; uma tabela)

11/05/2003

1

Situação:
SQL Server
Conexão ADO
Tabela com uma única coluna e única linha

Em um sistema de laboratório utilizo uma tabela para gerar o número de registro do exame. Esse número é a chave primária de uma outra tabela.

Em clipper, eu abria essa tabela em modo exclusivo, lia o número contido nela, somava +1, gravava esse resultado nela e utilizava esse número como o número do exame em outra. Depois fechava a tabela, liberando para outros usuários.

Detalhe: Não posso usar o autoencremento do SQL Server, pois a chave é do tipo ´15999/03´, onde o ´03´ é o ano...

Como faço isso em Dephi?


Responder

Posts

12/05/2003

Comodelphi

Pq vc não cria um TRIGGER BEFORE INSERT, para tratar esse campo.


Responder

12/05/2003

Aroldo Zanela

Colega,

Acho a idéia do trigger ideal. Para bloqear o registro da forma que mencionou, experimente alterar as seguintes propriedade do objeto ADO:

CursorLocation = clUseServer;
CursorType = ctDynamic;
LockType = ltPessimistic;


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira