Ola gente por gentileza me ajudem !! estou fazendo uma busca no banco de algumas informações e depois fazendo a paginação mais algo da errado e aparece o seguinte erro:
Tipo de erro:
ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/SCC/teste.asp, line 38
Se alguém puder ajudar agradeço !!
<%
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0
Response.Buffer = True
<!-- #Include file="ADOVBS.INC" -->
%>
<%
Const IntPageSize = 10
Dim IntCurrentPage
Dim intTotalPages, intI
If Request.ServerVariables("CONTENT_LENGTH") = 0 THEN
IntCurrentPage= CInt(Request.Form("CurrentPage"))
Select Case Request.Form("Submit")
Case "Previous"
IntCurrentPage= intCurrentpage -1
Case "Next"
intCurrentPage=intCurrentPage +1
End Select
End If
Dim con
Dim rs
Dim strCon
Set con = Server.CreateObject("ADODB.Connection")
strCon ="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SCC; Pwd=beta; Data Source=BETA"
con.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Cursorlocation = adUseClient
rs.CursorType = adOpenStatic
rs.CacheSize = IntPageSize
If selec_opc = "id_empresa" and IsNumeric(busca) then
'SQL= "Select * From SCC_EMPRESA Where ID_EMPRESA = '" & busca & "' Order by ID_EMPRESA"
'Else
SQL= "Select ID_EMPRESA, NOME_FANTASIA, CEP From SCC_EMPRESA Where NOME_FANTASIA LIKE '%a%' Order by Nome_Fantasia"
Pergunta
Guest --Renato --
Ola gente por gentileza me ajudem !! estou fazendo uma busca no banco de algumas informações e depois fazendo a paginação mais algo da errado e aparece o seguinte erro:
Tipo de erro:
ADODB.Recordset (0x800A0BB9)
Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.
/SCC/teste.asp, line 38
Se alguém puder ajudar agradeço !!
<%
Response.CacheControl="no-cache"
Response.AddHeader "Pragma","no-cache"
Response.Expires = 0
Response.Buffer = True
<!-- #Include file="ADOVBS.INC" -->
%>
<%
Const IntPageSize = 10
Dim IntCurrentPage
Dim intTotalPages, intI
If Request.ServerVariables("CONTENT_LENGTH") = 0 THEN
IntCurrentPage= CInt(Request.Form("CurrentPage"))
Select Case Request.Form("Submit")
Case "Previous"
IntCurrentPage= intCurrentpage -1
Case "Next"
intCurrentPage=intCurrentPage +1
End Select
End If
Dim con
Dim rs
Dim strCon
Set con = Server.CreateObject("ADODB.Connection")
strCon ="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=SCC; Pwd=beta; Data Source=BETA"
con.Open strCon
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Cursorlocation = adUseClient
rs.CursorType = adOpenStatic
rs.CacheSize = IntPageSize
If selec_opc = "id_empresa" and IsNumeric(busca) then
'SQL= "Select * From SCC_EMPRESA Where ID_EMPRESA = '" & busca & "' Order by ID_EMPRESA"
'Else
SQL= "Select ID_EMPRESA, NOME_FANTASIA, CEP From SCC_EMPRESA Where NOME_FANTASIA LIKE '%a%' Order by Nome_Fantasia"
End IF
rs.Open SQL, Con, , , adCmdText
rs.PageSize = IntPageSize
If Not(rs.eof) then
rs.absolutePage = intCurrentPage
intTotalPages = rs.PageCount
%>
<%
For IntI = 1 To rs.PageSize
%>
<%=rs("id_empresa")%>
<%=rs("nome_fantasia")%>
<%=rs("cep")%>
<%
rs.moveNext
If rs.eof then exit for
Next
%>
<%
re.close
con.close
Set rs = Nothing
Set con=nothing
%>
<input type="hidden" name="submit" value="<%="intCurrentPage"%>">
<br />
Pagina <%=intCurrentpage%> de <%=intTotalpage%>
<% If intCurrentPage > 1 Then %>
<input type="Submit" name="submit" value="Previous">
<% End If
If intCurrentPage <> intTotalpage Then %>
<input type="Submit" name="submit" value="Next">
<%
End IF
End IF
%>
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.