Consulta Atualizavel

[sergiotp]

E ae glr beleza?

Então ta dando um erro aqui na hora de incluir os dados no bd e o erro é o seguinte:

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

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

/tsweb/site/admin/scoluna.asp, line 18

Agora meu codigo:

<%
If IsEmpty( Request.Form("submit") ) Then
%>
<%
Else
If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("data")) <> ""  AND Trim(Request.Form("sobre")) <> ""  AND Trim(Request.Form("texto")) <> "" AND Trim(Request.Form("nome")) <> "" Then
Set Conexao = Server.CreateObject("ADODB.Connection")
Dim Dbq
Dbq = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("coluna.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
Conexao.Open Dbq
data = Replace(Request.form("data"),"'","''")
sobre = Replace(Request.form("sobre"),"'","''")
texto = Replace(Request.form("texto"),"'","''")
nome = Replace(Request.form("nome"),"'","''")


Sql = "Insert Into dados(data,sobre,texto,nome) Values ('"& data & "', '"& sobre & "', '"& texto & "' , '"& nome & "' )"
[COLOR=red]Conexao.Execute(Sql)[/COLOR]
Conexao.close
Set rs = Nothing
Set conexao = Nothing%>
<%
Else
%>
<%
End If
End If
%>

O erro ta na linha q eu coloquei de vermelho la em cima.

Desde já agradeço

Abraços

[bareta]

tem permissão de escrita aonde o banco tá???? não tem dados em branco??? os campos estão certos??

[cyberalexxx]

O que isso aqui faz

Persist Security Info=False;Jet OLEDB:Database Password="

[dark0]

http://scriptbrasil.com.br/forum/index.php...ndpost&p=148642

boa leitura

[sergiotp]

Orra, essa foi boa!

Vlw ae dark.

Realmente era isso q tava dando erro

Vlw ae brother!

Ah já ia esqueçendo

Pode fechar o tópico!

E desculpe por não fazer uma pesquisa antes de perguntar

[dark0]

hehe

tá certo

to fechando o tópico então

abraços