14 replies to this topic

[rmax209]

Preciso atualizar um campo "senha" por uma pagina em ASP q acessa o DB em Access com o comando UPDATE mas da este erro:

Microsoft JET Database Engine (0x80040E10)
Nenhum valor foi fornecido para um ou mais parâmetros necessários.
/banco_dados/alterar.asp, line 21

a linha 21 é o comando:

Set ObjRs = objConn.Execute(strQuery)



O código todo é esse:

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("../../../../databases/cadastro.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


id = "1"
senha = "123"'
strQuery = "UPDATE tabela SET senha = '"&senha&"' WHERE id = '"&id&"'"
Set ObjRs = objConn.Execute(strQuery)


'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>





Aond esta o erro??? se alguem puder m ajudar fico muito grato

Edição feita por: rmax209, 20/04/2006, 12:48.

[Worm]

id = 1
senha = "123"
strQuery = "UPDATE tabela SET senha = '" & senha & "' WHERE id = " & id
Set ObjRs = objConn.Execute(strQuery)

Presumindo que seu campo ID seja numerico tente o exemplo acima.

[rmax209]

Continua com o mesmo erro...


Microsoft JET Database Engine (0x80040E10)
Nenhum valor foi fornecido para um ou mais parâmetros necessários.
/banco_dados/alterar.asp, line 21

[Fernando_Ramos]

apenas a nivel de teste faça:

strQuery = "UPDATE tabela SET senha = '123' WHERE id = 1"
Set ObjRs = objConn.Execute(strQuery)

OBS.: o nome da sua tabela, realmente é "tabela" ??

abraços!

[rmax209]

OBS.: o nome da sua tabela, realmente é "tabela" ??

Naun o nome da tabela é cadastro eu mudei ai so pra exemplo mai tipo se o prob fosse ai daria um erro diferent...

[knoxville]

no code tá com o nome CADASTRO e não TABELA?
se o erro tá na linha Set ObjRs = objConn.Execute(strQuery) quer dizer q na verdade o erro tá em strQuery = "UPDATE tabela SET senha = '"&senha&"' WHERE id = '"&id&"'" ou nas variáveis setadas para ele
as variaveis estao certas, logo, o erro é ali msm!
o caminho do banco de dados tá certo?
tenta usar assim:
strQuery = "UPDATE tabela SET senha = '"&senha&"' WHERE id = "&id&""

ou pode ser que a sintaxe está certa... ou seja, o problema que tá dando é porke a senha também é um valor numérico!
tenta usar strQuery = "UPDATE tabela SET senha = "&senha&" WHERE id = "&id&"" tenho qse certeza que vai dar...
só q daí se for o usuário que escolhe a senha, vc vai ter q usar com as 'aspas simples' mesmo, pq se não vai dar erro qdo tiver alguma letra na variável!

é por ai! ^^
testa e mostra ai pra gente o q q dá

Edição feita por: knoxville, 26/04/2006, 09:57.

[Fernando_Ramos]

o erro aparece por que não esta passando nenhum parametro...ou esta passando de forma errada...

vc fez o teste passando os valores no proprio sql...sem paramentros..por variaveis?

faz..isso para testarmos...

[Luis Otávio]

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("../../../../databases/cadastro.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


id = "1"
senha = "123"'
strQuery = "UPDATE tabela SET senha = '"&senha&"' WHERE id = "&id&"
response.write "issu eu copio e colo no forum ====> "&strQuery
response.end

Set ObjRs = objConn.Execute(strQuery)


'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>


copia e cola, naum muda nada
o q apareceu...?

Edição feita por: Luis Otávio, 26/04/2006, 14:25.

[rmax209]

dei uma limpada no codigo seguindo a dica d vcs e tals...

esse é o codigo exatamente como to usando. só q agora naun ta dando mais erro nenhum, porem naun ta alterando a senha no db!

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("users.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


id = "1"
senha = "123"
strQuery = "UPDATE usuarios SET senha = "&senha&" WHERE id = "&id&"" 
response.write "ok"
response.end

Set ObjRs = objConn.Execute(strQuery)


'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>

Fernando_Ramos eu tb acho q é isso o prblema, a parada naun ta enviando corretamente os parametros mas como eu testo desse modo ai q vc falo?

Edição feita por: rmax209, 27/04/2006, 14:59.

[Agente Linhares]

dei uma limpada no codigo seguindo a dica d vcs e tals...

esse é o codigo exatamente como to usando. só q agora naun ta dando mais erro nenhum, porem naun ta alterando a senha no db!

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("users.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


id = "1"
senha = "123"
strQuery = "UPDATE usuarios SET senha = "&senha&" WHERE id = "&id&"" 
response.write "ok"
response.end

Set ObjRs = objConn.Execute(strQuery)


'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>

Fernando_Ramos eu tb acho q é isso o prblema, a parada naun ta enviando corretamente os parametros mas como eu testo desse modo ai q vc falo?

tenta assim:

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("users.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


'id = "1"
'senha = "123"
strQuery = "UPDATE usuarios SET senha = 'teste123' WHERE id = 1"
response.write "ok"
response.end

Set ObjRs = objConn.Execute(strQuery)


'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>

acho que seu problema é porque esta colocando aspas no campo ID que é auto-numeração né? ou nao é?

- o campo "senha', se for campo tipo texto, deve ficar entre aspas simples e duplas.
- o campo "id", se for autonumeração, deve ficar so c/ aspas duplas na hora de por a variavel.

ex. maneira correta:

strQuery = "UPDATE usuarios SET senha = '"&var1&"' WHERE id = "&var2&"

[rmax209]

acho que seu problema é porque esta colocando aspas no campo ID que é auto-numeração né? ou nao é?

o Campo id é autonumérico sim e a senha poderá conter letras e numeros pois o usuario ira digitar no form todos esses dados vira de um form mais to tentando asssim pra v se funciona... coloquei desse jeito como vc passou mais naun funcionaou tb... kramba q UPDATE dificil d funcionar o DELETE e o SELECT na outra aplicação q uso funciona blz mas esse ta dificil... naun ta dando erro nenhum porem continua sem atualizar

tirei um screen do db q to usando pra vcs v se tem alguma coisa errada vlw pela ajuda d todos!

 fotodb.jpg   32.9KB   11 downloads

Edição feita por: rmax209, 27/04/2006, 18:53.

[Fernando_Ramos]

vamos lá....

1º Crie uma pasta no c:\
2º Crie um arquivo chamado upd.asp
3º Coloque o seu mdb(banco) dentro desta pasta do c:\ no mesmo local do arquivo upd.asp
4º Abra o arquivo upd.asp e coloque(NÃO ESQUEÇA DE PREENCHER A VARIAVEL BANCO COM O NOME DO TEU MDB E PREENCHER A VARIAVEL SENHA COM A SENHA DO MSB, CASO ELA EXISTA!

banco = ""
senha = ""

Set conexao = Server.CreateObject("ADODB.Connection")
conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(banco) & ";Jet OLEDB:Database Password=" & senha & ";"
conexao.CursorLocation = 3

sql = "update usuarios set senha = 'TROQUEIASENHA' WHERE id = 1"
set rs = conexao.execute(sql)

respone.write "SENHA ALTERADA COM SUCESSO"

RODA NO IIS...E VE SE FUNCIONA...

OBS.: FECHA O MDB ENQUANTO ESTIVER USANDO O SITE!

ABRAÇOS!

[rmax209]

Blza agora funcionou!!! :

<%
'Option Explicit
Response.Expires = 0
Dim objConn, objRs, strQuery, strConnection, strDBPath, contador, SortBy, id, senha

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

strDBPath = Server.MapPath("users.mdb")

objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


'id = "1"
'senha = "123"
strQuery = "UPDATE usuarios SET senha = 'teste123333' WHERE id = 1" 
Set ObjRs = objConn.Execute(strQuery)

response.write "ok"

'Fechando as conexões
Set objRs = Nothing
Set objConn = Nothing
%>

Valew pela ajuda d todos!!

[Fernando_Ramos]

seguinte...

so para complementar...eu fiz no meu codigo q te passei tb ...


para update e delete...vc nao tem a necessidade de criar recordsets..

abraços

[rmax209]

seguinte...

so para complementar...eu fiz no meu codigo q te passei tb ...


para update e delete...vc nao tem a necessidade de criar recordsets..

abraços

vlw Fernando_Ramos!