Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

problemas al leer campos vacios

Estas en el tema de problemas al leer campos vacios en el foro de Visual Basic clásico en Foros del Web. Tengo el siguiente problema cuando quiero avanzar de un registro a otro de la BD, no me muestra los campos vacios, cuando encuentra un campo ...
  #1 (permalink)  
Antiguo 22/02/2005, 14:23
 
Fecha de Ingreso: febrero-2005
Mensajes: 1
Antigüedad: 19 años, 2 meses
Puntos: 0
Pregunta problemas al leer campos vacios

Tengo el siguiente problema cuando quiero avanzar de un registro a otro de la BD, no me muestra los campos vacios, cuando encuentra un campo vacio toma el dato del registro anterior, alguien puede ayudarme por favor?

Última edición por Adriadna; 22/02/2005 a las 14:25
  #2 (permalink)  
Antiguo 22/02/2005, 15:04
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
de esta manera lo podes soulionar

IIf(IsNull(RecordSet!Micampo), "la Info", RecordSet!Micampo)

este es un if en una sola linea el cual ve si el valor es nulo coloca "La info", de lo contrario coloca el valor del campo

nos vemos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
  #3 (permalink)  
Antiguo 24/02/2005, 13:12
Avatar de vbx3m  
Fecha de Ingreso: febrero-2005
Ubicación: Venezuela
Mensajes: 524
Antigüedad: 19 años, 3 meses
Puntos: 1
Prueba este codigo a ver que pasa, no lo he probado...

Public Function FieldExists(DatabaseName As String, TableName _
As String, FieldName As String) As Boolean

Dim DB As Database
Dim t As TableDef
Dim f As Field

On Error GoTo errorhandler

Set DB = Workspaces(0).OpenDatabase(DatabaseName)
Set t = DB.TableDefs(TableName)

On Error Resume Next
Set f = t.Fields(FieldName)
FieldExists = Err.Number = 0
DB.Close

Exit Function

errorhandler:

If Not DB Is Nothing Then DB.Close
Err.Raise Err.Number
Exit Function

End Function

me avisas si te funciono...
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 00:39.