樱田樱番号封面:DataSet取数据
来源:百度文库 编辑:神马品牌网 时间:2024/10/05 08:40:13
请问如何从DataSet中取数据填充到LISTVIEW()?
代码如下:
Dim OleDbCommand1 As System.Data.OleDb.OleDbCommand
Dim oledbdataadapter As System.Data.OleDb.OleDbDataAdapter
Dim dataadapter As System.Data.OleDb.OleDbDataAdapter
OleDbConnection1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2005\Projects\WindowsApplication4\WindowsApplication4\db.mdb" 'ACCESS链接字符串
OleDbCommand1 = New System.Data.OleDb.OleDbCommand
OleDbConnection1.Open() '打开数据库
OleDbCommand1.CommandText = "Select * from 联系人" '要执行的SQL语句
oledbdataadapter = New OleDb.OleDbDataAdapter(OleDbConnection1.ConnectionString, OleDbConnection1) '创建DataAdapter数据适配器实例
Dim customerOrders As DataSet = New DataSet("CustomerOrders") '创建DataSet实例()
dataadapter = New System.Data.OleDb.OleDbDataAdapter("Select * from 联系人", OleDbConnection1)
dataadapter.Fill(customerOrders, "OleDbCommand1.CommandText") '使用DataAdapter的Fill方法(填充),调用SELECT命令
'从DataSet中取数据填充LISTVIEW()
代码如下:
Dim OleDbCommand1 As System.Data.OleDb.OleDbCommand
Dim oledbdataadapter As System.Data.OleDb.OleDbDataAdapter
Dim dataadapter As System.Data.OleDb.OleDbDataAdapter
OleDbConnection1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=d:\My Documents\Visual Studio 2005\Projects\WindowsApplication4\WindowsApplication4\db.mdb" 'ACCESS链接字符串
OleDbCommand1 = New System.Data.OleDb.OleDbCommand
OleDbConnection1.Open() '打开数据库
OleDbCommand1.CommandText = "Select * from 联系人" '要执行的SQL语句
oledbdataadapter = New OleDb.OleDbDataAdapter(OleDbConnection1.ConnectionString, OleDbConnection1) '创建DataAdapter数据适配器实例
Dim customerOrders As DataSet = New DataSet("CustomerOrders") '创建DataSet实例()
dataadapter = New System.Data.OleDb.OleDbDataAdapter("Select * from 联系人", OleDbConnection1)
dataadapter.Fill(customerOrders, "OleDbCommand1.CommandText") '使用DataAdapter的Fill方法(填充),调用SELECT命令
'从DataSet中取数据填充LISTVIEW()
listview.datasource=dataset