请教listView的用法?

RHKylix 2003-09-12 06:48:58
我想把从数据库中得到的数据结果集用ListView显示
怎么付值呢?
...全文
182 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
liuguangwei 2003-09-13
  • 打赏
  • 举报
回复
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
希望老兄能看的懂了
看懂了别忘了给分
lz305 2003-09-13
  • 打赏
  • 举报
回复
Public Sub sql_scn()
Try
ListView1.Items.Clear()
ListView1.Columns.Clear()
Dim reader As SqlDataReader
Dim sConnectionString As String = _
"server=localhost;uid=sa;pwd=;database=temp"
Dim sconn As SqlConnection = New SqlConnection(sConnectionString)
sconn.Open()
Dim sSQL As String = "SELECT * FROM asd"
Dim cmd As SqlCommand = New SqlCommand(sSQL, sconn)
Dim sqlda As SqlDataAdapter = New SqlDataAdapter(sSQL, sconn)
Dim ds As DataSet = New DataSet()
sqlda.Fill(ds, "asd")
Dim dt As DataTable = ds.Tables("asd")
'数组的维数是表头的数量
Dim columnNames(dt.Columns.Count) As String
Dim I As Integer
For I = 0 To columnNames.Length -2
'数组存放每一列的名字
columnNames(I) = dt.Columns(I).ColumnName
Next

reader = cmd.ExecuteReader
While (reader.Read())
' '新建一个LISTITEM的新列
Dim li As ListViewItem = New ListViewItem()


li.SubItems.Clear()
Dim j As Integer
For j = 0 To j columnNames.Length -2
If j >= ListView1.Columns.Count Then
ListView1.Columns.Add(columnNames(j), columnNames(j).Length * (CInt(ListView1.Font.SizeInPoints + 30)), HorizontalAlignment.Center)
Else
ListView1.Columns(j).Text = columnNames(j)
ListView1.Columns(j).Width = columnNames(j)
End If
li.SubItems(j).Text = reader(columnNames(j)).ToString
li.SubItems.Add(reader(columnNames(j))).ToString()
Next j
ListView1.Items.Add(li)
End While
sconn.Close()
reader.Close()
Catch err As Exception
MessageBox.Show(err.Message, "错误提示")
End Try
czy412 2003-09-13
  • 打赏
  • 举报
回复
' Visual Basic
' Adds two subitems to the first list item
ListView1.Items(0).SubItems.Add("John Smith")
ListView1.Items(0).SubItems.Add("Accounting")

// C#
// Adds two subitems to the first list item.
listView1.Items[0].SubItems.Add("John Smith");
listView1.Items[0].SubItems.Add("Accounting");
szch 2003-09-13
  • 打赏
  • 举报
回复
直接绑定,
或用代码添加都可以
alexlcd1 2003-09-13
  • 打赏
  • 举报
回复
add:
Dim objItem As ListViewItem
objItem = ListViewFollowMedication.Items.Add(ComboBoxFollowKind.Text)
objItem.SubItems.Add(ComboBoxFollowSort.Text)
objItem.SubItems.Add(ComboBoxFollowMedication.Text)
objItem.SubItems.Add(TextBoxFollowDosage.Text)
delete:
Dim strselectMedication As String
Dim objItem As ListViewItem
strselectMedication = ListViewFollowMedication.SelectedIndices.Item(0)
Dim Scinf As Int16
Scinf = MsgBox("确定删除此记录?", MsgBoxStyle.YesNo, "删除记录")
If Scinf = 6 Then
ListViewFollowMedication.Items(strselectMedication).Remove()
End If

16,721

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