Contar registros de tabla e imprimirlos en pantalla

[CHuLoSoY]

Hola amigos, cómo hago para contar los registros de una tabla y luego poner en la página "hay x registros"?

Gracias.

PD: la bd es access

[AlZuwaga]

Cantidad = TuRecordset.RecordCount

Si te devuelve -1, entrá a www.aspfacil.com y buscá "recordcount" que se da la explicación del por qué (o mejor, buscá en el foro que ya se explicó )

[CHuLoSoY]

no indica qué significa el -1 y a mi me pone -1 registros. ¿Qué debo hacer?:

sql = "SELECT * FROM ofertas where categoria='"&request.querystring("categoria")&"' ORDER BY fecha DESC"
Set result = con.Execute(sql)

resultados=result.RecordCount
response.write resultados

[urjose]

Para empezar no debes utilizar esto : Set result = con.Execute(sql)

debes utilizar el Recordset Como tal

Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open SQL, Conexion, 3,3

Response.Write Rs.RecordCOunt

Saludos

[CHuLoSoY]

ups...

Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")&";"
sql = "SELECT * FROM ofertas"
Rs.Open sql, Con, 3,3
Response.Write Rs.RecordCount


Error:


Microsoft VBScript runtime error '800a01a8'

Object required: ''

/compraventa/index.asp, line 64

[g_susdaniel]

Edita ese mensaje y colocanos la SQL a ver.... ;) o sea un trozo mas completo

[maestro]

El error que comenta dazuaga esta aqui:

http://aspfacil.com/vertruco.asp?id=3

[urjose]

Chulosoy te falta crear el objeto Recordset, fijate bien en lo que te puse en el mensaje anterior.

Saludos

Mensaje Original por CHuLoSoY
ups...

Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")&";"
sql = "SELECT * FROM ofertas"
Rs.Open sql, Con, 3,3
Response.Write Rs.RecordCount


Error:


Microsoft VBScript runtime error '800a01a8'

Object required: ''

/compraventa/index.asp, line 64

[CHuLoSoY]

Ahora un error diferente.


Set Rs = Server.CreateObject("ADODB.Connection")
Rs.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")&";"
sql = "SELECT * FROM ofertas"
Rs.Open sql, Conexion, 3,3
Response.Write Rs.RecordCount




Error:



ADODB.Connection error '800a0e79'

Operation is not allowed when the object is open.

/compraventa/index.asp, line 65

[maestro]

Que tienes en la linea 65 :Rs.Open sql, Conexion, 3,3 ?
Seguro que el error no te lo produce otro trozo de codigo?

[CHuLoSoY]

Rs.Open sql, Conexion, 3,3 es la línea 65

[urjose]

CHULOSOY FIJATE BIEN EN LO QUE TE PUSE

[CHuLoSoY]

pues no caigo urjose, en dónde está el error?

[urjose]

bueno lo intente:

Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
Conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")&";"
sql = "SELECT * FROM ofertas"
Rs.Open sql, Conexion, 3,3
Response.Write Rs.RecordCount

Saludos

[u_goldman]

Tienes creada una conexion que se llama con

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

Pero no tienes ningun objeto recordset

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

[CHuLoSoY]

um.. otro error en el código que me has dado.


ADODB.Recordset error '800a0e7d'

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

/compraventa/index.asp, line 64


Código (el que me has facilitado):

Set Conexion = Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
Rs.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("base.mdb")&";"
sql = "SELECT * FROM ofertas"
Rs.Open sql, Conexion, 3,3
Response.Write Rs.RecordCount

[urjose]

jeje
edite el mensaje despues de postearlo y al parecer cogiste el erroneo

revisalo de nuevo
(ops, ahora tuve que editar este)
Saludos

[CHuLoSoY]

ha funcionado! gracias urjose