ERRO NA HORA DE ATUALIZAR OS DADOS JA EXISTENTES

USUARIO.EXCLUIDOS 01/12/2006 18:01:38
#187496
bom tenho uma base etenho um list que quando clico no list ele manda os dados em cada campo respectivos a que tem que ir...mas quando eu vou regravar ou atualizar a base mandando gravar da o seguinte erro


run-time erro'3251':


E aparece a seguinte menssagem

o conjunto de registro atual não oferece suporte para atualizacao.
Isso pode ser limitação do provedor ou tipo de bloqueio selecionado

nao sei oq ue é nao deixa atualizar os dados
ZULLIM 01/12/2006 18:31:42
#187501 Resposta escolhida
Qual o banco, usa ADO OU DAO e como está tentando atualizar?
USUARIO.EXCLUIDOS 01/12/2006 18:33:40
#187502
ADO

o banco é sql

a minha funcça esta assim de gravar


TabIdenti("Codigo") = txtcod.Text
TabIdenti("sexo") = Cbosexo.Text
TabIdenti("nome") = Txtnome.Text
TabIdenti("nasc") = Txtnasc.Text
TabIdenti("idade") = Txtidade.Text
TabIdenti("rg") = Txtrg.Text
TabIdenti("vinculo") = Cbovinculo.Text

'Endereço
TabIdenti("endereco") = Txtende.Text
TabIdenti("num") = Txtnumero.Text
TabIdenti("cep") = Txtcep.Text
TabIdenti("complemento") = Txtcomp.Text
TabIdenti("muni") = Txtmuni.Text
TabIdenti("bairro") = Txtbairro.Text
TabIdenti("estado") = Cboestado.Text
TabIdenti("fone") = Txtfone.Text
TabIdenti("celular") = Txtcel.Text

Tabidenti.Update
ZULLIM 01/12/2006 18:37:59
#187504
Você está inserindo um novo registro ou atualizando um existente?

Se estiver inserindo você está usando o comando TabIdenti.addnew ?

Se estiver atualizando, como está abrindo a tabela?
USUARIO.EXCLUIDOS 01/12/2006 18:39:22
#187505
atualizando um existente

sim tabinti.addnew


sim abro

ZULLIM 01/12/2006 18:44:37
#187507
Se você estiver atualizando um existente não deve usar o addnew.
USUARIO.EXCLUIDOS 01/12/2006 18:47:01
#187508
devo usa o q entao me ajude cara me add no msn paulokuchinho@hotmail.com
ZULLIM 01/12/2006 18:54:27
#187509
Você deve abrir o banco e tabela assim:

Set TABELA = Nothing
Set TABELA = CreateObject("ADODB.Recordset")
Set TABELA .ActiveConnection = BANCO
With TABELA
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "SELECT CAMPO1, CAMPO2, CAMPO3, FROM SUA TABELA"
End With

Após abrir a tabela você deve pecorrê-la até econtrar o registro que queira atualizar e:

TabIdenti("Codigo") = txtcod.Text
TabIdenti("sexo") = Cbosexo.Text
TabIdenti("nome") = Txtnome.Text
TabIdenti("nasc") = Txtnasc.Text
TabIdenti("idade") = Txtidade.Text
TabIdenti("rg") = Txtrg.Text
TabIdenti("vinculo") = Cbovinculo.Text

'Endereço
TabIdenti("endereco") = Txtende.Text
TabIdenti("num") = Txtnumero.Text
TabIdenti("cep") = Txtcep.Text
TabIdenti("complemento") = Txtcomp.Text
TabIdenti("muni") = Txtmuni.Text
TabIdenti("bairro") = Txtbairro.Text
TabIdenti("estado") = Cboestado.Text
TabIdenti("fone") = Txtfone.Text
TabIdenti("celular") = Txtcel.Text

Tabidenti.Update

Ou então usar sql:

banco.execute "update tabela set muni = '" & Txtmuni.Text & "' where codigo = " & txtcod.Text

Você inclui os campos que queira atualizar.
USUARIO.EXCLUIDOS 01/12/2006 22:35:53
#187548
ainda nao consegui alguem me ajude
Tópico encerrado , respostas não são mais permitidas
Voltar