Duvidas Com Update

[Guest - Andrea -]

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

[Beowulff]

Olá.

Andrea, a principio não tem nada errado, você só esta atualizando o campo ID sem necessidade, pois como você mesmo disse ele não é 'atualizavel', se voce puder mandar a estrutura da sua tabela e como você esta fazendo a conexão poderia ficar mais fácil de achar o problema.

[]´s

Felippe

[Guest - Andrea -]

minha tabela so tem dois campos :

nome: texto

ID: autonumeração

aki ta o meu modulo:

Option Explicit

Global Conexao As ADODB.Connection

Global Rs As ADODB.Recordset

Global sSql As String

Public Function AbreBanco(ByVal sSql As String) As Boolean

Dim strArquivo As String

Dim strLocal As String

Dim ConectaAccess As String

Set Conexao = New ADODB.Connection

Set Rs = New ADODB.Recordset

Set Rs = CreateObject("ADODB.Recordset")

strArquivo = "D:andreacadastro de cdscad_cds.mdb"

strLocal = App.Path

Set Conexao = CreateObject("ADODB.Connection")

'ConectaAccess = "Driver={Microsoft Access Driver (*.mdb)};" & _

' "Dbq=" & strArquivo & ";" & _

' "DefaultDir=" & strLocal & ";" & _

' "Uid=;Pwd=;"

ConectaAccess = "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source=" & strArquivo & ";" & _

"User ID=;" & _

"Password="

Conexao.Open ConectaAccess

Rs.Open sSql, Conexao, adOpenKeyset, adLockOptimistic

AbreBanco = True

End Function

Andrea

[Beowulff]

Olá.

Andrea o erro provavelmente está ocorrendo pois você esta tentando dar update no campo ID que é auto numeração e não aceita UPDATE.

[]´s

Felippe

[Guest - Andrea -]

Valeu pela força.

Um abraço, Andr ea