Problema

designmix · Janeiro 7, 2005

galera estou com esse erro

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)[MySQL][ODBC 3.51 Driver][mysqld-3.23.49-nt]You have an error in your SQL syntax near '(*) AS NRecords FROM cadastro_id ' at line 1/dpi/cadastro/agenda.asp, line 11

estou tentando fazer paginação

ASP [/tr][tr]

<%

call abre_conexao

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

rsMAX.Open "SELECT COUNT(*) AS NRecords FROM cadastro", conn

NRecords = rsMAx("NRecords")

rsMAX.Close

Set rsMAX = Nothing

If Request.QueryString("pagina") <> "" then

pagina = Request.QueryString("pagina")

End If

If pagina = "" then

pagina = 1

End If

If pagina < 1 Then

Response.Write"<html><h1>Erro 69</h1></html>"

Response.End

End If

NumReg = 5 * (pagina - 1)

strSQL = "SELECT * FROM cadastro ORDER BY nome_id"

Set rsProdutos = conn.Execute (strSQL)

resto = NRecords mod 5

IF resto > 0 then

paginas = int(NRecords / 5) + 1

Else

pagina = NRecords / 5

End If

pagina = pagina + 1

%>

<html>

<head>

<title>Acessorios</title>

</head>

<tr>

</tr>

</table>

<tr>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" ><b>Página<font color="#0066FF">

<%= int (pagina) -1%></font> de <font color="#006699"> <%= paginas%></font></b></font></p>

<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Total de produtos na loja <font color="#CC0000">

<%= NRecords%></font></font></b></p>

<tr>

<td width="40%" bgcolor="#471555"><font size="2"

face="Arial" color="#FFFFFF">PRODUTOS</font></td>

<p align="center"><font size="2" face="Arial"

color="#FFFFFF"> R$ UNITARIOS</font><big>

</big>

</td>

</tr>

<%

If NumReg > 0 Then

For LinkTemp = 1 to NumReg

if rsProdutos.EOF = Flase then rsProdutos.MoveNext

regAtual = 1

While Not rsProdutos.EOF AND regAtual <= 5

%>

<tr>

</div>

</td>

<%= rsProdutos("tel_id")%>

</font></td>

</tr>

<%

rsProdutos.MoveNext

MunReg = NumReg + 1

regAtual = regAtual + 1

Wend

%>

</table>

<tr>

<%

For Linktemp = 1 to paginas

%>

</td>

<%next%>

</tr>

</table></td>

</tr>

</table>

<%

rsProdutos.Close

set rsProdutos = Nothing

fecha_conexao

%>

<p>

</td>

</body>

</html>

[/tr]

:blink: :wacko:

grato pela ajuda http://forum.imasters.com.br/public/style_emoticons/default/clap.gif

rOcKLoCo · Janeiro 7, 2005

ao inves de cadastro(*) num seria Count(*) ???falows

designmix · Janeiro 7, 2005

nao.. da tambempois o estou chamando a tabela cadastro hehehe

Mário Monteiro · Janeiro 7, 2005

cara ta errado isso mesmo tente assim"SELECT COUNT(*) AS NRecords FROM cadastro"

designmix · Janeiro 7, 2005

hahhahahha agora deu erro na linha 9que éSet rsMAX = Server.CreateObject("ADODB.Recordset")

DackAle · Janeiro 7, 2005

Pela sintaxe que se esta usando e pelo que vi, você esta tentando pegar o total de registros e para isso você tem que usar o COUNT mesmo....

designmix · Janeiro 7, 2005

galera.. ja arrumei o erro que falei de cima .. mais agora .. olha isso

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80020009)Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado./dpi/cadastro/agenda.asp

:wacko: :blink: Estou tentando ser se arrumo mais quem poder me ajudar agradeço grato t+ http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Mário Monteiro · Janeiro 7, 2005

acho que isto ta erradoresto = NRecords mod 5IF resto > 0 then paginas = int(NRecords / 5) + 1Elsepagina = NRecords / 5End Ifpagina = pagina + 1acho que no else seria paginas....bem mas se isto for uma paginação em MYSQL como você disse no outro topico, eh melhor usar LIMIT como tambem foi dito lá...

designmix · Janeiro 7, 2005

galera olha so que f***... esse aqui funciona

que vou o script que peguei da minha apostila .. da impacta é o mesmo

ASP [/tr][tr]

<%

Dim Conexao, rsprodutos, strSQL, rsMAX, LinkTemp, regAtual

Dim NRecords, pagina, paginas, NumReg, resto, id

abre_conexao

'conta aqtos produtos tem na tabela de produtos

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

rsMAX.Open "SELECT Count(*) AS NRecords FROM Produtos", Conexao

NRecords = rsMAx("NRecords")

rsMAX.Close

Set rsMAX = Nothing

If Request.QueryString("pagina") <> "" then

pagina = Request.QueryString("pagina")

End If

If pagina = "" then

pagina = 1

End If

If pagina < 1 Then

Response.Write"<html><h1>Erro 69</h1></html>"

Response.End

End If

'Determina avariavel NumReg, atribuindo a ela o valor total de

'registo por pagina multiplicado pela qtde de pagina

NumReg = 5 * (pagina - 1)

strSQL = "SELECT * FROM Produtos ORDER BY id"

Set rsProdutos = Conexao.Execute (strSQL)

