Registros em BD

[REDS 0]

Olá amigos;

 

Estou com uma dúvida, se poderem me ajudar, agradeceria muito!

 

Seguinte, tenho um sistema de notícias via banco Access, gostaria de fazer um recordset que puxasse as informações das dois primeiros registros da tabela e um outro recordset puxando os registros apartir do 3º registro.

 

Isto se deve, pois quero fazer no home do site, que apareça duas fotos grandes como chamada principal da notícia nos dois primeiros registros do banco, e que apareça abaixo, 4 notícias anteriores apartir do 3º registro do banco.

 

Queria saber somente como chama esses registros pela ordem acima!

 

Se poderem me ajudar, eu agradeceria muito!

 

Abração a todos!

[hargon 64]

Faça a leitura de 3 registros e depois "navegue" entre eles utilizando MoveNext.

 

Qualquer dúvida poste aqui.

[REDS 0]

Faça a leitura de 3 registros e depois "navegue" entre eles utilizando MoveNext.

 

Qualquer dúvida poste aqui.

 

Então... eu criei dois recordsets um sem o repeat region e outro com... mas não consigo puxar o 2ª recordset apartir da 2ª linha de registro do banco de dados!!

 

Código do 1º recordset:

<%
Dim Noticias__MMColParam
Noticias__MMColParam = "1"
If (Request.QueryString("Codigo") <> "") Then 
  Noticias__MMColParam = Request.QueryString("Codigo")
End If
%>
<%
Dim Noticias
Dim Noticias_cmd
Dim Noticias_numRows

Set Noticias_cmd = Server.CreateObject ("ADODB.Command")
Noticias_cmd.ActiveConnection = MM_rextreme_STRING
Noticias_cmd.CommandText = "SELECT * FROM Noticias WHERE Codigo  ORDER BY Codigo DESC" 
Noticias_cmd.Prepared = true
Noticias_cmd.Parameters.Append Noticias_cmd.CreateParameter("param1", 5, 1, -1, Noticias__MMColParam) ' adDouble

Set Noticias = Noticias_cmd.Execute
Noticias_numRows = 0
%>

Código do 2º recordset

<%
Dim Noticias2__MMColParam
Noticias2__MMColParam = "1"
If (Request.QueryString("Codigo") <> "") Then 
  Noticias2__MMColParam = Request.QueryString("Codigo")
End If
%>
<%
Dim Noticias2
Dim Noticias2_cmd
Dim Noticias2_numRows

Set Noticias2_cmd = Server.CreateObject ("ADODB.Command")
Noticias2_cmd.ActiveConnection = MM_rextreme_STRING
Noticias2_cmd.CommandText = "SELECT * FROM Noticias WHERE Codigo ORDER BY Codigo DESC" 
Noticias2_cmd.Prepared = true
Noticias2_cmd.Parameters.Append Noticias2_cmd.CreateParameter("param1", 5, 1, -1, Noticias2__MMColParam) ' adDouble

Set Noticias2 = Noticias2_cmd.Execute
Noticias2_numRows = 0
%>

Para se ter uma ideia... olhe o endereço: Site

 

Na parte de notícias, lá em baixo!

 

Muito obrigado!!!!!!!!!

[xanburzum 169]

você também pode usar a cláusula TOP para especificar o número de registros para retornar e depois navegar normalmente nos registros.