URGENTE: Problema con Recordset

[rebeca22]

El siguiente código da el siguiente error: (Error 13 "no coinciden los tipos")

Dim db as Database
Dim rs as Recordset
Dim sentSQL as String

Set db = DBEngine.Workspaces(0).OpenDatabase("c:\bd.mdb")

sentSQL = "SELECT * FROM " & tabla & _
" WHERE elem LIKE '" & mielem & "'"

Set rs = db.OpenRecordset(sentSQL) '¡¡ aqui da el error !!

' tabla es una vble. de tipo string que contiene el nombre de la tabla
' elem es un campo string de esa tabla
' mielem es un string elegido por el usuario

' El error que da parece indicar que sentSQL no es un parámetro válido. ¿Por qué? ¿Qué puedo hacer para poder leer el recordset?

' Mi proveedor de BD es Microsoft Jet 4.0
' Tengo marcado en referencias: DA0 3.51 Object Library
' No dispongo de DAO 3.6
' Mi BD está creada con Access 97

[aavg]

Hola Rebeca:

Pienso que tu problema es la manera en que estas formado tu sentencia SQL.

Intenta poniendola de esta manera:


sentSQL = "SELECT * FROM '" + tabla + "' " & _
"WHERE elem LIKE '" + mielem + "' "

Todas las variables de tipo string que quieras incluir en una sentencia SQL tienen que ir entre apostrofos ' ' y dentro de los apostrofos comillas " " y signos de mas +


Si no te funcionara mandame un mail y te digo mejor como lo manejes pero con ADODB, porque son mejores y mas rapidos que los DAO.

Tambien vi que comentabas que no contabas con DAO 3.6 y eso lo solucionas facilmente instalando los service packs que puedes bajar gratuitamente desde la pagina de microsoft.

Espero haber sido de alguna ayuda.. Abraham Velasco

[rebeca22]

Gracias por el intento, pero ese no era el problema. Ya lo he solucionado por mi cuenta.

[Zeratul]

Cual era el problema? ya siento curiosidad, y si nos lo dices podremos evitarlo los demas en el futuro.
Saludos