una pequeña duda.

yampoo · #1 (**permalink**) 26/06/2002, 14:11

Tengo el codigo siguien te de paginacion es de WebExperto, pero tengo una duda, donde se pone el nombre de la base de datos?

<%
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I

mostrar = 10

If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If

strsql = "SELECT * FROM tabla"

Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open StrConn

Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount

If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1

If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else

RS.AbsolutePage = pagina_actual

%>
Page <%= pagina_actual %> of <%= cant_paginas %>
<%

Response.Write " " & vbCrLf

Response.Write "<TABLE BORDER=""1"">" & vbCrLf

Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(I).Name
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
Response.Write vbTab & "<TR>" & vbCrLf
For I = 0 To RS.Fields.Count - 1
Response.Write vbTab & vbTab & "<TD>"
Response.Write RS.Fields(I)
Response.Write "</TD>" & vbCrLf
Next 'I
Response.Write vbTab & "</TR>" & vbCrLf

registro_mostrado = registro_mostrado + 1

RS.MoveNext
Loop

Response.Write "</TABLE>" & vbCrLf
End If

RS.Close
Set RS = Nothing
oConn.Close
Set oConn = Nothing

If pagina_actual > 1 Then
%>
<a href="./paginar.asp?eje=30&page=<%= pagina_actual - 1 %>">[<< Anterior]</a>
<%
End If

For I = 1 To cant_paginas
If I = pagina_actual Then
%>
<%= I %>
<%
Else
...

<img border="0" src="http://www.dacoy.com/images/dacoypro.jpg" width="198" height="57">

bakanzipp · #2 (**permalink**) 26/06/2002, 14:13

supuestamente deberia estar referenciado a esta variable

StrConn

no esta...que conexion quieres crear...via path, obcd?

yampoo · #3 (**permalink**) 26/06/2002, 14:15

es con una base acces... odcb si no me equivoco...

<img border="0" src="http://www.dacoy.com/images/dacoypro.jpg" width="198" height="57">

bakanzipp · #4 (**permalink**) 26/06/2002, 14:42

aqui va un ejemplo generico

OBDC
<%
Set con = Server.CreateObject("ADODB.Connection"
' creamos el objeto de conexión
con.Open "NombreConexion"
' abrimos la conexión por ODBC al DSN NombreConexion
conn.close
' cierra la conexión
%>

el nombre es el del dsn que creaste

yampoo · #5 (**permalink**) 26/06/2002, 14:47

yo no las abro por dns...

el codigo k uso siempre es este: pero no se si se pone entero ahi

<%sqltxt="Select top 7 * from tabla order by id DESC"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nombre.mdb"))
set rs=createobject("ADODB.Recordset")
set rsr=createobject("ADODB.Recordset")
rs.open sqltxt,conn%>

RootK · #6 (**permalink**) 26/06/2002, 14:54

Puedes hacer lo siguiente:

Código:

Dim mostrar 
Dim cant_paginas 
Dim pagina_actual 
Dim registro_mostrado 
Dim I 

mostrar = 10 

If Request.QueryString(&quot;page&quot;) = &quot;&quot; Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString(&quot;page&quot;))
End If

openstr = &quot;driver={Microsoft Access Driver (*.mdb)};dbq=&quot; &amp; Server.MapPath(&quot;MiBase.mdb&quot;)
strsql = &quot;SELECT * FROM tabla&quot;

Set oConn = Server.CreateObject &quot;ADODB.Connection&quot;)
'abro la base de datos con la cadena openstr
oConn.Open openstr

Set RS = Server.CreateObject(&quot;ADODB.Recordset&quot;)

'abro la cadena de cosulta strsql
rs.open strsql, oConn

RS.PageSize = mostrar
RS.CacheSize = mostrar

RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount
..
..
..

donde strsql es la consulta que se mostrará y openstr para indicar que abra la base de datos.

Saludos y suerte..!!

yampoo · #7 (**permalink**) 26/06/2002, 14:59

me queda una duda, donde va lo que muestran las cosas, <%=rs("campo")%> eso donde los coloco?

<img border="0" src="http://www.dacoy.com/images/dacoypro.jpg" width="198" height="57">

yampoo · #8 (**permalink**) 26/06/2002, 18:08

nadie me puede ayudar en esa ultima duda?

<img border="0" src="http://www.dacoy.com/images/dacoypro.jpg" width="198" height="57">

RootK · #9 (**permalink**) 26/06/2002, 23:22

Dond dice:
RS.Fields("campo").value
es lo mismo que:
rs("nombre")

ASí que en tu code haces lo mismo
algo así:

while not rs.eof and CuantosRegistros < TamPagina
response.write rs("campo") & " "
rs.movenext
wend

Suerte..!