Erro ao tentar gravar em um BD

[acubane 0]

Estou com um problema qaundo tento gravar as informações do meu formulario em asp.net apresente a seguinte mensagem de erro

 

A operação deve usar uma consulta atualizável.

Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.

 

Exception Details: System.Data.OleDb.OleDbException: A operação deve usar uma consulta atualizável.

 

Source Error:

 

 

Line 61:

Line 62: conexao.Open()

Line 63: Cmd.ExecuteNonQuery()

Line 64: conexao.Close()

Line 65: Response.Write("Informações gravadas com sucesso !")

 

 

Source File: c:\inetpub\wwwroot\Livrodevisitas\livro.aspx.vb Line: 63

Alguem pode me ajudar olha o codigo da minha pagina abaixo

 

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

 

Dim strConexao As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\Livrodevisitas\livro.mdb")

 

'confere se tem alguma coisa escrita no nome

If txtnome.Text <> "" Then

'se tiver entao faça isso

Dim strSQL As String = "Insert into livro (nome, email, orkut, mensagem) Values(@nome, @mail, @orkut, @mensagem)" 'seleciona a tabela e os campos

Dim s As String = "selct * from livro (nome) values(@nome)" ' chave/indice

Dim conexao As New OleDbConnection(strConexao)

Dim Cmd As New OleDbCommand(strSQL, conexao)

 

Cmd.Parameters.Add(New OleDbParameter("@nome", txtnome.Text)) '

Cmd.Parameters.Add(New OleDbParameter("@mail", txtmail.Text))

Cmd.Parameters.Add(New OleDbParameter("@orkut", txtorkut.Text))

Cmd.Parameters.Add(New OleDbParameter("@mensagem", txtmensagem.Text))

 

conexao.Open()

Cmd.ExecuteNonQuery()

conexao.Close()

Response.Write("Informações gravadas com sucesso !")

limpaControles()

 

Else

Response.Write("Preencha o campo")

 

End If

 

 

 

End Sub

[Anubis 0]

Dá uma olhada na sua seguinte linha

especial a palavra "selct" não seria Select ?

 

Dim s As String = "selct * from livro (nome) values(@nome)" ' chave/indice

 

Não Seria Assim???!!!???

 

Dim s As String = "select * from livro (nome) values(@nome)" ' chave/indice

[quintelab 91]

Cara o erro que o Anubis apontou tem que ser corrigido também, mas o erro que você postou é referente a outra coisa, aqui no fórum mesmo tem muitos posts em relação a isto, da uma olhada:

 

http://forum.imasters.com.br/index.php?showtopic=221880

[acubane 0]

Valew quitelab, Valew Anubis deu certo