TRAVANDO REGISTROS

USUARIO.EXCLUIDOS 06/04/2005 10:11:36
#76950
Estou usando ado em minha aplicação e gostaria de saber como travar um registro para leitura durante a atualização do mesmo

Obrigado
USUARIO.EXCLUIDOS 06/04/2005 11:25:46
#76970 Resposta escolhida
Veja este exemplo:

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
'Abre a conexão
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\M7
sql = "select * from clientes"
rst.Open sql, cnn, adOpenKeyset, [txt-color=#ff0000]adLockOptimistic[/txt-color], adCmdText
[C]
adLockReadyOnly (padrão) 
(sem comentários)
[txt-color=#0000ff]adLockOptimistic [/txt-color]
Trava o registro no momento da atualização (update)
[txt-color=#ff0000]adLockPessimistic [/txt-color]
Trava o registro no momento do EDIT até a atualização (UPDATE)
adLockBatchOptimistic
(Sem comentários)

Para entender melhor, sugiro que pesquise mais sobre bloqueios PESSIMISTA E OTIMISTA...
Espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas
Voltar