Database VB.NET中的数据库访问
我使用以下代码访问了VB.NET中的数据库:Database VB.NET中的数据库访问,database,vb.net,Database,Vb.net,我使用以下代码访问了VB.NET中的数据库: Public Class Form1 Private Sub btnLoad_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnLoad.Click Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection Dim dbProvi
Public Class Form1
Private Sub btnLoad_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnLoad.Click
Dim con As OleDb.OleDbConnection = New OleDb.OleDbConnection
Dim dbProvider As String
Dim dbSource As String
Dim ds As New DataSet
Dim da As OleDb.OleDbDataAdapter
Dim sql As String
dbProvider = "PROVIDER=Microsoft.Jet.OLEDB.4.0;"
dbSource = "Data Source = AddressBook.mdb"
con.ConnectionString = dbProvider & dbSource
con.Open()
sql = "SELECT * FROM tblContacts"
da = New OleDb.OleDbDataAdapter(sql, con)
da.Fill(ds, "Address Book")
MsgBox("Database Open")
con.Close()
MsgBox("Database Closed")
txtFirstName.Text = ds.Tables("AddressBook").Rows(0).Item(1)
txtSurname.Text = ds.Tables("AddressBook").Rows(0).Item(2)
End Sub
End Class
但是在“txtFirstName.Text=ds.Tables(“AddressBook”).Rows(0).Item(1)”行中,它给了我一个异常,表示应该创建对象的实例。我不明白到底是什么问题。如何创建实例,以及应该创建什么样的实例?您在中使用了空格
da.Fill(ds, "Address Book")
但是没有空间
txtFirstName.Text = ds.Tables("AddressBook").Rows(0).Item(1)
用于表的名称。因此,名为“AddressBook”的表不存在。如果以后再次出现此错误,请使用调试器查找错误,您将在应该存在对象的位置找到值
Nothing
。此处ds.Tables(“不存在的表”)
返回Nothing
,因此行(0)
引发异常。