Visual Basic - Problema al Añadir Recorset a un ListBox

Life is soft - evento anual de software empresarial
 
Vista:

Problema al Añadir Recorset a un ListBox

Publicado por sergio (36 intervenciones) el 27/08/2003 01:43:03
hola, tengo la siguiente funcion para añadir los elmentos de una campo de una columna de una tabla de una BD:
Function Lista()
Dim i As Integer


Me.Data2.Recordset.MoveFirst
List1.Clear
List1.AddItem "*"
For i = 0 To Me.Data2.Recordset.RecordCount
If Me.Data2.Recordset.EOF Or Me.Data2.Recordset.BOF Then
Else
If IsNull(Me.Data2.Recordset.Fields("Código")) Or Me.Data2.Recordset.Fields("Código") = "" Then

Else
List1.AddItem (Me.Data2.Recordset.Fields("Código"))
Me.Data2.Recordset.MoveNext
End If
End If
Next i

Data2.Refresh

End Function
el problema es que no me añade si no los dos primeros datos
cual es el problema.
y verifico el numero de Recorset y me dice que uno cuando son muchos mas
gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema al Añadir Recorset a un ListBox

Publicado por Cecilia Colalongo (3117 intervenciones) el 27/08/2003 02:58:52
En lugar de utilizar un ciclo por la cantidad de registros utiliza un ciclo While:

Data2.Recordset.MoveFirst

List1.Clear
List1.AddItem "*"

While Not Data2.EOF
If Not IsNull(Me.Data2.Recordset.Fields("Código")) And Me.Data2.Recordset.Fields("Código") <> "" Then
List1.AddItem (Me.Data2.Recordset.Fields("Código"))
End If
Data2.MoveNext
Wend

Otro detalle, cuando colocas un If y lo dejas vacío y vas por el Else es preferible que coloques la condición negada, es más claro.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar