Campos nulos
estoy trabajando con ado
y tengo una tabla que por obligacion tiene
que quedar con campos nulos.
al hacer una consulta para llenar un combobox
me lanza el error de campo nulo
como detecto el campo nulo ?
y tengo una tabla que por obligacion tiene
que quedar con campos nulos.
al hacer una consulta para llenar un combobox
me lanza el error de campo nulo
como detecto el campo nulo ?
usa la función isnull(campo).
te mando además un procedimiento para llenarcombos, incluso con varios campos, y con un parametro opcional para agregarle orden o algun filtro.
la llamada es :
llenacomo "productos", cboProductos,"codigo , descripcion", "order by codigo"
Public Sub llenacombo(ByVal tabla As String, ByRef combo As Object, Optional ByVal campos As String = "*", Optional ByVal condicion As String)
Dim tb As New Recordset
Dim I As Integer, sql As String
tb.Open "select " + campos + " from [" + tabla + "] " + condicion, cn, adOpenForwardOnly
combo.Clear
While Not tb.EOF
For I = 0 To tb.Fields.Count - 1
if not isnull(tb(i)) then sql = sql + CStr(tb(I)) + " "
Next
combo.AddItem Trim(sql)
sql = ""
tb.MoveNext
Wend
If combo.ListCount > 0 Then combo.ListIndex = 0
End Sub
PD: cn es el nombre del objeto Conexión activo.
te mando además un procedimiento para llenarcombos, incluso con varios campos, y con un parametro opcional para agregarle orden o algun filtro.
la llamada es :
llenacomo "productos", cboProductos,"codigo , descripcion", "order by codigo"
Public Sub llenacombo(ByVal tabla As String, ByRef combo As Object, Optional ByVal campos As String = "*", Optional ByVal condicion As String)
Dim tb As New Recordset
Dim I As Integer, sql As String
tb.Open "select " + campos + " from [" + tabla + "] " + condicion, cn, adOpenForwardOnly
combo.Clear
While Not tb.EOF
For I = 0 To tb.Fields.Count - 1
if not isnull(tb(i)) then sql = sql + CStr(tb(I)) + " "
Next
combo.AddItem Trim(sql)
sql = ""
tb.MoveNext
Wend
If combo.ListCount > 0 Then combo.ListIndex = 0
End Sub
PD: cn es el nombre del objeto Conexión activo.