Procedimiento - Variable en SQL

[daniph]

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.

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

[tunguska]

Prueba esto:
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, adCmdText
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
connBD.close
End Sub

[tunguska]

Prueba esto:
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, adCmdText
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
connBD.close
End Sub

[daniph]

Que va!!! me sigue dando error en la clausula FROM. Creo que me doy por vencido, crearé un procedimiento para cada Tabla, la verdad es que es una lata desperdiciar tanto codigo.

Muchas gracias de todas formas

Salu2

[CABEZOTA]

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, 3, 1
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
set rs = Nothing
connBD.close
set connBD = Nothing
End Sub

Prová asi que tiene que funcionar, los problemas que podés tener son:
1º Si el nombre de la tabla tiene espacios en blanco no la va a encontrar si no ponés los [] .
2º Si no incluiste las variables de ADOVBS.inc no podés usar los nombres como adLockReadOnly o los otros. Por eso es mejor usar los números.

Por último no te olvides de liberar la memoria que usas para crear los objetos utilizando el set obj = nothing

Espero que te sirva

Chau ;)

[daniph]

Pues tampoco, que va sigue sin funcionar.

Ahora mismo me estoy tirando de los pelos

Gracias de todas formas

[daniph]

Hay alguien que me pueda echar una mano con esto.

Muchas gracias.

[daniph]

¿Alquien que pueda resolver este viejo problema?

Gracias

[lexus]

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, 3, 3
cantreg = rs.RecordCount
Response.Write cantreg
rs.close
set rs = Nothing
connBD.close
set connBD = Nothing
End Sub

<img src="http://www.lexus.com/images/nav/nav_i_logo.gif" width="109" height="47" alt="Lexus" border="0">

[daniph]

Nop!!!
Con ese codigo me da el siguiente error:

Tipo de error:
Microsoft JET Database Engine (0x80040E37)
El motor de base de datos Microsoft Jet no puede encontrar la tabla o consulta de entrada 'Tablas'. Asegúrese de que existe y que su nombre está escrito correctamente.

Muchas gracias

[daniph]

De todas formas lo que realmente me haria falta es pasar como variable el nombre de la base de datos, ya que la tabla, puedo optar por llamarla siempre igual.