USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  inserir dados concorrentes
Rogerio
não registrado
ENUNCIADA !
Postada em 21/09/2009 03:31 hs   
Como fazer cadastro concorrente de dados no vb 6 DAO ? ou seja li que no ADO tem concorrencia otimista e pessimista que parece que serve para impedir que em rede dois usuários insiram dados na mesma hora quando usarem o mesmo sistema e cadastrando ou alterando o mesmo nome evitando sobreposição ou erro. Eno DAO  tem algum metodo para usar no objeto recordset? se alguem souber obrigado.
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 21/09/2009 16:04 hs            
é só mandar abrir exclusivo....
se o usuario A estiver com a tabela aberta, o usuario B não abre até a tabela ser fechada
   
vilmarbr
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 21/09/2009 17:36 hs         
TÓPICO EDITADO
 
Rogerio
não registrado
Postada em 22/09/2009 18:21 hs   
Obrigado pela dica, eu li num site que o lokkedit faria isto tambem entao coloquei no meu código do botão alterar:
Abro a tabela
crio o objeto recordset
Atribuo o boqueio com o lockedit
o programa altera os dados com o .edit
Faço o .update
e fecho a tabela e o banco,
porém quando eu fecho o recordset dá erro, entao eu fechei somente o banco e dá certo: bdbanco.Close
 
Estou fazendo algo de errado não fechando o recordset da tabela? e pq deu erro ao fechar a tabela? obrigado, agradeço desde já.
 
veja o codigo abaixo:
 
  Dim rsreco As Recordset
    Set rsreco= bdbanco.OpenRecordset("Tabtabela", dbOpenTable)
      
  'ATRIBUINDO BLOQUEIO OTIMISTA NA ALTERAÇÃO DE DADOS
  rsreco.LockEdits = False
 
rsreco.edit
 
'aqui altero os dados
 
rsreco.update
 
FECHA O RECORDSET (TABELA) E O BANCO ACCESS
rsreco.Close (quando coloqeui esta linha saio errado entao tirei)
bdbanco.Close (deixei esta linha de codigo e nao deu erro)
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página