Data Environment

bengaba81
12 de Mayo del 2004
El siguiente codigo es un procedimiento que deberia crear un campo NombreImagen, pero me da un error de que no se puede realizar esa operacion o que el objeto debe estar cerrado

Public Sub NomImagen()
Dim varano
Dim rsaux1 As ADODB.Recordset
varano = Mid(Date, 9, 2)
Set rsaux1 = de1.rsimagenes
'esto hay que hacerlo directamente comprobando si la base
'de datos esta llena o vacia, porque de manera inicial,
'el recordset estara open
'If IsEmpty(rsaux1.Fields(0)) Then
'MsgBox ("VAcio")
'Else
'MsgBox ("DATOS")
'End If
If rsaux1.State = adStateOpen Then
rsaux1.Open " SELECT * FROM Imagenes "
de1.rsimagenes.Fields(1) = varano & "0001"
Else
rsaux1.Close
rsaux1.Open "SELECT MAX (NombreImagen) FROM Imagenes"
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If
End Sub


GRACIAS !!! :-)

Orca
12 de Mayo del 2004
Probablemente cuando invocas el procedimiento tu recordset o tu conexion ya estan cerrados y eso causa el error, no los puede usar si estan cerrados

bengaba81
12 de Mayo del 2004
Lo que me dice es que la operacion no esta permitida si el objeto esta abierto