No Local Host Dá Certo!

[Husscoffee]

Bom no local host roda legal mais no ar dá uma zica terrível!

o erro é:

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/novosite/fotos/default.asp, line 132

e o código é:

<%

Sql1 = "SELECT * FROM albuns WHERE id =" & idalbum & "')"

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

rs.Open SQL1, ConStr, 3, 3--->>>linha 132

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE albuns SET cliques = '" & x & "' WHERE id = " & idalbum & " "

Conexao.Execute(Sql) %>

Desde já agradeço!!!

[Victor]

rs.Open sql1, ConStr, 3

Tenta isso

[bareta]

para complementar vou colocar o link para o tópico em que o guto explica sobre algumas coisas do rtecordset...

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

[Husscoffee]

rs.Open sql1, ConStr, 3

Tenta isso

Coloquei como você falou Vitor só q não rolou, assim:

<%

Sql1 = "SELECT * FROM albuns WHERE id =" & idalbum & "')"

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

rs.Open sql1, ConStr, 3 <<---aqui é a linha do erro

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE albuns SET cliques = '" & x & "' WHERE id = " & idalbum & " "

Conexao.Execute(Sql) %>

<% rs.close

Set rs = nothing %>

continuou o mesmo erro...

Só q no meu arquivo conectar asp tá assim ó:

<%

DBQ = "e:\web\site\fotos\galeria.mdb;"

Set Conexao = CreateObject("ADODB.CONNECTION") será q tem alguma coisa aver com essa linha aqui ???

conStr ="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBQ

ConexaoAberta = FALSE

Sub AbreConexao()

if not ConexaoAberta then

Conexao.Open ConStr

ConexaoAberta = True

end if

end sub

Sub FechaConexao()

if ConexaoAberta then

Conexao.close

ConexaoAberta = False

end if

end sub %>

Depois eu tentei assim:

<%

Sql1 = "SELECT * FROM albuns WHERE id =" & idalbum & "')"

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

conexao.Open sql1, ConStr, 3

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE albuns SET cliques = '" & x & "' WHERE id = " & idalbum & " "

Conexao.Execute(Sql) %>

<% conexao.close

Set conexao = nothing %>

e tá dando erro na mesma linha, só q agora é esse aqui:

ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/novopiim/fotos/default.asp, line 132

Por favor necessito de ajuda, obrigado!

[Victor]

Muda o:

Set Conexao = CreateObject("ADODB.CONNECTION")

para:

Set Conexao = Server.CreateObject("ADODB.CONNECTION")

[dark0]

Bom, vamos ver:

<%'conectando com o banco

url_conexao="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\web\site\fotos\galeria.mdb;"

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

conexao.Open url_conexao

'fazendo select na tabela

Sql1 = "SELECT * FROM albuns WHERE id =" & idalbum & "')"

Set rs = Conexao.Execute(Sql1)

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

'fazendo o update na tabela

Sql = "UPDATE albuns SET cliques = '" & x & "' WHERE id = " & idalbum & " "

Conexao.Execute(Sql)

%>

Dá uma olhada nas linhas em azuis..

Tente rodar este codigo, pra ver o que acontece

Ate mais

[Husscoffee]

Puxa vida feras deu certo!!!

olha só como ficou:

<% AbreConexao

Sql1 = "SELECT * FROM albuns WHERE id =" & idalbum & "')"

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

Set rs = Conexao.Execute(Sql1) <<--Essa linha q tava faltando

rs.Open sql1, ConStr, 3

cliquesa = rs("cliques")

cliquesb = "1"

x = cliquesa + cliquesb

Sql = "UPDATE albuns SET cliques = '" & x & "' WHERE id = " & idalbum & " "

Conexao.Execute(Sql) %>

Essa linha q tava faltando...

Mais uma vez muito obrigado!!!