未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

[blueraindrop]

cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=d:\cs\1.xls;Extended Properties=Excel8.0"
' Select the data from Sheet1 of the workbook.
cn.Open()
昨天下班前还能正常运行，今天早上就报错
未处理的“System.Data.OleDb.OleDbException”类型的异常出现在 system.data.dll 中。

[mazekui]

"provider=Microsoft.Jet.OLEDB.4.0;data source=d:\cs\1.xls;Extended Properties=Excel8.0"
改成
"provider=Microsoft.Jet.OLEDB.4.0;data source=d:\\cs\\1.xls;Extended Properties=Excel8.0"
试试

[blueraindrop]

cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=d:\cs\1.xls;Extended Properties=Excel8.0"
' Select the data from Sheet1 of the workbook.
cn.Open()
现在出现提示oledb驱动未注册

[youlongzaitian]

重新引用了看看！

[blueraindrop]

youlongzaitian(游龙在天)
我现在想把excel中的数据取出来放到数据库中
Dim cm As New System.Data.OleDb.OleDbCommand
Dim cn As New System.Data.OleDb.OleDbConnection
Dim rs As System.Data.OleDb.OleDbDataReader
cn.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source=d:\cs\1.xls;Extended Properties=Excel 8.0"
' Select the data from Sheet1 of the workbook.
cn.Open()

cm.Connection = cn

cm.CommandText = "select * from [Sheet1$]"
rs = cm.ExecuteReader

While rs.Read
Dim xh As String = "0"
If rs.GetValue(4).GetType.Name <> "DBNull" Then

xh = rs.GetValue(4)

Else
xh = rs.GetDouble(4)

End If
现在取出来的只要是第四列第一行是字符型的，第四列第二行以后的数字型就都取不出来数据
我现在想从第二行选出来怎么解决

End While

[foolnet]

你查看异常信息呀