[Resolvido] Problemas com INSERT INTO

[Rodrigo Nogueira 0]

Bom dia pessoal, gastaria da ajuda de vocês. Estou fazendo um site intranet na minha empresa. Só que não consigo inserir dados nem por reza braba.

Segue o codigo que funciona de UPDATE:

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("olha.mdb")&";"

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

add_action.Open "Dados",conexao,3,3

ocorrencia_teste = Request.Form("oc_teste")
falhaf_teste = Request.Form("ff_teste") 
noticia1_teste = Request.Form("not1_teste") 
noticia2_teste = Request.Form("not2_teste")
noticia3_teste = Request.Form("not3_teste")
noticia4_teste = Request.Form("not4_teste")
noticia5_teste = Request.Form("not5_teste")
atualizacao1_teste = Request.Form("atu1_teste") 
atualizacao2_teste = Request.Form("atu2_teste") 
atualizacao3_teste = Request.Form("atu3_teste") 
atualizacao4_teste = Request.Form("atu4_teste") 
atualizacao5_teste = Request.Form("atu5_teste")
Datualizacao1_teste = Request.Form("Datu1_teste") 
Datualizacao2_teste = Request.Form("Datu2_teste") 
Datualizacao3_teste = Request.Form("Datu3_teste") 
Datualizacao4_teste = Request.Form("Datu4_teste") 
Datualizacao5_teste = Request.Form("Datu5_teste") 
nmes_teste = Request.Form("mes_teste") 
nmetames_teste = Request.Form("metames_teste") 
nano_teste = Request.Form("ano_teste") 
nmeta_teste = Request.Form("meta_teste")

'response.write Datualizacao5_teste
'Até aqui OK

strQuery = "UPDATE Dados SET Ocorrencia = '"&ocorrencia_teste&"', FF = '"&falhaf_teste&"', not1 = '"¬icia1_teste&"', not2 = '"¬icia2_teste&"', not3 = '"¬icia3_teste&"', not4 = '"¬icia4_teste&"', not5 = '"¬icia5_teste&"', atual1 = '"&atualizacao1_teste&"', atual2 = '"&atualizacao2_teste&"', atual3 = '"&atualizacao3_teste&"', atual4 = '"&atualizacao4_teste&"', atual5 = '"&atualizacao5_teste&"', DAtual1 = '"&Datualizacao1_teste&"', DAtual2 = '"&Datualizacao2_teste&"', DAtual3 = '"&Datualizacao3_teste&"', DAtual4 = '"&Datualizacao4_teste&"', DAtual5 = '"&Datualizacao5_teste&"', mes = '"&nmes_teste&"', meta_mes = '"&nmetames_teste&"', ano = '"&nano_teste&"', meta = '"&nmeta_teste&"' WHERE id ="& 1

'On error Resume Next
Set add_action = conexao.Execute(strQuery)
'add_action.close
conexao.close
Set add_action = Nothing
Set conexao = Nothing
if err = 0 Then
response.write ("Teste")
response.redirect("editar.asp") 
end if
%>

Agora segue uns dos codigos que fiz na tentativa de um INSERT.

<%
confirmacao= request.form("_titulo")
nome = request.form("_end")

response.write confirmacao
response.write nome
'On error Resume Next
Set dbconn = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pega.mdb")&";"
dbconn.open conexao

'On error Resume Next

set myRS=Server.CreateObject("ADODB.Connection")
'On error Resume Next

mySQL = "INSERT INTO Dados (titulo, local) Values ('descricao', 'senha')"
myRS.open mySQL, dbconn

response.write err
%>

Não funciona. Não grava. Só consigui dar um UPDATE, já tentei alterar as permissoes para mexer no banco e mesmo assim nada.

Por favor me ajudem

[xanburzum 169]

é gerado algum erro ??? você configurou todos os privilégios administrativos para o banco (leitura,gravação,etc..)

da onde você esta recuperando os valores descriçao e senha ???

se os valores forem texto tem que colocar '"&.....&"'

 

vardescricao= request.form("descricao")
varsenha= request.form("senha")

"INSERT INTO Dados (titulo, local) Values ('"&vardescricao&"', '"&varsenha&"')"

[Rodrigo Nogueira 0]

é gerado algum erro ??? você configurou todos os privilégios administrativos para o banco (leitura,gravação,etc..)

da onde você esta recuperando os valores descriçao e senha ???

se os valores forem texto tem que colocar '"&.....&"'

 

vardescricao= request.form("descricao")
varsenha= request.form("senha")

"INSERT INTO Dados (titulo, local) Values ('"&vardescricao&"', '"&varsenha&"')"

Não consigo ver o erro, tentei ver o erro por etapas com o "On error Resume Next". Porém não obtive muito sucesso.

 

Também tentei editar os privilegios, mas uma duvida, pq eu consigo dar um UPDATE e nao consigo dar um INSERT. Os privilegios não seriam os mesmos?

 

Em relação da onde vem os dados eles vem de outra pagina que envia no FORM, porém para eu testar como esta no codigo eu coloquei um valor qualquer, que coloquei simplesmente em aspas simples.

mySQL = "INSERT INTO Dados (titulo, local) Values ('descricao', 'senha')"
myRS.open mySQL, dbconn

[xanburzum 169]

dá um response.write na sua string SQL, para ver o que esta sendo passado.

Response.write(MySQL)
Response.End()

[Rodrigo Nogueira 0]

Simplesmente respondeu o var(mySQL)

INSERT INTO Dados (titulo, local) Values ('descricao', 'senha')

 

E tive que colocar o "On error Resume Next", caso contrario nem consigo ver o response.write.

 

E tambem veio o erro 2147467259, devido ao fato de eu ter colocado o "response.write err"

 

Você não teria um exemplo de algum cosigo funcionando não? To pensando em usar o AddNew. Porém tinha testado antes e tb não funcionou.

 

Ta tenso.

[Rodrigo Nogueira 0]

Consegui. porém não foi com Insert into. foi com ADDNEW

Segue o codigo que utilizei e está funcionando até o monento:

<%
Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("pega.mdb")&";"
Set add_action = Server.CreateObject ("ADODB.Recordset")
SQL = "SELECT * FROM Dados"
add_action.Open SQL,conexao,3,3
add_action.addnew
add_action("titulo") = request.form("_titulo")
add_action("local") = request.form("_end")
add_action.update
add_action.close

conexao.close
Set conexao = Nothing
Set add_action = Nothing
if err = 0 then
response.Redirect("adicionar.asp")
end if

%>

Obrigado e até +

[Mário Monteiro 179]

o erro era o uso de palavras reservadas

 

mas se esta resolvido parabens