0

次のコードを使用して、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 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)」の行では、オブジェクトのインスタンスを作成する必要があるという例外が表示されます。問題が正確に何であるかを理解していません。インスタンスを作成するにはどうすればよいですか? また、どのインスタンスを作成すればよいですか?

4

1 に答える 1

0

でスペースを使用しました

da.Fill(ds, "Address Book") 

しかし、スペースはありません

txtFirstName.Text = ds.Tables("AddressBook").Rows(0).Item(1)

テーブルの名前。したがって、「AddressBook」という名前のテーブルは存在しません。

于 2012-07-08T15:28:54.737 に答える