listbox的数据绑定

chenxyon 2002-04-18 03:53:29
加精
listbox的数据绑定,急急急急急急急急急急急急急急急急急急
...全文
510 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
acptvb 2002-04-18
  • 打赏
  • 举报
回复
感谢您使用微软产品。

您可以通过设定ListBox控件对象的DataSource和DisplayMember属性,将ListBox绑定到特定的数据字段上。下面提供一段示例代码,代码的功能是将ListBox绑定到数据库northwind中数据表Categories的CategoryName字段上。其中getCategories()函数的功能是返回相应的DataSet。请参考如下代码:

Imports System.Data
Imports System.Data.SqlClient
……
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myDataSet As DataSet = New DataSet()
myDataSet = getCategories()
ListBox1.DataSource() = myDataSet.Tables(0).DefaultView
ListBox1.DisplayMember() = "CategoryName"
End Sub

Private Function getCategories() As DataSet
Dim connString As String = "Server=SHA-RICKIE-01;Database=northwind;uid=rickie;pwd=rickie"
Dim myConn As SqlConnection
Dim myDataSet As DataSet = New DataSet()

Try
myConn = New SqlConnection(connString)
myConn.Open()

Dim sqlString As String = "Select CategoryId, CategoryName, Description " _
& " From Categories"
Dim mySqlDataAdapter As SqlDataAdapter
mySqlDataAdapter = New SqlDataAdapter(sqlString, myConn)
'Fill the DataSet with the data table named 'dtCategories'
mySqlDataAdapter.Fill(myDataSet, "dtCategories")

Catch ex As Exception
MsgBox(ex.ToString())
Finally
myConn.Close()
End Try

Return myDataSet
End Function

关于ListBox控件的更详细信息,请参考MSDN:
ms-help://MS.VSCC/MS.MSDNVS/cpref/html/frlrfSystemWindowsFormsListBoxMembersTopic.htm

— 微软全球技术中心 VB支持中心

本贴子以“现状”提供且没有任何担保,同时也没有授予任何权利。具体事项可参见使用条款(http://support.microsoft.com/directory/worldwide/zh-cn/community/terms_chs.asp)。
为了为您创建更好的讨论环境,请参加我们的用户满意度调查(http://support.microsoft.com/directory/worldwide/zh-cn/community/survey.asp?key=(S,49854782))。

16,718

社区成员

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

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