Data Environment
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 !!! :-)
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 !!! :-)
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