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 :-P

sdemingo
12 de Mayo del 2004

HOla,

Parece que haces la comprobación del recordset al revés...

If rsaux1.State = adStateOpen Then 'Está abierto
rsaux1.Close 'Lo cierras antes de volver a abrirlo
rsaux1.Open " SELECT * FROM Imagenes "
de1.rsimagenes.Fields(1) = varano & "0001"
Else 'Está cerrado y lo abres
rsaux1.Open "SELECT MAX (NombreImagen) FROM Imagenes"
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If

Prueba ahora
salu2
sdemingo
http://boards.melodysoft.com/sdemingo

bengaba81
12 de Mayo del 2004

Me dice que la operacion no esta permitida en este contexto.

sdemingo
12 de Mayo del 2004

en q línea?