listview怎样连接数据库并显示表中的内容?
所属分类:.NET技术 VB.NET
----------------------------------------------------------------------
listview怎样连接数据库并显示表中的内容?
急呀,谢谢
----------------------------------------------------------------------
Data binding a listview
http://www.codeproject.com/cs/miscctrl/ListView_DataBinding.asp
--------------------------------------------------------
我想这个应该对你有用,我就是这么写的
sql = "select * from tb_cookbook"
Dim struser As String = "tb_cookbook"
executesql(sql, struser)
Dim i As Integer
If mytable.Rows.Count >= 1 Then
For i = 0 To mytable.Rows.Count - 1
lvcookname.Items.Add(mytable.Rows(i).Item(0).ToString.Trim)
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(1)))
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(2)))
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(3)))
Next
End If
Shared Function executesql(ByVal strsql As String, ByVal sqltable As String) As Short
Dim strconn As String = "server=(local);database=hotel;integrated security=sspi"
Adapter = New SqlDataAdapter(strsql, strconn)
ds = New DataSet
Try
Adapter.Fill(ds, sqltable)
Catch ex As Exception
MsgBox(ex.Message)
End Try
mytable = ds.Tables.Item(0)
rownumberind = 0
If mytable.Rows.Count = 0 Then
Exit Function
Else
myrow = mytable.Rows.Item(rownumberind)
End If
End Function
所属分类:.NET技术 VB.NET
----------------------------------------------------------------------
listview怎样连接数据库并显示表中的内容?
急呀,谢谢
----------------------------------------------------------------------
Data binding a listview
http://www.codeproject.com/cs/miscctrl/ListView_DataBinding.asp
--------------------------------------------------------
我想这个应该对你有用,我就是这么写的
sql = "select * from tb_cookbook"
Dim struser As String = "tb_cookbook"
executesql(sql, struser)
Dim i As Integer
If mytable.Rows.Count >= 1 Then
For i = 0 To mytable.Rows.Count - 1
lvcookname.Items.Add(mytable.Rows(i).Item(0).ToString.Trim)
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(1)))
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(2)))
lvcookname.Items(i).SubItems.Add(Trim(mytable.Rows(i).Item(3)))
Next
End If
Shared Function executesql(ByVal strsql As String, ByVal sqltable As String) As Short
Dim strconn As String = "server=(local);database=hotel;integrated security=sspi"
Adapter = New SqlDataAdapter(strsql, strconn)
ds = New DataSet
Try
Adapter.Fill(ds, sqltable)
Catch ex As Exception
MsgBox(ex.Message)
End Try
mytable = ds.Tables.Item(0)
rownumberind = 0
If mytable.Rows.Count = 0 Then
Exit Function
Else
myrow = mytable.Rows.Item(rownumberind)
End If
End Function