各位好心的前辈们，我现在急须请教大家一个问题何用ListView控件连接Access数据库的一张表

Question

我现在做一个小软件想用ListView控件连接一张Access的一张表请问各位前辈给我指点
最好能详细点。我的邮箱是[email protected]。我现在急须请教有关VB连接数据库的实例
我的QQ160197693.

Answer 1

http://www.ylnet.com.cn/news/bczn/2004330130250.htm
有文章可参照

Answer 2

没有方便的办法，只能是将数据读入到记录集中，然后一条条加入到ListView中。
如果数据多的话，可以分页加。如何将数据分页，请看ADO的帮助。
可以在计算机中查找：ADO*.chm，内容很详细。

Answer 3

一个例子引用ado2.x
Public con As Connection
Public re As RecordsetSub connect()
 Dim path As String
  path = App.path
  If Right(path, 1) <> "/" Then path = path + "/"
  path = path + "db1.mdb"
  Set con = New Connection
  con.Open "provider=microsoft.jet.oledb.4.0; data source=" + path
  con.CursorLocation = adUseClient  Set re = New Recordset
End Sub
If re.State = 1 Then
   re.Close
End IfListView1.ListItems.Clear
ListView1.View = lvwSmallIcon
     re.Open "tab1", con, adOpenDynamic, adLockBatchOptimistic
     If re.RecordCount > 1 Then
      For i = 1 To re.RecordCount
        ListView1.ListItems.Add , , re.Fields("id").Value & "员工", Val(re.Fields(1)), Val(re.Fields(1))
        re.MoveNext
       Next
       
     End If

Answer 4

不好意思！！end sub 下面的代码放在command1_click()中Public Sub Command1_Click()
If re.State = 1 Then
   re.Close
End IfListView1.ListItems.Clear
ListView1.View = lvwSmallIcon
     re.Open "tab1", con, adOpenDynamic, adLockBatchOptimistic
     If re.RecordCount > 1 Then
      For i = 1 To re.RecordCount
        ListView1.ListItems.Add , , re.Fields("id").Value & "员工", Val(re.Fields(1)), Val(re.Fields(1))
        re.MoveNext
       Next
       
     End If
     
     
     
End Sub