hi! i have some problem with this certain code. when i try to run the form and click the process button. it gives me runtime error 13: type mismatch in w/c it is pointing to the code ["Set lstViewList = lstView.ListItems.Add(, , Trim$(tble(0)))"], though the data on the said database are basically characters only. may it strings/ integer it still gives me this error. i hope you guys could help me with this. thanks in advance!

Option Explicit

Dim conn As New rdoConnection
Dim tble As rdoResultset
Dim strconn As String
Dim strtble As String
Dim lstViewList As ListItem

Private Sub cmd_Click()
Select Case cbo.ListIndex
    Case 0
        strconn = "SourceType=DBF;" _
            & "SourceDB=" & dbfPathMain & ";" _
            & "Driver={Microsoft Visual FoxPro Driver}"
    Case 1
        strconn = "SourceType=DBF;" _
            & "SourceDB=" & dbfPathNorth & ";" _
            & "Driver={Microsoft Visual FoxPro Driver}"
End Select

If cbo.ListIndex > 1 Then
    MsgBox "Please select which building you want to get the data!", vbCritical, "ERROR"
    Exit Sub
End If

conn.Connect = strconn

conn.CursorDriver = rdUseOdbc
conn.EstablishConnection "rdDriverNoPrompt"

strtble = "SELECT customer FROM receipt.dbf WHERE or_date = {^" & dtp.Value & "};"
Set tble = conn.OpenResultset(strtble, rdOpenKeyset, rdConcurRowVer)

lstView.ListItems.Clear
If tble.RowCount <> 0 Then tble.MoveFirst
Do While Not tble.EOF
    Set lstViewList = lstView.ListItems.Add(, , Trim$(tble(0)))
    tble.MoveNext
Loop
End Sub

Hello,

Your error isn't a data type error, its an object type error.

This looks like VB.NET code to me:

lstView.ListItems.Clear
If tble.RowCount <> 0 Then tble.MoveFirst
Do While Not tble.EOF
    Set lstViewList = lstView.ListItems.Add(, , Trim$(tble(0)))
    tble.MoveNext
Loop

In VB6 I would just do:

lstView.Clear
If tble.RecordCount <> 0 Then tble.MoveFirst
   Do While Not tble.EOF
      lstView.AddItem tble(0)
      tble.MoveNext
   Loop
End If

Or I like to add the records primary key value to the ItemData property:

lstView.Clear
If tble.RecordCount <> 0 Then tble.MoveFirst
   Do While Not tble.EOF
      lstView.AddItem tble!DataItem1
      lstView.ItemData(lstView.NewIndex) = tble!DataID
      tble.MoveNext
   Loop
End If

I'm also using ADO here, hence RecordCount.

HTH,

Bob