excel导入GridView中,有标题!再将GridView中数据添加到数据库中

jiang828253 2008-05-09 02:42:45
怎么设置excel导入到GridView中,不读取标题与负标题~~~

Function SelectExcel() As DataSet
Dim filename, name, strConn As String
filename = ViewState("path")
name = ddlExcel.SelectedValue.ToString()
Dim conn As OleDbConnection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + filename + ";Extended Properties='Excel 8.0;HDR=no;IMEX=1'"
conn = New OleDbConnection(strConn)
Dim myCommand As OleDbDataAdapter
myCommand = New OleDbDataAdapter("SELECT * FROM [" + name + "]", strConn)

myCommand.Fill(myDataSet)
GridView1.DataSource = myDataSet
GridView1.DataBind()
Return myDataSet
End Function
...全文
232 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
Plougher 2008-05-12
  • 打赏
  • 举报
回复
你把Excel当成的数据库的时候你得往表名后面家一个$(美元符号)才可以识别Excel表的
Plougher 2008-05-12
  • 打赏
  • 举报
回复
Function SelectExcel() As DataSet
Dim filename, name, strConn As String
filename = ViewState( "path ")
name = ddlExcel.SelectedValue.ToString()
Dim conn As OleDbConnection
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + filename + ";Extended Properties= 'Excel 8.0;HDR=no;IMEX=1 ' "
conn = New OleDbConnection(strConn)
Dim myCommand As OleDbDataAdapter
myCommand = New OleDbDataAdapter( "SELECT * FROM [ " + name + "$] ", strConn)

myCommand.Fill(myDataSet)
GridView1.DataSource = myDataSet
GridView1.DataBind()
Return myDataSet
End Function

16,717

社区成员

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

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