
Filtrar Recordset Abierto
Publicado por ricaurtem (313 intervenciones) el 18/04/2008 23:47:03
Bueno luego de una reunion, he tenido que dejar la base de datos abierta toda la distancia que esta en ejecucion la operacion.
Y bien me surgio un problema, antes yo hacia filtros y como tenia la base de datos cerrada y la abria para el filtro entonces me lo hacia bien. pero ahora que esta abierta y hago esto
RECOLISTA.Open CADBUSQUEDA, CONEX
Set Me.DGCLIE.DataSource = RECOLISTA
me da error, obviamente porque esta abierta, entonces ahora no se como hago el filtrado
donde cadbusqueda es una sentencia sql que dice "select * from ..... etc" ,
y dgclie es un datagrid.
me ayudan por fa?
(antes tenia esto, y tuve qeu dejar solo desde recolista.open para abajo)
CONEX.ConnectionString = CONECCION
CONEX.Mode = adModeReadWrite
CONEX.Open (CONECCION)
CONEX.CursorLocation = adUseClient
If RECOLISTA.State = adStateOpen Then RECOLISTA.Close
RECOLISTA.ActiveConnection = CONEX
RECOLISTA.CursorType = adOpenStatic
RECOLISTA.LockType = adLockOptimistic
RECOLISTA.Open CADBUSQUEDA, CONEX
Set Me.DGCLIE.DataSource = RECOLISTA
)
Y bien me surgio un problema, antes yo hacia filtros y como tenia la base de datos cerrada y la abria para el filtro entonces me lo hacia bien. pero ahora que esta abierta y hago esto
RECOLISTA.Open CADBUSQUEDA, CONEX
Set Me.DGCLIE.DataSource = RECOLISTA
me da error, obviamente porque esta abierta, entonces ahora no se como hago el filtrado
donde cadbusqueda es una sentencia sql que dice "select * from ..... etc" ,
y dgclie es un datagrid.
me ayudan por fa?
(antes tenia esto, y tuve qeu dejar solo desde recolista.open para abajo)
CONEX.ConnectionString = CONECCION
CONEX.Mode = adModeReadWrite
CONEX.Open (CONECCION)
CONEX.CursorLocation = adUseClient
If RECOLISTA.State = adStateOpen Then RECOLISTA.Close
RECOLISTA.ActiveConnection = CONEX
RECOLISTA.CursorType = adOpenStatic
RECOLISTA.LockType = adLockOptimistic
RECOLISTA.Open CADBUSQUEDA, CONEX
Set Me.DGCLIE.DataSource = RECOLISTA
)
Valora esta pregunta


0