COMO BLOQUEAR O REGISTRO NO ACCESS USANDO VB6

RUCKERT 12/04/2012 15:11:20
#399709

ok obg vou alterar parar .bof =true and eof = true e vou rodar e instalar e t dou retorno como ficou
obrigado André Luis Ruckert

RUCKERT 12/04/2012 17:21:56
#399728

Montei a função desta forma abaixo como exemplo
e do emsmo jeito continuou a inseterir produto q nao selecionei no meu produto.

Set adoProduto = New ADODB.Recordset
SQL = [Ô][Ô]
Err = 0
On Error GoTo TrataErro

SQL = [Ô]SELECT * From [Produto] Where trim(Orcamento) = [ô][Ô] & Trim(txtOrcamento) & [Ô][ô] and trim(CodProduto) = [ô][Ô] & Trim(txtCodProduto) & [Ô][ô][Ô]
adoProduto.Open SQL, DBOrcamento, adOpenStatic, adLockOptimistic
if adoproduto.bof=true and adoproduto.eof=true then
adoproduto.addnew
adoproduto([Ô]Orcamento[Ô])=txtorcamento.text
adoproduto([Ô]CodProduto[Ô])=txtcodproduto.text
adoproduto([Ô]DescProduto[Ô])=txtdescproduto.text
adoproduto([Ô]Qt[Ô])=txtqte.text
adoproduto.update
else
adoproduto([Ô]Qt[Ô])=txtqte.text
adoproduto.update
endif

MARCELO.TREZE 12/04/2012 20:03:55
#399733

então colega reveja todo seu código, pois acredito que em algum outro lugar vc está executando outra operação ao mesmo tempo

RUCKERT 12/04/2012 20:49:52
#399737

Obrigado Marcelo, por tentar me ajudar, estou lendo aqui que o banco de dados access tem este problema mesmo. Me informaram que a unica forma de acabar com isto
seria bloquear a pagaina do regsitro do access e ou troca o banco por SQL Server