[求助 VB] ACCESS数据库读取到ListView 里显示问题

Question

  怎样ACCESS数据库绑定或读取方式在Listview 里显示呢？   ACCESS数据库里3个表，按要求选择数据表即可。   请VB高手指教问题解决方法

Answer 1

http://topic.csdn.net/u/20080819/15/aa94dd21-ad3f-460c-8b8e-9aa0aa522eed.html怎么同一天,二个人出的题目是一样的?

Answer 2

'FileName 是数据库的文件名
'StrSQL 是SQL语句:  如 Select * From Table'**********************************方法
Public Function LoadData(ByVal FileName As String, ByVal strSql As String)
  Dim dB As Connection
  Dim Item1 As ListItem
  
  Set dB = New Connection
  dB.CursorLocation = adUseClient
  dB.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & FileName & ";"
  
  Set adoPrimaryRS = Nothing
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open strSql, dB, adOpenStatic, adLockOptimistic
  
  
  
  lv.ColumnHeaders.Clear
  lv.ListItems.Clear
  If adoPrimaryRS.RecordCount <> 0 Then adoPrimaryRS.MoveFirst
  For j = 0 To adoPrimaryRS.Fields.Count - 1
      lv.ColumnHeaders.Add , , adoPrimaryRS.Fields(j).Name
  Next
  
  For j = 1 To adoPrimaryRS.RecordCount
     Set Item1 = lv.ListItems.Add(, , adoPrimaryRS.Fields(0).Value)
     For I = 1 To adoPrimaryRS.Fields.Count - 1
       If Not IsNull(adoPrimaryRS.Fields(I)) Then
           Item1.SubItems(I) = adoPrimaryRS.Fields(I)
       End If
     Next
     adoPrimaryRS.MoveNext
  Next
  lv.View = lvwReport
End Function