VB.NET “System.Data.OleDb.OleDbException”类型的未经处理的异常在 System.Data.dll 中发生

liangwei423 2015-04-08 04:02:51
我是初学者,这个问题怎么解决 什么原因啊 谢谢大家了
下面是 源代码:
Imports System.Data.OleDb
Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim str As String = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = F:\VB.example\1005"
Dim conn As New OleDbConnection(str)
Dim fldnames, sturec As String
conn.Open()
'建立command对象,并发送从stuinfo表中读取所有记录的SQL命令
Dim command As New OleDbCommand("Select * From [shuju]", conn)
Dim dr As OleDbDataReader
dr = command.ExecuteReader
TextBox1.Text = ""
fldnames = ""
For i = 0 To dr.FieldCount - 1
fldnames = fldnames & dr.GetName(i) & ""
Next
TextBox1.Text = TextBox1.Text & fldnames & vbCrLf
Do While dr.Read()
sturec = ""
For i = 0 To dr.FieldCount - 1
sturec = sturec & dr.Item(i).ToString & ""
Next
'讲当前记录添加到文本框中
TextBox1.Text = TextBox1.Text & sturec & vbCrLf
Loop
dr.Close() '关闭oledbdatareader对象
conn.Close()
End Sub
...全文
371 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
betteran00 2016-11-15
我也遇到了这个问题,你是怎么解决的呀?
回复
楚狂歌 2015-04-11
最好加上Try-catch结构
回复
楚狂歌 2015-04-11
1005是文件夹还是MDB文件?自己去路径下找
回复
ivanwfy 2015-04-10
Data Source = F:\VB.example\1005" 这句是不是错了,数据库没有扩展名的么
回复
相关推荐
发帖
VB
创建于2007-09-28

1.6w+

社区成员

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