BLOQUEIO PESSIMISTA NO ACCESS 2003

SOUZANF 10/09/2015 21:45:49
#451249
Pessoal blz eu tenho um sistema de cadastro de clientes e gostaria de colocar ele em rede e li sobre o Bloqueio pessimista que trava p arquivo que esta sendo edita na tela de um terminal e nao libera para alterações em outros.

Como ei consigo isso? Este e a forma q eu uso para inslcuir o registro.

Dim db As Database
Dim query As String
Dim dyn As Recordset

Set db = OpenDatabase(App.Path & [Ô]\Clientes.Mdb[Ô], False, False, [Ô];PWD=senha[Ô])
query = [Ô]Select * From Clientes where Nome = [ô][Ô] & Nome & [Ô][ô][Ô]
Set dyn = db.OpenRecordset(query, dbOpenDynaset)
If Not dyn.EOF Then
Codigo.Text = dyn([Ô]Codigo[Ô]) & [Ô][Ô]
DTCadastro.Text = dyn([Ô]DTCadastro[Ô]) & [Ô][Ô]
Nome.Text = dyn([Ô]Nome[Ô]) & [Ô][Ô]
Endereco.Text = dyn([Ô]Endereco[Ô]) & [Ô][Ô]
Cidade.Text = dyn([Ô]Cidade[Ô]) & [Ô][Ô]
Cep.Text = dyn([Ô]Cep[Ô]) & [Ô][Ô]
Bairro.Text = dyn([Ô]Bairro[Ô]) & [Ô][Ô]
Email.Text = dyn([Ô]Email[Ô]) & [Ô][Ô]
Fone.Text = dyn([Ô]Fone[Ô]) & [Ô][Ô]
Cel.Text = dyn([Ô]Cel[Ô]) & [Ô][Ô]
Cpf.Text = dyn([Ô]Cpf[Ô]) & [Ô][Ô]
DTNascimento.Text = dyn([Ô]DTNascimento[Ô]) & [Ô][Ô]
Obs.Text = dyn([Ô]Obs[Ô]) & [Ô][Ô]
db.Close
End If

onde eu faria a colocação deste comando?
Se puderem me ajudar agradesso...
TUNUSAT 10/09/2015 21:58:55
#451250 Resposta escolhida
SOUZANF,

Ficaria assim:
Set dyn = db.OpenRecordset(query, dbOpenDynaset, dbPessimistic)


Veja:

=====================================================
Trabalhando com Recordsets - Alterando e Retornando dados.
http://www.macoratti.net/dao_ado2.htm

Tipos de bloqueios(LockType) do Recordset DAO
- dbReadOnly
- dbPessimistic
- dbOptimistic

Tipos de bloqueios(LockType) do Recordset ADO
- adLockReadOnly
- adLockPessimistic
- adLockOptimistic
=====================================================
Dim db As DAO.Database 
    Dim rst As DAO.Recordset 

    [ô]Abre a base de dados

    Set db = DBEngine.OpenDatabase([Ô]C:
wind.mdb[Ô]) 

    [ô]Abre o Recordset
    Set rst = db.OpenRecordset([Ô]Select * from Customers[Ô], dbOpenDynaset, dbPessimistic) 

    [ô]Imprime a posição do registro 
    Debug.Print rst.AbsolutePosition 

    [ô]Move-se para outro registro
    rst.MoveLast 

    [ô]Imprime a posição do registro
    Debug.Print rst.AbsolutePosition 

    [ô]Fecha o recordset
    rst.Close

=====================================================
[][ô]s,
Tunusat.
SOUZANF 12/09/2015 19:55:09
#451335
Opa valeu amigo ob mesmo..
Tópico encerrado , respostas não são mais permitidas
Voltar