如何把EXCEL中的内容导入到DATAGRID中显示出来？？？

平台想钱想疯了 2004-07-09 07:27:20

我正在用到这方面，CSDN中关于EXCEL这方面在VB。NET中我已经看光了，没有代码显示怎么导入到DATAGRID中，并在DATAGRID中显示出来的，
现在恳求哪个任兄贴一代码出来，告诉再下，万分感激！！！！！

...全文

233 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

strXiaoCaiNiao 2004-07-12

打赏
举报

oledb
和Access一样

水如烟 2004-07-12

打赏
举报

觉得你这样写法不好，它会调用两次CreateDataSource(),
建议这样
dim ds as DataSet=CreateDataSource()
myDataGrid.DataSource=ds.Tables(0)

水如烟 2004-07-12

打赏
举报

myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)
改为:
myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables(0).TableName)
'看看这个Name是不是Sheet1$

平台想钱想疯了 2004-07-12

打赏
举报

Private Sub DataGridSet()

Dim myDataGrid As New DataGrid
myDataGrid = DataGrid1
myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)

End Sub

DataGridSet()
是这样子的!!!上面的那个有误!错误同上!

平台想钱想疯了 2004-07-12

打赏
举报

Private Function CreateDataSource() As DataSet
Dim StrFile As String
StrFile = Me.TexBoxExcelDir.Text
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + StrFile + ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
Dim conn As OleDbConnection = New OleDbConnection(strConn)
Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", strConn)
Dim myDataSet As DataSet = New DataSet
myCommand.Fill(myDataSet)
Return myDataSet
End Function

Private Sub DataGridSet()
Dim myDataGrid As New DataGrid
myDataGrid = ME.DataGrid1
myDataGrid.SetDataBinding(CreateDataSource(), ExcelData.Tables("Sheet1$").ToString)

End Sub

各位兄台们：
CreateDataSource()产生数据源,已经证明没有问题,谢谢上面各位提供给我的CONNECTIONSTRING,现在的问题是我拖入DATAGRID1后,在程序中我加入DATAGRIDSET()过程后,一调用这过程,就报 "没有将对象设置到对象实例!" 这个错误!停在:myDataGrid.SetDataBinding(CreateDataSource(), ExcelData.Tables("Sheet1$").ToString)
这一行! 怎么回事了?????各位!!!!

平台想钱想疯了 2004-07-12

打赏
举报

太感谢 lzmtw(水如烟) 兄了.我把myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables("Sheet1$").ToString)改成你说的

myDataGrid.SetDataBinding(CreateDataSource(), CreateDataSource().Tables(0).TableName)
这个后,就出来了.太谢谢你了.
还有上面的所有的各位!!!!!!!!!!!!!!!

水如烟 2004-07-09

打赏
举报

http://www.connectionstrings.com

Excel
ODBC

Standard:

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"

OLE DB

Standard:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
"HDR=Yes;" indicates that the first row contains columnnames, not data
"IMEX=1;" tells the driver to always read "intermixed" data columns as text
TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.

jackyoung02 2004-07-09

打赏
举报

c＃的：
System.Data.OleDb.OleDbConnection connection = new System.Data.OleDb.OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source = a.xls");

System.Data.OleDb.OleDbDataAdapter dataAdapter = new System.Data.OleDb.OleDbDataAdapter( "SELECT * FROM [Sheet1$]", connection );

connection.Open();
DataSet dataSet = new DataSet();
dataAdapter.Fill( dataSet, "test" );
connection.Close();

this.dataGrid1.DataSource = dataSet.Tables[0];

水如烟 2004-07-09