VB.NET “System.Data.OleDb.OleDbException”类型的未经处理的异常在 System.Data.dll 中发生
我是初学者,这个问题怎么解决 什么原因啊 谢谢大家了
下面是 源代码:
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