Paginação MySQL

[Carlos Moreira 0]

Galera eu migrei para o banco MySQL.

 

Só que minhas paginações esta dando erro nessa que esta em negrito abaixo.

 

<%

pagina= "administradorlist.asp" 'Nome da página

Const NumPorPage = 10

Dim pag

IF Request.QueryString("pag") = "" Then

pag = 1 'Primeira página

Else

pag = Request.QueryString("pag")

End If

RS.CacheSize = NumPorPage 'Define o tamanho do Cache = para o número de registros

RS.MoveFirst 'Move o RecorSet para o início

RS.PageSize = NumPorPage 'Coloca a quantidade de páginas

Dim TotalPages 'Pega o número total de páginas

TotalPages = RS.PageCount

RS.AbsolutePage = pag 'Configura a página atual

'Páginação fim

 

Count = 0 'Zera o contador

i = 0

%>

 

olha o erro

ADODB.Recordset (0x800A0CB3)

O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado.

 

O que pode ser galera?

[Mário Monteiro 179]

Dependendo da versao do MySql ele nao suporta as propriedades do Objeto Recordset

 

Mas voce pode testar mudando o tipo de cursor selecionado e ver se funciona

[jrcardozo 4]

coloque o cursor location do recordset e da conexao para 3

[Carlos Moreira 0]

Como faço isso?

 

meu COD esta assim:

 

<%

Call abre_conexao1(ConnString,Conn)

 

pag = Request.QueryString("pag") 'página atual

 

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

msql = "SELECT * FROM administradores order by nome"

Set RS.activeconnection = Conn 'Verifica se tem registro, se nao tiver exibe que não tem

RS.Open msql, Conn,3,3

%>

[Carlos Moreira 0]

Coloquei assim GALERA

 

<%

Call abre_conexao1(ConnString,Conn)

 

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

msql = "SELECT * FROM administradores order by nome"

'Set RS.activeconnection = Conn 'Verifica se tem registro, se nao tiver exibe que não tem

RS.Open msql, Conn,3,3

%>

 

mas esta dando esse erro agora:

 

O objeto não dá suporte para argumentos nomeados: 'RS.CacheSize'