How to fill Combo Box at runtime in VB 6.0?
Tags:
How to fill Combo Box at runtime in VB 6.0 ...I've used RecordSet object but rec.count of rs obj returns (-1). I have enough data in the DB.
[Private Sub Form_Load()
FillCombo
End Sub
Sub FillCombo()
Dim rs As New ADODB.Recordset, SQL As String
SQL = "Select Spare_Name from Spare"
rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic
Dim i As Integer
For i = 1 To rs.RecordCount
cboSpare.AddItem rs("Spare_Name")
rs.MoveNext
Next
MsgBox "Successss", vbOKOnly
End Sub
Asked:
Last updated:
Related Questions
- VB-runtime error-3001 (arguments are of the wrong type,are out of acceptable range,or are in conflict with one another)
- Runtime Error 2147217900 (80040e14) - Syntex Error (Missing Operator) in query expression
- Pop up alert in Visual Basic 6
- How to search for Access 2003 record using VB6
- Arguments are of the wrong type or out of acceptable range or are in conflict with one another
Answer Wiki
-
Last updated:62,160 pts.
- History
-
Contributors
- Ordered by most recent
-
62,160 pts.
-
84,495 pts.
Discuss This Question: 2 Replies
if rs.state=1 then rs.close
rs.Open SQL, Conn, adOpenDynamic, adLockOptimistic
if Rs.eof=false then
cboitem.clear
while rs.eof=false
cboitem.add(rs(0))
rs.movenext
wend
if rs.state=1 then rs.close
end if