• 全部
  • VBS
  • .NET技术
  • VBA
  • VB网络编程
  • VB多媒体
  • VB数据库
  • VB控件
  • VB COM/DCOM
  • VB基础类
  • VB API
  • 问答

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

blueraindrop 2005-03-03 09:40:25
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 中。
...全文
69 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
foolnet 2005-03-03
你查看异常信息呀
回复
blueraindrop 2005-03-03
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
回复
youlongzaitian 2005-03-03
重新引用了看看!
回复
blueraindrop 2005-03-03
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驱动未注册
回复
mazekui 2005-03-03
"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"
试试
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
申请成为版主
帖子事件
创建了帖子
2005-03-03 09:40
社区公告
暂无公告