请问错在哪里呢？关于Excel
Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=C:\123.xls; " & _
"Extended Properties=Excel 8.0; "
Dim dcolink As New System.Data.OleDb.OleDbConnection
dcolink.ConnectionString = str
Dim da As New System.Data.OleDb.OleDbDataAdapter( "Select * From [Sheet1$] ", dcolink)
Dim ds As New DataSet
If Not IsNothing(ds.Tables( "1234 ")) Then
ds.Tables( "1234 ").Clear()
End If
Try
da.Fill(ds, "1234 ")
Catch
MessageBox.Show( "读取Excel文件失败,请确认文件是否存在? ", "错误 ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Exit Sub
End Try
运行就是不行到“da.Fill(ds, "1234 ")”就出错，是还需要引入什么吗？我看大家都这么写都没错为什么，谢谢
[解决办法]
你Excel sheet的名字是 "1234 "??
[解决办法]
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source=C:\123.xls; " & _ "Extended Properties=Excel 8.0; " Dim conn As New OleDbConnection(strConn) Dim mycommand As New OleDbDataAdapter( "SELECT * FROM [sheet1$] ", strConn) Dim myDataSet As New DataSet mycommand.Fill(myDataSet) DataGrid1.DataSource = myDataSet 将strconn里面的多余空格去掉
[解决办法]
up
