Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Pessoal estou com problemas seríssimos.
Hoje qdo fui abrir um site em localhost apareceu a seguinte mensagem quando tentei acessar uma página onde os registros deveriam ser paginados:
Tipo de erro:
ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
A linha do erro é a seguinte:
rs.AbsolutePage = intPagina
Isso derepente começou acontecer com todas as páginas que fazem paginação de registros, sendo que um dia antes ainda funcionava perfeitamente.
Outra coisa que me assustou foi quando acessei o site no servidor web e ocorreu o mesmo erro, sendo que antes ele funcionava perfeitamente.
Alguém tem ideia do que pode ter ocorrido?
o CursorLocation pode ter 2 valores, adUseServer e adUseClient, ao usar o adUseServer , o recordset utiliza o cursor fornecido pelo provedor de dados, ja usando o adUseClient permite ao recordset usar o cursordo lado cliente, dependendo do tipo utilizado teremos acesso a certas funcionalidades, para por exemplo usar Find,Sortupdate em batch,etc
2 : Modo servidor
3 : Modo cliente (o mais rapido)
Conexao.CursorLocation = 3
depois de um response.write na variavel para ver o k esta sendo passada...
jonathandj, o banco é Access e o recordset está assim:
<%
if intPagina = "" then intPagina = 1
Set rs = Server.Createobject("ADODB.RECORDSET")
Set rs.ActiveConnection = Conexao
QtdRegistro = 15
rs.CursorType = 3
rs.PageSize = QtdRegistro
if id_not = "" then
strSQL = "SELECT id_not, titulo_not, dia_not, mes_not, ano_not, status_not FROM tbl_noticias where status_not = 1 ORDER BY id_not DESC;"
else
strSQL = "SELECT id_not, titulo_not, dia_not, mes_not, ano_not, status_not FROM tbl_noticias where status_not = 1 and id_not <> "& id_not &" ORDER BY id_not DESC;"
end if
rs.Open strSQL, Conexao
if rs.BOF and rs.EOF then
response.write("Não há notícias cadastradas...")
else
if Int(intPagina) > rs.PageCount then intPagina = 1
rs.AbsolutePage = intPagina
x = 0
Do While Not rs.EOF and x < rs.PageSize
x = x + 1
id_not = rs("id_not")
titulo_not = rs("titulo_not")
status_not = rs("status_not")
var_data = rs("dia_not")&"/"&rs("mes_not")&"/"&rs("ano_not")
%>
==================================================================
xanburzum, estou utilizando:
rs.CursorType = 3
O que me assustou é que eu sempre utilizei essa estrutura para os sites que faço e além do mais, estava funcionando um dia antes.
O script q eu ja tinha enviado e testado no servidor um dia antes tbm funcionava e parou de funcionar.
O que pode ter acontecido?
naun será erro no server !?!?!
Pessoal, agradeço a atenção. Retirei uma nova função que adicionei na lib. Ela era a causadora do erro, vejam:
Função que causou erro:
Function numerico(texto)
IF texto = Empty OR texto = Null THEN texto = "0"
Set objRegExp = New RegExp
objRegExp.Pattern = "([^0-9])*"
objRegExp.IgnoreCase = True
objRegExp.Global = True
numerico = objRegExp.Replace(texto, "")
Set objRegExp = Nothing
IF Len(numerico) = 0 OR numerico = "" OR numerico = Null OR numerico = Empty THEN numerico = 0
numerico = Int(numerico)
End Function
Função que n]ao causa erro:
Function numerico(strNumero)
Set regexHex = New RegExp
regexHex.Pattern = "([^0-9])*"
regexHex.IgnoreCase = True
regexHex.Global = True
Matches = regexHex.Replace(strNumero,"")
numerico = Matches
Set regexHex = Nothing
End Function
Se vocês quiserem desvendar o problema beleza, senão podem encerrar o tópico.
Grande abraço mais uma vez pessoal, vocês são show!
Velho qual o erro aparece?
Aqui Patrique!
como está a abertura do recordset? a conexao está com o cursor para 3? qual banco de dados? forçou a variavel intPagina para Cint(intPagina)?