Microsoft Ole Db Provider For Odbc Drivers Error '80004005'

[smez]

Porque esta dando este erro

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/cadastro.asp, line 493

<%

If Not IsEmpty(Request.Form) Then

Set objCon = Server.CreateObject("ADODB.Connection")

objCon.Open strCon

campo_duplicado = false

campo_msg = ""

Set objRS_duplic = Server.CreateObject("ADODB.Recordset")

objRS_duplic.CursorLocation = 3

objRS_duplic.CursorType = 0

objRS_duplic.LockType = 3

strQ_duplic = "SELECT email FROM vip Where email Like '" & Trim(Request.Form("email")) & "'"

objRS_duplic.Open strQ_duplic, objCon, , , &H0001

If Not objRS_duplic.EOF Then

If Trim(campo_msg) = "" Then

campo_msg = "email"

valor_msg = Trim(Request.Form("email"))

End If

campo_duplicado = true

End If

objRS_duplic.Close

Set objRS_duplic = Nothing

Set strQ_duplic = Nothing

Set objRS_duplic = Server.CreateObject("ADODB.Recordset")

objRS_duplic.CursorLocation = 3

objRS_duplic.CursorType = 0

objRS_duplic.LockType = 3

strQ_duplic = "SELECT usuario FROM vip Where usuario Like '" & Trim(Request.Form("usuario")) & "'"

objRS_duplic.Open strQ_duplic, objCon, , , &H0001

If Not objRS_duplic.EOF Then

If Trim(campo_msg) = "" Then

campo_msg = "usuario"

valor_msg = Trim(Request.Form("usuario"))

End If

campo_duplicado = true

End If

objRS_duplic.Close

Set objRS_duplic = Nothing

Set strQ_duplic = Nothing

If campo_duplicado = false Then

Set objRS= Server.CreateObject("ADODB.Recordset")

objRS.CursorLocation = 3

objRS.CursorType = 0

objRS.LockType = 3

strQ = "SELECT * FROM vip Where 1 <> 1"

objRS.Open strQ, objCon, , , &H0001

objRS.Addnew()

If objRS.Fields("bairro").properties("IsAutoIncrement") = False Then

objRS("bairro") = Trim(Request.Form("bairro"))

End If

If objRS.Fields("cep").properties("IsAutoIncrement") = False Then

objRS("cep") = Trim(Request.Form("cep"))

End If

If objRS.Fields("cidade").properties("IsAutoIncrement") = False Then

objRS("cidade") = Trim(Request.Form("cidade"))

End If

If objRS.Fields("comple").properties("IsAutoIncrement") = False Then

objRS("comple") = Trim(Request.Form("comple"))

End If

If objRS.Fields("email").properties("IsAutoIncrement") = False Then

objRS("email") = Trim(Request.Form("email"))

End If

If objRS.Fields("endereco").properties("IsAutoIncrement") = False Then

objRS("endereco") = Trim(Request.Form("endereco"))

End If

If objRS.Fields("estado").properties("IsAutoIncrement") = False Then

objRS("estado") = Trim(Request.Form("estado"))

End If

If objRS.Fields("nasc").properties("IsAutoIncrement") = False Then

objRS("nasc") = Trim(Request.Form("nasc"))

End If

If objRS.Fields("nome").properties("IsAutoIncrement") = False Then

objRS("nome") = Trim(Request.Form("nome"))

End If

If objRS.Fields("numero").properties("IsAutoIncrement") = False Then

objRS("numero") = Trim(Request.Form("numero"))

End If

If objRS.Fields("senha").properties("IsAutoIncrement") = False Then

objRS("senha") = Trim(Request.Form("senha"))

End If

If objRS.Fields("sexo").properties("IsAutoIncrement") = False Then

objRS("sexo") = Trim(Request.Form("sexo"))

End If

If objRS.Fields("signo").properties("IsAutoIncrement") = False Then

objRS("signo") = Trim(Request.Form("signo"))

End If

If objRS.Fields("sobrenome").properties("IsAutoIncrement") = False Then

objRS("sobrenome") = Trim(Request.Form("sobrenome"))

End If

If objRS.Fields("telefone").properties("IsAutoIncrement") = False Then

objRS("telefone") = Trim(Request.Form("telefone"))

End If

If objRS.Fields("usuario").properties("IsAutoIncrement") = False Then

objRS("usuario") = Trim(Request.Form("usuario"))

End If

objRS.Update " esta dando erro aqui"

objRS.Close

Set objRS = Nothing

%>

[.Andreia.]

verifica as permissões

[smez]

as permissões estão ok

e o erro perciste

[smez]

help

[kuroi]

não sei se é isso, mas acho que o erro é na hora de abrir, esse acho que o cursortype deve ser 1:

objRS.Open strQ, objCon, 1, 3, 1

tente desse jeito, mas apague essas linhas:

objRS.CursorLocation = 3
objRS.CursorType = 0
objRS.LockType = 3[/code]