MS Access OLEDBConnection to Excel Issue

Question

所以我现在已经搜索了大约 2 天，虽然我可以找到很多如何将 Excel 工作表放入 gridView 的示例，但它们都不适合我。

这是目标：我需要读取一个 Excel 文件，其中包含一个工作表，并且应该始终是一个工作表，进入 ASP.NET 网站的 GridView，并且我在文件背后的代码中使用 VB.Net。

我尝试了一种尝试使用表名称的架构的方法(以获取工作表名称)，但无论工作表名称是什么，它总是以"Algrip"返回，其中没有任何工作表具有该名称在我测试的任何工作簿中。

所以我放弃了它，现在正在使用这个代码：(这确实完成了工作，有点)

'Setup Variables
Dim xlConnStr As String = ""
Dim FileName As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
Dim Extension As String = Path.GetExtension(FileUpload1.PostedFile.FileName)
Dim FolderPath As String = ConfigurationManager.AppSettings("FolderPath")
Dim sheetname As String = InputBox("Enter Sheetname: ", "Excel Worksheet name")
'Adjust Sheetname
sheetname = sheetname + "$"
'Set Connection based on Excel File Extension
Select Case Extension
Case ".xls"
'Excel  97-03
xlConnStr = ConfigurationManager.ConnectionStrings("Excel03ConString").ConnectionString
Case ".xlsx"
'Excel 07-Forward
xlConnStr = ConfigurationManager.ConnectionStrings("Excel07ConString").ConnectionString
End Select
xlConnStr = String.Format(xlConnStr, FolderPath & FileName)
Dim connXL As New OleDb.OleDbConnection(xlConnStr)
pnlFileInfo.Visible = True
connXL.Open()
Using xlCmd As New OleDbCommand
xlCmd.CommandType = CommandType.Text
xlCmd.CommandText = ("Select * From [" + sheetname + "]")
xlCmd.Connection = connXL
Using xlDS As New DataSet()
Using xlDA As New OleDbDataAdapter(xlCmd)
xlDA.Fill(xlDS)
gvExcelFile.DataSource = xlDS
gvExcelFile.DataBind()
End Using
End Using
End Using
connXL.Close()

现在我的问题是这个;在以下行：

xlCmd.CommandText = ("Select * From [" + sheetname + "]")

如果我没有左括号和右括号，因为某些工作表名称中有空格，我会收到查询错误。但是，如果我添加括号，它会提示我两次输入工作表名称。对于我的生活，我不知道为什么。

我在上面列出的行上放置了一个断点并检查了变量 sheetname 的值，它是正确的，但由于某种原因我再次收到提示。

有没有人知道它为什么要这样做？我错过了什么？我理想中想要的是能够读取工作表名称并将其与 select 语句一起输入到行中，这样就不需要用户操作，但我得到的只是相同的错误工作表名称"Algrip"。

Excel工作表是一个xls文件，但如果有帮助，可以保存为xlsx。

如果我能让它动态读取工作表名称，我愿意重做代码。

感谢您的任何帮助！！

Answer 1

尝试将整个命令存储在变量中，然后使用OleDbCommand构造函数将其分配给xlCmd.CommandText

Dim sheetname As String = InputBox("Enter Sheetname: ", "Excel Worksheet name")
sheetname = sheetname & "$"
Dim strQuery As String = "Select * From [" & sheetname & "]"
...
Using xlCmd As New OleDbCommand(strQuery ,connXL)
Using xlDS As New DataSet()
Using xlDA As New OleDbDataAdapter(xlCmd)
xlDA.Fill(xlDS)
gvExcelFile.DataSource = xlDS
gvExcelFile.DataBind()
End Using
End Using
End Using
connXL.Close()