'Dividee o total de pagina por, 20 que é a qtde de registro por pagina

resto = NRecords mod 5

IF resto > 0 then

paginas = int(NRecords / 5) + 1

Else

pagina = NRecords / 5

End If

pagina = pagina + 1

%>

<html>

<head>

<title>Acessorios</title>

</head>

<tr>

</tr>

</table>

<tr>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" ><b>Página<font color="#0066FF">

<%= int (pagina) -1%></font> de <font color="#006699"> <%= paginas%></font></b></font></p>

<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Total de produtos na loja <font color="#CC0000">

<%= NRecords%></font></font></b></p>

<tr>

<td width="40%" bgcolor="#471555"><font size="2"

face="Arial" color="#FFFFFF">PRODUTOS</font></td>

<p align="center"><font size="2" face="Arial"

color="#FFFFFF"> R$ UNITARIOS</font><big>

</big>

</td>

</tr>

<%

'Este if só será executado a partir da segunda página

If NumReg > 0 Then

For LinkTemp = 1 to NumReg

if rsProdutos.EOF = Flase then rsProdutos.MoveNext

regAtual = 1

'Define aqtde de vezes que o loop irá executar

While Not rsProdutos.EOF AND regAtual <= 5

'move para o proximo registro se ainda houver

%>

<tr>

</div>

</td>

<%= FormatNumber (rsProdutos("VRL_Unitario"),2)%>

</font></td>

</tr>

<%

rsProdutos.MoveNext

MunReg = NumReg + 1

regAtual = regAtual + 1

Wend

%>

</table>

<tr>

<%

'monta um link para as paginas de acordo o total ded paginas que houver

For Linktemp = 1 to paginas

%>

</td>

<%next%>

</tr>

</table></td>

</tr>

</table>

<%

rsProdutos.Close

set rsProdutos = Nothing

fecha_conexao

%>

<p>

</td>

</body>

</html>

[/tr]

o que esta dando pau eu do mudei apenas o db e os nome dos campo ai fica dando pau

designmix · Janeiro 7, 2005

ninguem sabe o que com o script pq eu nao consigo arrumar

rOcKLoCo · Janeiro 7, 2005

Dá uma olhada nessa linha... tem alguma coisa diferente nela...

MunReg = NumReg + 1

regAtual = regAtual + 1

designmix · Janeiro 7, 2005

esta dando esse erro

Microsoft OLE DB Provider for ODBC Drivers (0x80020009)Operação OLE DB de várias etapas gerou erros. Verifique cada valor de status OLE DB. Nada foi executado./dpi/cadastro/paginacao.asp

o script esta assim

ASP [/tr][tr]

<%

call abre_conexao

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

rsMAX.Open "SELECT COUNT(*) AS NRecords FROM cadastro", conn

NRecords = rsMAx("NRecords")

rsMAX.Close

Set rsMAX = Nothing

If Request.QueryString("pagina") <> "" then

pagina = Request.QueryString("pagina")

End If

If pagina = "" then

pagina = 1

End If

If pagina < 1 Then

Response.Write"<html><h1>Erro 69</h1></html>"

Response.End

End If

NumReg = 5 * (pagina - 1)

strSQL = "SELECT * FROM cadastro ORDER BY nome_id"

Set rsProdutos = conn.Execute (strSQL)

resto = NRecords mod 5

IF resto > 0 then

paginas = int(NRecords / 5) + 1

Else

pagina = NRecords / 5

End If

pagina = pagina + 1

%>

<html>

<head>

<title>Acessorios</title>

</head>

<tr>

</tr>

</table>

<tr>

<p align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" ><b>Página<font color="#0066FF">

<%= int (pagina) -1%></font> de <font color="#006699"> <%= paginas%></font></b></font></p>

<p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Total de produtos na loja <font color="#CC0000">

<%= NRecords%></font></font></b></p>

<tr>

<td width="40%" bgcolor="#471555"><font size="2"

face="Arial" color="#FFFFFF">PRODUTOS</font></td>

<p align="center"><font size="2" face="Arial"

color="#FFFFFF"> R$ UNITARIOS</font><big>

</big>

</td>

</tr>

<%

If NumReg > 0 Then

For LinkTemp = 1 to NumReg

if rsProdutos.EOF = Flase then rsProdutos.MoveNext

regAtual = 1

While Not rsProdutos.EOF AND regAtual <= 5

%>

<tr>

</div>

</td>

<%= rsProdutos("tel_id")%>

</font></td>

</tr>

<%

rsProdutos.MoveNext

MunReg = NumReg + 1

regAtual = regAtual + 1

Wend

%>

</table>

<tr>

<%

For Linktemp = 1 to paginas

%>

</td>

<%next%>

</tr>

</table></td>

</tr>

</table>

<%

rsProdutos.Close

set rsProdutos = Nothing

fecha_conexao

%>

<p>

</td>

</body>

</html>

[/tr]

FabricioGomes · Janeiro 7, 2005

vai colocando response.End no meio do codigo para ver onde da o erro, ja que nao mostra a linha....

Arquivado

Problema

Recommended Posts

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rOcKLoCo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

DackAle 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

rOcKLoCo 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

designmix 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

FabricioGomes 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Estou criando uma calculadora de m2 e litros de tinta

Cruzamento de Bases

Consulta sem duplicação

Fóruns

Tempo Real

Informação importante