如何用ListView显示从数据库中查询统计的数据?

[RHKylix]

我想把从数据库中查询统计的数据用ListView显示出来.请问如何操作?
vb.net+ado+access

[liuguangwei]

Imports System.Data.OleDb

Public cn As New OleDbConnection
Private ds As New DataSet

Public Function getConnection() As Boolean

Try
If cn.State = ConnectionState.Open = True Then cn.Close()
Dim str As String = "Data Source=" & Application.StartupPath & "\Data\football.mdb"
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Jet OLEDB:Database Password=wefar;" & str
cn.Open()
Return True
Catch ex As OleDbException
MsgBox(ex.Message, MsgBoxStyle.Critical, "Message")
Return False
End Try

End Function


Private Sub userview_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim daListview As OleDbDataAdapter
Dim dvlistview As New DataView

getConnection

ListView1.Columns.Add("aa", 140, HorizontalAlignment.Left)
ListView1.Columns.Add("bb", 120, HorizontalAlignment.Center)
daListview = New OleDbDataAdapter("select * from users", cn)
daListview.Fill(ds, "ListView")
dvListView = ds.Tables("ListView").DefaultView

ListView1.Items.Clear()
For cnt = 0 To dvListView.Count - 1
Dim lv As New ListViewItem
lv.SubItems.Clear()
lv.SubItems(0).Text = dvlistview(cnt).Item("users")
lv.SubItems.Add(dvlistview(cnt).Item("ee)
ListView1.Items.Add(lv)
Next
ListView1.Update()

end sub
希望老兄能看的懂了
看懂了别忘了给分

[RHKylix]

一定给分

[gwhong211]

Dim Sql As String, RsData As New ADODB.Recordset()
Dim TempStr0 As String, TempStr1 As String, TempStr2 As String
Dim I As Integer, J As Integer, TheItem As ListViewItem, Found As Boolean
LstVData.Items.Clear()
sql=""
RsData.Open(Sql, gDBDat, ADODB.CursorTypeEnum.adOpenKeyset, ADODB.LockTypeEnum.adLockReadOnly)
If RsData.RecordCount > 0 Then RsData.MoveFirst()
Do While Not RsData.EOF
TempStr0 = RsData.Fields("aa").Value & ""
TempStr1 = RsData.Fields("bb").Value & ""
TempStr2 = RsData.Fields("cc").Value & ""
Found = False
For I = 0 To LstVData.Items.Count - 1
For Each TheItem In LstVData.Items
If TheItem.SubItems(0).Text = RsData.Fields("xx").Value & "" Then
If LstVData.Items(0).SubItems(0).Text = "" Then
LstVData.Items(0).SubItems(0).Text = "未输入"
End If
Found = True : Exit For
End If
Next
Next
If Not Found Then
TheItem = New ListViewItem("")
TheItem.SubItems(0).Text = RsData.Fields("xx").Value & ""
For J = 0 To LstVData.Columns.Count - 1
TheItem.SubItems.Add("0")
Next
LstVData.Items.Add(TheItem)
If LstVData.Items(0).SubItems(0).Text = "" Then
LstVData.Items(0).SubItems(0).Text = "未输入"
End If
End If
'Find Col
For J = 1 To LstVData.Columns.Count - 1
TheItem.SubItems(1).Text = TempStr0
TheItem.SubItems(3).Text = TempStr1
TheItem.SubItems(5).Text = TempStr2
Next
RsData.MoveNext()
Loop
RsData.Close()

希望楼主看懂

[gwhong211]

看不懂的话联系我