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

平台想钱想疯了 2004-07-09 07:27:20
我正在用到这方面,CSDN中关于EXCEL这方面在VB。NET中我已经看光了,没有代码显示怎么导入到DATAGRID中,并在DATAGRID中显示出来的,
现在恳求哪个任兄贴一代码出来,告诉再下,万分感激!!!!!
...全文
232 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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$

  • 打赏
  • 举报
回复
Private Sub DataGridSet()

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


End Sub


DataGridSet()
是这样子的!!!上面的那个有误!错误同上!
  • 打赏
  • 举报
回复
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)
这一行! 怎么回事了?????各位!!!!

  • 打赏
  • 举报
回复
太感谢 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
  • 打赏
  • 举报
回复
处理跟处理access,sql 没什么差别
水如烟 2004-07-09
  • 打赏
  • 举报
回复
System.Data.Odbc 可以操作Excel

16,722

社区成员

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

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