Gente, estou tentando fazer uma atualização que é o seguinte, eu tenho um ListView que tem duas colunas, ID e Nome de um cadastro de CD's que eu tenho que fazer, logo estou tentando fazer um "Alterar", dai eu fiz da seguinte maneira.. Coloquei um text... E quando eu clicar no ListView (eu só quero atualizar o nome, pois ID é um número que não pode ser alterado), no text aparece o Nome, então fica a critério do usuário a fazer a atualização... Bom, para atualizar eu fiz o seguinte Update:

sSql = "Update cds set Nome = '" & txtnome.Text & "', ID = " & i & " where ID = " & i & "" 

A variavel I está armazenando o número de ID que está no ListView...

Aparece o seguinte erro:

____________________________________________________________________
-2147217904
Nenhum valor foi fornecido para um ou mais parâmetros requeridos.
____________________________________________________________________

Bom, estou usando conexão ADO, e pergunto este erro tem a ver com o Update que eu fiz???? Falta alguma coisa??? Alguém sabe como resolver????

Obrigada mesmo, espero que possam me ajudar.

Andrea Dahmer

Verifique os nomes dos campos NOME e ID veja se existem realmente no arquivo.

De uma olhada no conteudo de I. Verifique se ele esta em branco (ele deve ser numerico e não pode ter branco).

Bom verifiquei o que vc falou debugando, e ví que os valores estão corretos mas está acontecendo este erro.... Espero que consiga me ajudar...

 

Andrea Dahmer

Lilithi, essa SQL aparentemente está certa, mas o ID é redundante, não precisa atualizar esse campo, pq vc passa esse mesmo como condicional.

 

sSql = "Update cds set Nome = '" & txtnome.Text & "' where ID = " & i  

 

agora o erro pode estar ocorrendo quando vc manda executar essa string

coloque o codigo aqui para podermos analizar.

 

Roberto

Aparentemente esta tudo OK. Deve ser algo banal (para variar).

Veja e o registro ja existe. Pois voce esta fazendo uma regravacao.

Bom o código é esse...

 

Private Sub cmdaltera_Click() 

   If (txtnome.Text = "") Then
        MsgBox "Escolha o dado a ser atualizado", vbInformation + vbOKOnly, "Atenção"
        Exit Sub
    End If
    sSql = "Update cds set Nome = '" & txtnome.Text & "' where ID = " & i & ""
    AbreBanco (sSql)

 

bom é aqui a parte do código que está acontendo o erro... Se precisar que eu coloque outra parte que está relacionada com o erro por favor me digam... Muito agradecida mesmo...

 

 

Andrea Dahmer