oq é isso?

Giba · Outubro 6, 2003

pessoal gostaria da ajuda de todos para resulver o problema do sequinte codigoo erro esta dando na segundo linha " rs.AbsolutePage = pag", não sei oq esta acontecendoSub MostraCab() rs.AbsolutePage = pag response.write "Foram encontrados " & cstr(rs.recordcount) & " BLs. Mostrando Página " & cstr(pag) & " de " & cstr(rs.PageCount) & " " response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" response.write "<tr bgcolor='#2463A2'>" response.write "<td width='10%' bgcolor='#2463A2'>Manifesto</td>" response.write "<td width='28%' bgcolor='#2463A2'>Número do BL</td>" response.write "<td width='24%'>Porto de Origem</td>" response.write "<td width='13%'>Situação</td>" response.write "<td width='14%'>Tipo</td>" response.write "<td width='11%'>Últ. Alteração </td></tr></table>" end Sub

Giba · Outubro 6, 2003

mas não tem isso na codigo "rs.cursorlocation=aduseclient"

Giba · Outubro 6, 2003

a coneção, esta assim Set Conex= Server.CreateObject("ADODB.Connection") Conex.CursorLocation = 3 Conex.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:\

Giba · Outubro 6, 2003

Na verdade oq acontece é que o codigo esta funcionando tudo certo, mas estou precisando fazer umas alteraçôes. Então oq eu fiz copie o codigo original para uma sub - pasta so pra eu fazer teste, mas ai comeceu da o erro nesta linha "rs.AbsolutePage = pag" ja olhei tudo, e não sei como que faz o contador de pagina, e agora essa porcaria não quer funcionar

Giba · Outubro 6, 2003

tudo bem, so que na verdade não foi feito alteração nem uma ainda, a não ser pra tentar elinimar o erro, eu apenas mudei de pasta e não funcional mais

Giba · Outubro 6, 2003

so esta o codigo.<html> <head><title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head><body bgcolor="#FFFFFF" text="#000000"> <% Sub MostraDados() response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" strlinha = "" for n = 1 to 30 if (n mod 2) <> 0 then cor = "#E1F0FF" else cor = "#FFFFFF" end if strlinha = strlinha & "<tr bgcolor='" & cor & "'>" strlinha = strlinha & "<td width='10'>" strlinha = strlinha & left(rs("ManifestoNumero"),4) & "/" & right(rs("ManifestoNumero"),5) & "</td>" strlinha = strlinha & "<td width='28%'>" strlinha = strlinha & "<a href='" & MontaLinkBL(Rs("MANIFESTONUMERO"),Rs("BLNUMERO1"),Rs("BLSEQUENCIA1")) & "'>" & Rs("BLNumero1") & "</a></td>" strlinha = strlinha & "<td width='24%'>" strlinha = strlinha & NomeLocalidade(Rs("BLOrigemCodLocal"),Rs("BLOrigemCodPais")) & "</td>" strlinha = strlinha & "<td width='13%'>" strlinha = strlinha & NomeSituacao(Rs("BLSituacao")) & "</td>" strlinha = strlinha & "<td width='14%'>" strlinha = strlinha & NomeTipoBL(Rs("BLTipo")) & "</td>" strlinha = strlinha & "<td width='11%'>" strlinha = strlinha & FormataData(Rs("BLDataBaixa")) & "</td></tr>" rs.movenext if rs.eof then exit for end if next response.write strlinha response.write "</table> <hr noshade>" response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" response.write "<tr bgcolor='#FFFFFF'>" response.write "<td width='50%'>" if pag <> 1 then response.write "<a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag - 1) & "'> Anterior</a>" End If if rs.pagecount > 1 then for n = 1 to rs.PageCount if n <> cint(pag) then response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(n) & "'>" & cstr(n) & "</a>" else response.write " " & cstr(n) & " " end if next If pag <> rs.PageCount then response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag + 1) & "'> Proxima</a>" End If end if End Sub Sub MostraCab() rs.AbsolutePage = pag response.write "Foram encontrados " & cstr(rs.recordcount) & " BLs. Mostrando Página " & cstr(pag) & " de " & cstr(rs.PageCount) & " " response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>" response.write "<tr bgcolor='#2463A2'>" response.write "<td width='10%' bgcolor='#2463A2'>Manifesto</td>" response.write "<td width='28%' bgcolor='#2463A2'>Número do BL</td>" response.write "<td width='24%'>Porto de Origem</td>" response.write "<td width='13%'>Situação</td>" response.write "<td width='14%'>Tipo</td>" response.write "<td width='11%'>Últ. Alteração </td></tr></table>" end Sub Sub MostraErro() response.write "Desculpe, não foi encontrado nenhum BL. " end sub%><% Dim strsql, strlinha Dim mf, bl, sq, n Dim pag Dim prx, ant mf = Request("Prmmf") bl = Request("Prmbl") cnt = Request("PrmCnt") pag = Request("Pagina") Set Conex= Server.CreateObject("ADODB.Connection") Conex.CursorLocation = 3 Conex.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:","","" Set Conexger=Server.CreateObject("ADODB.Connection") Conexger.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:","","" Set Rs = Server.CreateObject("ADODB.Recordset") Rs.CacheSize = 30 Rs.PageSize = 30 if (cnt <> "" ) then strsql = "SELECT bl.ManifestoNumero, bl.BLNumero1, bl.BLSequencia1, bl.BLOrigemCodLocal,bl.BLOrigemCodPais,bl.BLSituacao,bl.BLTipo,bl.BLDataBaixa,[Container].ContainerNumero FROM bl INNER JOIN [Container] ON (bl.BLSequencia1 = [Container].BLSequencia1) AND (bl.BLNumero1 = [Container].BLNumero1) AND (bl.ManifestoNumero = [Container].ManifestoNumero) WHERE ((([Container].ContainerNumero)='" & cnt & "')) " if (mf <> "") then strsql = strsql & " AND (bl.ManifestoNumero = '" & mf & "')" end if if (bl <> "") then strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'" end if else strsql = "SELECT ManifestoNumero, BLNumero1, BLSequencia1, BLOrigemCodLocal, BLOrigemCodPais, BLSituacao, BLTipo, BLDataBaixa FROM bl " if (mf <> "") then strsql = strsql & " WHERE (bl.ManifestoNumero = '" & mf & "')" if (bl <> "") then strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'" end if else if (bl <> "") then strsql = strsql & " WHERE bl.BLNumero1 = '" & bl & "'" end if end if end if strsql = strsql & " ORDER BY BL.blnumero1, BL.ManifestoNumero" Rs.Open strsql,conex,3,3 if rs.recordcount > 0 then MostraCab() MostraDados() else MostraErro() end if%> </body></html>

