5 replies to this topic

[vrsbueno]

eu estava usando o Office XP, mas dai eu formatei o pc e coloquei o Office 2000.
dai, eu fui fazer meu ASP, e deu o seguinte problema:

Tipo de erro:
Microsoft JET Database Engine (0x80004005)
A operação deve usar uma consulta atualizável.
/warbr/valida.asp, line 24

Codigo:

<%

Set vCon = Server.CreateObject("ADODB.Connection")
vCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("membros.mdb") &";Persist Security Info=False"

vLogin=Replace(Trim(Request.Form("login")), "'", "''")
vSenha=Replace(Trim(Request.Form("senha")), "'", "''")

IF vLogin="" OR vSenha="" THEN
Response.Redirect "login.asp"

ELSE

vSql="SELECT id_membros,login_membros,senha_membros,nivel_membros,email_membros FROM tb_membros"
Set vLog=vCon.Execute(vSql)

WHILE NOT vLog.EOF  
 IF vLogin=vLog("login_membros") AND vSenha=vLog("senha_membros") THEN
 Session("logado")=TRUE
 vNivel=vLog("nivel_membros")
 vId=vLog("id_membros")
 vEmail=vLog("email_membros")
 vVezes="UPDATE tb_membros SET vezes_membros=vezes_membros+1 WHERE id_membros=1"
LINHA 24 -------> vCon.Execute(vVezes)
 ELSE
 Response.Write "Senha ou Login incorreto!"
 END IF

vLog.MoveNext
Wend

IF Session("logado")=TRUE THEN
vSenha2=StrReverse(vSenha)
Session("senha")=vSenha2
Session("user")=vLogin
Session("email")=vEmail
IF vNivel=1 THEN Session("admin")=TRUE
Response.Redirect "admin/admin_valida.asp?c="& vSenha2 &"&e="& vLogin
IF vNivel=3 THEN Session("membro")=TRUE
Response.Redirect "membro/membro_valida.asp?c="& vSenha2 &"&e"& vLogin
IF vNivel=2 THEN Session("capitao")=TRUE
Response.Redirect "capitao/capitao_valida.asp?c="& vSenha2 &"&e="& vLogin

END IF
END IF

%>

naum sei qual eh o erro! me ajudem por favor.

Edição feita por: vrsbueno, 08/04/2004, 11:18.

[[webmaster]®]

vVezes="UPDATE tb_membros SET vezes_membros=vezes_membros+1 WHERE id_membros=1"

Esse campo se chama id_membros?

Se ele existir, tudo ok!
Mas existe algum id_membro igual a 1?
Talvez não exista brother!

Você pode fazer o tratamento disso pra verificar

set rs_verifica = conexao.Execute("SELECT * FROM tb_membros WHERE id_membros=1")
If rs_verifca.eof then
  Response.Write "membro inexistente"
Else
  conexao.execute("UPDATE tb_membros SET vezes_membros=vezes_membros+1 WHERE id_membros=1")
End If

[vrsbueno]

existe sim!

como arrumar isso?

[[webmaster]®]

Putz, se tudo que disse estar certo como você diz, então tá ok.

mas mude sua sql pra isso

vVezes="UPDATE tb_membros SET vezes_membros=vezes_membros+1 WHERE id_membros="&Int(vId)

[yakko]

este erro q esta aparecendo é permissão de pasta, normalmente isto ocorre com o windows XP (q eu odeio) por isso uso o 2k3 (show de bola), veja se a pasta onde contem o banco de dados tem permissoes para escrita... ow ateh mesmo o banco de dados... dah uma verificada nisso

[vivianalmeida]

como se faz isso tentpo fazer mas não consigo. não fui eu que iniciei mas estou interessada