Access - Hacer un Select desde un RecordSet

 
Vista:
sin imagen de perfil

Hacer un Select desde un RecordSet

Publicado por Rosy (6 intervenciones) el 20/02/2009 16:13:53
Hola, en un modulo de access estoy haciendo una pequeña rutina en VB. Necesito Saber Como puedo hacer un Select desde un RecordSet. Ejemplo:

xsql = "Select * from MiTabla
Where mid(cod,1,2) = '12' or ........"

Set rst1 = dbs.OpenRecordset(xsql)

Ahora necesito hacer un Select desde el recordset rst1

Hago lo siguiente, sin embargo, no resulta

xsql2 = "Select * from rst1"
Set rst2 = dbs.OpenRecordset(xsql2)

El error que me sale dice:
El motor de la base de datos Microsoft Jet no puede encontrar la tablao consulta de entrada 'rst1'
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Enrique Ramírez
Val: 37
Ha aumentado su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

RE:Hacer un Select desde un RecordSet

Publicado por Enrique Ramírez (629 intervenciones) el 26/02/2009 18:58:52
De este modo yo utilizo la combinacion de consultas con RecordSet a ver si es lo que necesitas:

Este ejemplo lee la tabla t_Festivos para validar si la fecha tecleada en la caja de texto txt_FechaFin es dia festivo.
===========================================================

Dim db As DAO.Database, rs As DAO.Recordset
Dim wwFestivo As Boolean
Dim Var As String

wwFestivo = False
Var = ""

Var = "SELECT t_Festivos.id_festivo, t_Festivos.dia_festivo " _
& " FROM t_Festivos " _
& " WHERE t_Festivos.dia_festivo = #" & Format(CDate(Me.txt_FechaFin.Value), "mm/dd/yyyy") & "#" _
& " ORDER BY t_Festivos.id_festivo"

Set db = CurrentDb()
Set rs = db.OpenRecordset(Var, dbOpenDynaset)
If rs.RecordCount > 0 Then
wwFestivo = True
End If
rs.Close
Set db = Nothing

IF wwFestivo = True THEN
hago mi proceso si el dia es festivo
ELSE
hago mi proceso si el dia NO es festivo.
END IF
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar