Hola a todos, estoy desquiciado con este codigo, lo he visto por ahi en libros y en algunas paginas, pero yo no consigo que funcione. El error esta en la variable Tablas, al pasarla del procedimiento a la sentencia SQL. Este es el codigo.
Cita: Sub CuentaRegistros (Tablas)
Dim rutaBD, connBD, rs, cantreg
rutaBD = Server.MapPath("database\bbdd.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" & Tablas rs.Open SQL, connBD, adOpenStatic, adLockReadOnly, adCmdTextiPageCount
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
connBD.close
End Sub
Luego llamo al procedimiento con la tabla que deseo contar los registros.
CuentaRegistros Table_Usuarios
Una ayudita no me vendria mal
Mil gracias