Question

VB.NET用代码连接access数据库不成功。方式oledb

我在vs2010中编写vb代码，企图在formload过程中，在datagridview中显示access数据库

代码如下：
Private Sub Nutrition_Demo_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim strconn As String strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=F:\Nutrition\Nutritions.mdb;jet oledb:database password=123456"
Dim objconn As New OleDb.OleDbConnection(strconn) objconn.Open()

Dim strsql = "select * from DBDB" Dim objadap As New OleDbDataAdapter(strsql, objconn)
objconn.Close()
Dim objDSet As New DataSet()
objadap.Fill(objDSet, "DBDB") DataGridView1.DataSource = objDSet.Tables("DBDB")
End Sub

执行后还是没有数据显示，想请高手具体解答。万分感谢

Answer 1

去掉objconn.Open()和  objconn.Close()，因为OleDbDataAdapter的Fill方法会自动开启连接和关闭连接

没有没有数据看是否 DBDB表中本来就没有数据？可以用DataTable验证

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim strconn As String
        strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Nutrition\Nutritions.mdb;Jet OLEDB:Database Password=123456"
        Dim objconn As New OleDb.OleDbConnection(strconn)
        Dim strsql = "select * from DBDB"
        Dim objadap As New OleDb.OleDbDataAdapter(strsql, objconn)
        Dim tb As New DataTable
        objadap.Fill(tb)
        DataGridView1.DataSource = tb
    End Sub

追问

我按照你的原封不动输进去，还是没有用。。。我不知道是不是其他地方出问题了

追答

刚才输错了Data Sourse，应该是Data Source，被你的代码迷惑了

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        
        Dim strconn As String
        strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Nutrition\Nutritions.mdb;Jet OLEDB:Database Password=123456"
        Dim objconn As New OleDb.OleDbConnection(strconn)
        Dim strsql = "select * from DBDB"
        Dim objadap As New OleDb.OleDbDataAdapter(strsql, objconn)
        Dim tb As New DataTable
        objadap.Fill(tb)
        DataGridView1.DataSource = tb
    End Sub

追问

大侠，能问下你能运行并找到数据库吗，为什么我还是木有反应。。还有为什么总是会有
“在 System.Data.OleDb.OleDbException 中第一次偶然出现的“System.Data.dll”类型的异常”

追答

我的当然可以啊，我测试成功的，关键是你的F:\Nutrition\Nutritions.mdb路径是否正确，里面的表
DBDB是否存在，密码是否123456，你把Nutritions.mdb附件出来看看

追问

发给你吗？ 是这样的。

表肯定是有的，密码也有。。。里面的表也有，就是打开access会弹出这个《

这是路径，顺便问下，能加下扣聊下吗

追答

你发的是图片啊，要发文件啊！也就是你的那个数据库文件

追问

能不能加扣聊？361690506 文件不方便放出来额。。。

Answer 2

你选用ACCESS版本是多少呢？
2007以上的Provider=Microsoft.Jet.OLEDB.4.0;Data Sourse=F:\Nutrition\Nutritions.mdb;jet oledb:database password=123456需要改成Provider=Microsoft.ACE.OLEDB.12.0;Data Sourse=F:\Nutrition\Nutritions.mdb;jet oledb:database password=123456

我有应用好的代码，供参考
Try
RecordsetBooks.Close()
ConnectBooks.Close()
Catch
Try
ConnectBooks.Close()
RecordsetBooks.Close()
Catch ex As Exception
End Try
End Try
ConnectBooks.Open("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & NowDatabase & ";Persist Security Info=False")
RecordsetBooks.CursorLocation = ADODB.CursorLocationEnum.adUseClient
RecordsetBooks.Open("Select * From [图书信息]", ConnectBooks, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockOptimistic)
DataBooks.DataSource = RecordsetBooks.DataSource
DataBooks.Update()

Answer 3

你的WINDOWS系统是64位的吗，要是64位的，这个程序要改编译环境为x86，否则不行的。因为oledb只是32位的， 64位系统就不能用。

Answer 4

objDSet.Tables(0)

追问

请问这是什么意思啊。为什么

追答

试下这样,应该可以了!
Dim objDSet As New DataSet()
objadap.Fill(objDSet, "DBDB")
objconn.Close()
DataGridView1.DataSource = objDSet.Tables("DBDB")

追问

虽然没有错误，但是一直有这个东西
在 System.Data.OleDb.OleDbException 中第一次偶然出现的“System.Data.dll”类型的异常

到最后还是空白

追答

我远程看下,QQ多少

追问

361690506