Banco Mysql

[Reinaldo 0]

Alguem tem a solução de paginação para banco de Dados Mysql?

[hargon 64]

Reinaldo, faça uma pesquisa aqui no Fórum de ASP.

 

Tópicos sobre paginação com MySQL é o que mais tem (principalmente no Laboratório de Scripts), e são boas soluções.

 

Qualquer dúvida poste aqui.

 

 

 

Tópico movido

 

Origem: Laboratório de scripts (ASP) http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

[xanburzum 169]

olha um bom, exemplo

link

[Reinaldo 0]

olha um bom, exemplo

link

 

O que tá pegando é o seguinte, meu post foi referente a esse codigo de envio de newsletter:

Response.Buffer = FALSE
Server.ScriptTimeout = 99999

vc_assunto = (trim(Request("assunto")))
tx_editor = (trim(Request("conteudo")))

pagina = int(request("pagina"))
contador = int(request("contador"))

if pagina = 1 then

contador = 0%>

<script>
parent.formulario.document.getElementById("td_status").innerHTML = '<input type="text" name="it_enviados" value="0" size="5"> emails enviados de <input type="text" name="it_total" value="0" size="5">'
</script><%

end if

sql = " SELECT "
sql = sql & " email " 
sql = sql & " FROM " 
sql = sql & " tab_cadastro "
sql = sql & " WHERE id > 0 "

SET RS = server.CreateObject("ADODB.Recordset") 
RS.Open sql, conexao, 3

it_total = RS.RecordCount 
RS.PageSize = 100 ' Aki é definido o tamanho do pacote que será enviado
RS.absolutepage = pagina

if pagina = 1 then%>
<script>
parent.formulario.document.getElementById("it_total").value = <%=it_total%>;
</script>
<%
end if

i = 0
do while NOT RS.EOF AND i < RS.PageSize

set objCDOSYSMail = Server.CreateObject ("CDO.Message")
set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
Set objCDOSYSMail.Configuration = objCDOSYSCon

With objCDOSYSCon
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "servidor"
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 50000 
.Fields.update
End With

With objCDOSYSMail
.From = "ortobahia@ortobahia.com.br"
.To = rs("email")
.Subject = vc_assunto
.HtmlBody = tx_editor
.Send
End With

set objCDOSYSMail = nothing
set objCDOSYSCon = nothing

O mayl não aceita o RS.absolutepage = pagina

como mudar isso?

[xanburzum 169]

ele esta gerando algum erro ???

[Reinaldo 0]

ele esta gerando algum erro ???

 

Sim o erro é nessa linha: RS.absolutepage = pagina

[xanburzum 169]

número de erro , qual apresentado ?

você pode forçar o ADO para construir um cursor estático, especificando um cursor do lado do cliente!

coloque o rs.cursorlocation = 3

 

 

exemplo:

 

Dim connString, rs, conn
connString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="& DB_SERVER &"; DATABASE="& DB_NAME &"; OPTION=4; UID="& DB_USER &"; PASSWORD="& DB_PASS &";"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
conn.Open(connString)

e no loop

 

 

If Not rs.EOF Then
    rs.MoveFirst
    rs.PageSize = NumPerPage
    TotalPages = rs.PageCount

    rs.AbsolutePage = CurrentPage
End If

[Reinaldo 0]

número de erro , qual apresentado ?

você pode forçar o ADO para construir um cursor estático, especificando um cursor do lado do cliente!

coloque o rs.cursorlocation = 3

 

 

exemplo:

 

Dim connString, rs, conn
connString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="& DB_SERVER &"; DATABASE="& DB_NAME &"; OPTION=4; UID="& DB_USER &"; PASSWORD="& DB_PASS &";"
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.cursorlocation = 3
conn.Open(connString)

e no loop

 

 

If Not rs.EOF Then
    rs.MoveFirst
    rs.PageSize = NumPerPage
    TotalPages = rs.PageCount

    rs.AbsolutePage = CurrentPage
End If

 

Ainda não testei o post anterior mais o erro gerado é esse aqui:

 

ADODB.Recordseterror '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another. /gerenciamento/ADM_enviar_newsletter.asp, line 48

[xanburzum 169]

faz as alterações do post #7 e poste o resultado

[Reinaldo 0]

faz as alterações do post #7 e poste o resultado

 

Meu amigo esse loop onde eu coloco ele? não entendi essa parte.

[xanburzum 169]

coloca ele abaixo da sua conexão...

[Reinaldo 0]

Agora está dando esse erro:

 

 

 

ADODB.Recordseterror '800a0e78'

 

Operation is not allowed when the object is closed. /gerenciamento/ADM_enviar_newsletter.asp, line 19

 

If Not rs.EOF Then --> linha referida.

[xanburzum 169]

Em versões mais antigas do MDAC, o erro pode ser ligeiramente diferente:

Esse erro pode ser causado quando você tenta acessar os valores de um conjunto de registros vazio ou um conjunto de registros que já tenha sido fechado. A causa mais comum, no entanto, parece resultar de chamar um procedimento armazenado que não usa NOCOUNT SET ON.

[Reinaldo 0]

Certo e como resolvo isso?

[xanburzum 169]

baixe o MDAC mais recente

[Reinaldo 0]

baixe o MDAC mais recente

 

Entendi só que esse erro está acontecendo no servidor.