mysql - 来自sql : object required的listview vb6

Question

我正在短时间内从 youtube 学习 vb6。但我观看的视频都没有很好地定义了需要定义的对象。它在 ListView1.ListItems.Clear 行上出现错误我需要知道 vb6 中定义对象的详细信息，这些是我的代码。

Sub filllistview()
 strsql = "select * from pemilikkenderaan "
 Set rs = cn.Execute(strsql)
 ListView1.ListItems.Clear
 Do While Not rs.EOF
 Set Item = ListView1.ListItems.Add(, , rs!carid)
 Item.SubItems(1) = rs!username & ""
 Item.SubItems(2) = rs!cartype & ""
 Item.SubItems(3) = rs!carcolour & ""
 Item.SubItems(4) = rs!rfidno & ""
 rs.MoveNext
 Loop
 Set rs = Nothing
End Sub

Answer 1

1) 添加组件

2)添加引用文献

查看下面的链接了解更多信息: list in vb6

试试这个代码:-

Private Sub filllistview()
Dim cn As New ADODB.Connection
cn.ConnectionString = ""
cn.CursorLocation = adUseClient
cn.Open

Dim strsql As String
strsql = "select * from pemilikkenderaan"
Dim rs As New ADODB.Recordset
rs.Open strsql, cn
ListView1.ListItems.Clear
Dim Item As Nodes

Do While Not rs.EOF
    Set Item = ListView1.ListItems.Add(, , rs!carid)
    Item.Add rs!carid, rs!username, rs!username
    Item.Add rs!carid, rs!cartype, rs!cartype
 Item.Add rs!carid, rs!carcolour, rs!carcolour
    Item.Add rs!carid, rs!rfidno, rs!rfidno
 rs.MoveNext
Loop
Set rs = Nothing
Set cn = Nothing

End Sub

Private Sub cmdCreateList_Click()
filllistview
End Sub