Giba · Outubro 6, 2003

isso da na hora que eu mando pesquisar, agora se eu tirar a linha 68 que é "rs.AbsolutePage = pag" a pagina abre legal so que quando clico no link da segunda pagina, fica na tela a mesma pagian ou seja não atualiza Error Type:ADODB.Recordset (0x800A0BB9)Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another./mattoso/mani/listabls.asp, line 68

Giba · Outubro 6, 2003

essa é a pagina de pesquisa

<html>

<head><title>Untitled Document</title>

</head>

<form name="srchbl" method="GET" action="listabls.asp"> "aqui acha a outra pagina que esta o erro"

<img src="imagens\iconeprocura.gif" width="20" height="20" align="absbottom"> Consulta Simples:

</td>

</tr>

<tr>

NºManifesto: <input type="text" name="PrmMf" size="10" maxlength="9">

NºBL: <input type="text" name="PrmBL" size="27" maxlength="25">

Container: <input type="text" name="Prmcnt" size="13" maxlength="11">

</td>

</tr>

</table>

</td>

</table>

</div>

</form>

</body>

</html>

Giba · Outubro 6, 2003

<html>

<head><title>Untitled Document</title>

</head>

<%

Sub MostraDados()

response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>"

strlinha = ""

for n = 1 to 30

if (n mod 2) <> 0 then

cor = "#E1F0FF"

else

cor = "#FFFFFF"

end if

strlinha = strlinha & "<tr bgcolor='" & cor & "'>"

strlinha = strlinha & "<td width='10'>"

strlinha = strlinha & left(rs("ManifestoNumero"),4) & "/" & right(rs("ManifestoNumero"),5) & "</td>"

strlinha = strlinha & "<td width='28%'>"

strlinha = strlinha & "<a href='" & MontaLinkBL(Rs("MANIFESTONUMERO"),Rs("BLNUMERO1"),Rs("BLSEQUENCIA1")) & "'>" & Rs("BLNumero1") & "</a></td>"

strlinha = strlinha & "<td width='24%'>"

strlinha = strlinha & NomeLocalidade(Rs("BLOrigemCodLocal"),Rs("BLOrigemCodPais")) & "</td>"

strlinha = strlinha & "<td width='13%'>"

strlinha = strlinha & NomeSituacao(Rs("BLSituacao")) & "</td>"

