0

hi there, i have a form in Vb6 and a msacess 2007 database connected using ADODC, on a form is a listbox that i want to populate with the table data from the database, the name of the database is Storenw and the table from which i want to access is sales with fields barcode,item and price. i have the following code in my form-load seem to be working because am not getting any error but in the listbox is showing nothing,.. what can i do? am new in this pls!

code:

Private Sub Form_Load()
Dim rs As New ADODB.Recordset
Dim strConnectionString As String
Dim strSQL As String

On Error GoTo Handler:

strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Documents and Settings\Mateuss\My Documents\project\storenw.mdb;Persist Security Info=False"

strSQL = "select * from sales"

rs.Open strSQL, strConnectionString
If Not (rs.EOF And rs.BOF) Then
rs.MoveFirst
Do While Not rs.EOF
barcode = rs.Fields(0).Value
item = rs.Fields(1).Value
price = rs.Fields(2).Value
Call AddToListBox(barcode, item, price)
rs.MoveNext
Loop
Else
MsgBox "Nothing found."
End If

My_Exit_Sub:
On Error Resume Next
rs.Close
Set rs = Nothing
Exit Sub
Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description
Resume My_Exit_Sub
End Sub

Private Sub AddToListBox(ByVal barcode As String, ByVal item As String, ByVal price As String)


End Sub

2
Contributors
3
Replies
5
Views
8 Years
Discussion Span
Last Post by sackymatt
0

it seems your AddToListBox procedure doesn't do anything.

Private Sub AddToListBox(ByVal barcode As String, ByVal item As String, ByVal price As String)
     list1.additem(barcode & "     " & item & "     " & price)
End Sub
0

now there is another problem, how can i make the date in the list be in a table form, because wats showing now is just a list

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.