Ainda Não Deu Certo...

[renatacm]

Gente o meu problema ainda não foi resolvido!!!

porque fecharam o tópico???

Pessoal, fiz algumas alterações no código: deixei de tentar gravar com o uso de str ing SQL e parti para um método um pouco mais manual: addnew do Recordset, porém ainda assim me dá uma mensagem de erro:

O item não pode ser encontrado na coleção correspondente ao nome ou ao original solicitado.

Já verifiquei o banco e suas permissões: está tudo ok!

A linha que ele apresenta erro é a seguinte: RS("user").value=user

antes eu estava usando RS("user").value=request.form("user") e a mensagem de erro era a mesma.

Dêem uma olhada em como ficou o código agora. Quem saber assim fica mais fácil pra vocês me ajudarem, né?

user = request.form("user")

email = request.form("email")

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

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

Conn.Open "DBQ=" & Server.Mappath("database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste"

rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3

if rs.eof and rs.bof then

rs.addnew

RS("user").value=user ESSA É A LINHA ONDE ESTÁ O ERRO

RS("email").value=email

Rs("pass").value=PassworTemp

RS.update

set RS = nothing

Será que alguém pode me ajudar?!?

[ursolouco]

Gente o meu problema ainda não foi resolvido!!!

porque fecharam o tópico???

Desculpe, falta de atenção.

Era para fechar outro tópico Srª Renata!!!:wub:

Vou reabri-lo...

Boa Sorte!!!

[urso]

[ursolouco]

<%
user = request.form("user")
email = request.form("email")

Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")

Conn.Open "DBQ=" & Server.Mappath("./database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste" 

rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3

if rs.eof then

rs.addnew
RS("user")=user
RS("email")=email
Rs("pass")=PassworTemp
RS.update 

End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[renatacm]

Gente o meu problema ainda não foi resolvido!!!

porque fecharam o tópico???

Pessoal, fiz algumas alterações no código: deixei de tentar gravar com o uso de str ing SQL e parti para um método um pouco mais manual: addnew do Recordset, porém ainda assim me dá uma mensagem de erro:

O item não pode ser encontrado na coleção correspondente ao nome ou ao original solicitado.

Já verifiquei o banco e suas permissões: está tudo ok!

A linha que ele apresenta erro é a seguinte: RS("user").value=user

antes eu estava usando RS("user").value=request.form("user") e a mensagem de erro era a mesma.

Dêem uma olhada em como ficou o código agora. Quem saber assim fica mais fácil pra vocês me ajudarem, né?

user = request.form("user")

email = request.form("email")

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

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

Conn.Open "DBQ=" & Server.Mappath("database/users.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};","Administrador","teste"

rs.open "SELECT pass FROM users WHERE pass='"&PassworTemp&"' OR user='"&user& "'",Conn,2,3

if rs.eof and rs.bof then

rs.addnew

RS("user").value=user ESSA É A LINHA ONDE ESTÁ O ERRO

RS("email").value=email

Rs("pass").value=PassworTemp

RS.update

set RS = nothing

Será que alguém pode me ajudar?!?

Agora deu certo, galera!!!

Só tive que colocar

rs.close

rs.open "SELECT * FROM tabela..."

antes do

rs.addnew

e deu certo!!!

O duro foi chegar a essa conlusão!!!

Abraços

[ursolouco]

Já posso fechar o tópico ?