AYUDA URGENTE PARA PROYECTO

bengaba81
14 de Mayo del 2004
Quiero hacer una vcerificacion para ver si la base de datos esta llena o vacia, y siempre me entra por la primera condiccion.

Public Sub NomImagen()
Dim varano
Dim rsaux1 As ADODB.Recordset
varano = Mid(Date, 9, 2)
'Set rsaux1 = de1.rsimagenes.Clone
Set rsaux1 = de1.conex.Execute("SELECT MAX (NombreImagen) FROM Imagenes")
'MsgBox rsaux1.Fields(0).Value
If rsaux1.Fields(0) = Null Then
de1.rsimagenes.Fields(1) = varano & "0001"
Else
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1
End If
End Sub
Un saludo y gracias

Yuval
14 de Mayo del 2004
Nose pero los numeros que pones en la propiedad fielsd es para indicar el campo? esque pensaba que hsolo se podia poner el nombre del campo : des1.rsimagenes.fields("campo1")? No entiendo muy bien que te pasa yo hecho un par de proyectos de base de datos pero no entiendo muy bien lo que haces, bueno esperoq ue alguin te ayude suerte!!

cvs
14 de Mayo del 2004
If rsaux1.BOF and rsaux1.EOF then
\'el recordset está vacio
else
\'el recordsset tiene registros
end if

bengaba81
14 de Mayo del 2004
Voy a probar a ver que tal, muchas gracias!

bengaba81
14 de Mayo del 2004
Puede ser porque al tener la tabla un campo autonumerico, lo tome como una fila y por eso ahora siempre entre por el else aunque este vacia?
If rsaux1.Fields(0) = Null Then
de1.rsimagenes.Fields(1) = varano & "0001"
Else
de1.rsimagenes.Fields(1) = rsaux1.Fields(0) + 1

End If

ana
14 de Mayo del 2004
pq no pruebas con rs.recordcount?? a mi me funciona y tb tengo una tabla con un campo autonumerico

Pau
14 de Mayo del 2004
Realiza una consulta por medio de un recordset ("Select bla, bla From bla bla Where bla, bla ") si es que quieres condiciones o solo asi, y luego haces una comparacion con un IF asi:
if recordset>0 then "O sea si no esta vacio entonces"
msgbox "Si hay registro"
else
msgbox "el recordset o tabla esta vacia"
end if
Esta nunca te genera errores y lo hace rapidisimo. Espero que te ayude aunque si lo creo porque mi bd esta llena de estas consultas.

pau
14 de Mayo del 2004
lo siento no te escribi bien la comparacion, es asi
recordset.RecordCount>0 sale? suerte!!

Oskitar
14 de Mayo del 2004
prueba IF isnull(campo1) then ...
Saludos, ojala sea de ayuda