05/05/2002, 11:32
|
| | | Fecha de Ingreso: agosto-2001 Ubicación: Gran Canaria (España)
Mensajes: 430
Antigüedad: 23 años, 9 meses Puntos: 0 | |
| Re: Contar registros...
Esto hace lo que quieres:
Sub CuentaRegistros
Dim rutaBD, connBD, rs, cantreg
rutaBD = Server.MapPath("db\TUBASEDADATOS.mdb")
set connBD = Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset" )
connBD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutaBD & ";"
SQL = "SELECT * FROM TUTABLA"
rs.Open SQL, connBD, adOpenStatic, adLockReadOnly, adCmdTextiPageCount
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
End Sub
Un saludo
|