Mysql sql中的listview vb6:需要对象

Mysql sql中的listview vb6:需要对象,mysql,listview,vb6,Mysql,Listview,Vb6,我在很短的时间内从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

我在很短的时间内从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
1) 添加组件

2) 添加引用

查看以下链接了解更多信息:

请尝试以下代码:-

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

这个代码在表单中吗?表单中是否添加了名为ListView1的控件?是表单中的控件,而不是。我今天早上才找到解决办法。我制作了几个表单,在点击一个按钮后显示和隐藏,而我在遵循一个只使用一个表单的教程。所以我犯了一个错误,我写的代码的格式错误,这导致表单搜索我提到的列表视图的位置。顺便说一句,非常感谢您的回复。很高兴您发现了问题!祝您好运,并从教程中获得乐趣:)它很好地解决了您的问题@AngelaHeely。如果您想了解更多信息,请访问以下页面: