来自 sql 的列表视图 vb6：需要对象

Question

我正在短时间内从 youtube 学习 vb6。但是 none 我观看的视频在需要定义的对象上定义得很好。它在行 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) 添加引用

查看下面的 link 了解更多信息： 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

来自 sql 的列表视图 vb6：需要对象

listview vb6 from sql: object required

mysql

vb6

listview