strlinha = strlinha & "<td width='14%'>"

strlinha = strlinha & NomeTipoBL(Rs("BLTipo")) & "</td>"

strlinha = strlinha & "<td width='11%'>"

strlinha = strlinha & FormataData(Rs("BLDataBaixa")) & "</td></tr>"

rs.movenext

if rs.eof then

exit for

end if

response.write "</table> <hr noshade>"

response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>"

response.write "<tr bgcolor='#FFFFFF'>"

response.write "<td width='50%'>"

if pag <> 1 then

response.write "<a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag - 1) & "'> Anterior</a>"

End If

if rs.pagecount > 1 then

for n = 1 to rs.PageCount

if n <> cint(pag) then

response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(n) & "'>" & cstr(n) & "</a>"

else

response.write " " & cstr(n) & " "

end if

response.write " <a href='ListaBls.asp?prmbl=" & bl & "&prmmf=" & mf & "&prmcnt=" & cnt & "&Pagina=" & cstr(pag + 1) & "'> Proxima</a>"

End If

end if

End Sub

Sub MostraCab()

rs.AbsolutePage = pag erro (se eu deichar como comentaria a pagian funciona, mas não atualiza)

response.write "Foram encontrados " & cstr(rs.recordcount) & " BLs. Mostrando Página " & cstr(pag) & " de " & cstr(rs.PageCount) & " "

response.write "<table width='100%' border='0' cellspacing='1' cellpadding='0'>"

response.write "<tr bgcolor='#2463A2'>"

response.write "<td width='10%' bgcolor='#2463A2'>Manifesto</td>"

response.write "<td width='28%' bgcolor='#2463A2'>Número do BL</td>"

response.write "<td width='24%'>Porto de Origem</td>"

response.write "<td width='13%'>Situação</td>"

response.write "<td width='14%'>Tipo</td>"

response.write "<td width='11%'>Últ. Alteração </td></tr></table>"

end Sub

Sub MostraErro()

response.write "Desculpe, não foi encontrado nenhum BL. "

end sub

%>

<%

Dim strsql, strlinha

Dim mf, bl, sq, n

Dim pag

Dim prx, ant

mf = Request("Prmmf")

bl = Request("Prmbl")

cnt = Request("PrmCnt")

pag = Request("Pagina")

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

Conex.CursorLocation = 3

Conex.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=D:\table.mdb","","" conexao

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

Conexger.Open "Provider=Microsoft.Jet.OleDB.4.0;Data Source=Dtable.mdb:\","",""

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

Rs.CacheSize = 30

Rs.PageSize = 30

if (cnt <> "" ) then

strsql = "SELECT bl.ManifestoNumero, bl.BLNumero1, bl.BLSequencia1, bl.BLOrigemCodLocal,bl.BLOrigemCodPais,bl.BLSituacao,bl.BLTipo,bl.BLDataBaixa,[C

ontainer].ContainerNumero FROM bl INNER JOIN [Container] ON (bl.BLSequencia1 = [Container].BLSequencia1) AND (bl.BLNumero1 = [Container].BLNumero1) AND (bl.ManifestoNumero = [Container].ManifestoNumero) WHERE ((([Container].ContainerNumero)='" & cnt & "')) "

if (mf <> "") then

strsql = strsql & " AND (bl.ManifestoNumero = '" & mf & "')"

end if

if (bl <> "") then

strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'"

end if

else

strsql = "SELECT ManifestoNumero, BLNumero1, BLSequencia1, BLOrigemCodLocal, BLOrigemCodPais, BLSituacao, BLTipo, BLDataBaixa FROM bl "

if (mf <> "") then

strsql = strsql & " WHERE (bl.ManifestoNumero = '" & mf & "')"

if (bl <> "") then

strsql = strsql & " AND bl.BLNumero1 = '" & bl & "'"

end if

else

if (bl <> "") then

strsql = strsql & " WHERE bl.BLNumero1 = '" & bl & "'"

end if

strsql = strsql & " ORDER BY BL.blnumero1, BL.ManifestoNumero"

Rs.Open strsql,conex,3,3

if rs.recordcount > 0 then

MostraCab()

MostraDados()

else

MostraErro()

end if

%>

</body>

</html>

Giba · Outubro 7, 2003

Cara você é demais, funcionou legal, so queria mais uma coisa, queria que você me explicase como você consequiu, ja estou um tenpão aqui e não consequi ver nada nesse codigo.muito obrigaedo mesmo

Arquivado

oq é isso?

Recommended Posts

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Giba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante