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

2003-09-02 09:25:04 155 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

HDR视频技术之七：逆色调映射 HDR 技术说是继 4K 之后视频领域的又一次重大技术突破，不仅提高图像的动态范围，同时也提供了更宽的色域，并提升了画面在高光和暗部的细节信息，带给观看者更加真实的视觉体验。但作为 HDR 产业链的核心，内容短缺的问题仍然是 HDR 普及和成熟的重要限制因素。众多电视厂商将 HDR 技术作为其产品规划中的重要技术，主要是在硬件方面进行提升。而由于 HDR 内容制作对于设备要求较高，对采集、调色、显示等多方面都需要较高的质量要求，内容制作的复杂度和周期长等因素，导致了 HDR 内容的匮乏。阅读详情

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

...全文

【车载开发系列】ParaSoft单元测试环境配置（一） bdf是数据文件的一种类型，表示一种数据库文件。在ParaSoft当中，可以使用bdf文件来快速创建一个测试项目。阅读详情

RHKylix

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

gwhong211 2003-10-05

打赏
举报

看不懂的话联系我

gwhong211 2003-10-05

打赏
举报

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()

希望楼主看懂

RHKylix 2003-10-05

打赏
举报

一定给分

liuguangwei 2003-09-03

打赏
举报

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
希望老兄能看的懂了
看懂了别忘了给分

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

相关推荐