VB.NETにAccessのデータを取得したいです。

Question

前提・実現したいこと
VB.NETにAccessのデータを取得したいです。

発生している問題・エラーメッセージ
BC30590　イベントLoadが見つかりません。とエラーが表示されます。
エラーは二行目「 Private Sub frmConnectAccessDB_Load(sender As Object, e As EventArgs) Handles MyBase.Load」の最後のLoadで発生してます。

該当のソースコード

```
Public Class frmConnectAccessDB
        Private Sub frmConnectAccessDB_Load(sender As Object, e As EventArgs) Handles MyBase.Load

            'SQL作成
            Dim resultDt As New DataTable
            Dim sql = New System.Text.StringBuilder()
            sql.AppendLine("SELECT")
            sql.AppendLine("  *")
            sql.AppendLine("FROM ID給料")

            'Access接続準備
            Dim command As New OleDbCommand
            Dim da As New OleDbDataAdapter
            Dim cnAccess As OleDbConnection = New OleDbConnection
            cnAccess.ConnectionString = My.Settings.アクセス

            'Access接続開始
            cnAccess.Open()

            Try

                command.Connection = cnAccess
                command.CommandText = sql.ToString
                da.SelectCommand = command

                'SQL実行 結果をデータテーブルに格納
                da.Fill(resultDt)


            Catch ex As Exception
                Throw
            Finally
                command.Dispose()
                da.Dispose()
                cnAccess.Close()
            End Try

            'データテーブルの結果を表示
            For rowindex As Integer = 0 To resultDt.Rows.Count - 1
                For colindex As Integer = 0 To resultDt.Columns.Count - 1
                    Console.Write(resultDt.Rows(rowindex).Item(colindex).ToString & " ")
                Next
                Console.WriteLine()
            Next

        End Sub
    End Class


```

自分で調べたことや試したこと
VBとACCESSの接続は問題ないと思います。

使っているツールのバージョンなど補足情報
ACCESSのバージョン2103
Windows10の64ビット
WindowsFormsを作成
Visual Studio2019
NET Framework 4.8を使用してます。

以上となります。

ご教示よろしくお願い致します。

Accepted Answer

Access のレコード一覧を DataGridView などの UI に表示し、ユーザーが UI を見て編集した結果を、元の Acess のテーブルに反映させるというようなことがやりたいこととと想像してますが、もしそうであれば一度 Visual Studio のウィザードを使って定番の構成のアプリを作ってみることをお勧めします。

DB が SQL Server の場合ですが、以下のチュートリアル、

チュートリアル : データベースへのデータの保存 (単一テーブル)
[https://docs.microsoft.com/ja-jp/previous-versions/0f92s97z(v=vs.120)](https://docs.microsoft.com/ja-jp/previous-versions/0f92s97z(v=vs.120))

・・・のように Visual Studio のデータソース構成ウィザードを利用して型付 DataSet + TableAdapter を作って、それを利用してアプリを作ると、以下の画像のアプリを自分で一行もコードを書かずに作れます。（Microsoft が提供しているサンプル Northwind2007.accdb の Products テーブルがベースです）

![イメージ説明](b9528a35afd6de4bfea865373247438a.jpeg)

どうやって作るかを簡単に書きますと、まず、以下の記事に書いてあるように Visual Studio のデータソース構成ウィザードを使って型付 DataSet / DataTable + TableAdapeter を作ります。

新しいデータ ソースの追加
[https://docs.microsoft.com/ja-jp/visualstudio/data-tools/add-new-data-sources?view=vs-2019](https://docs.microsoft.com/ja-jp/visualstudio/data-tools/add-new-data-sources?view=vs-2019)

完成すると以下のような xsd ファイルが生成されます。

![イメージ説明](8000830453501dbeae9b81f9fa73e14a.jpeg)

Form のデザイナ画面で、データソースウィンドウに以下の画像のように作成した型付 DataSet / DataTable が表示されるので、 DataGridView を選択してから DataTable を Form にドラッグ＆ドロップするだけで完成します。

![イメージ説明](3b60c3495cf854f4db63cff7c4f6871b.jpeg)

操作に慣れると上の画像の Windows Forms アプリが 5 分もかからず作れるはずです。お試しください。自分でどうしてもコードを書きたいという場合でも、自動生成されたコードを見ると参考になると思います。

なお。Access でオートナンバーを使っている場合、INSERT した時に DB 側で設定したオートナンバー値を DataSet に書き込むところまでは面倒を見てくれません。そこを何とかしたい場合は以下の記事を参考にコードを追加してください。

Access の更新
[http://surferonwww.info/BlogEngine/post/2010/09/04/Updating-Access.aspx](http://surferonwww.info/BlogEngine/post/2010/09/04/Updating-Access.aspx)

**【追記】**

**ACE はインストール済みで、Visual Studio から Access に接続できると理解しています。もし違ったらインストールしてください。Visual Studio は 32-bit ですので、ACE に 64-bit 版を使うと Visual Studio から Access への接続はできませんので注意してください。**

Access 2007 の DB を利用するアプリ開発
[http://surferonwww.info/BlogEngine/post/2011/11/08/Development-of-application-which-uses-accdb-file-of-Access-2007.aspx](http://surferonwww.info/BlogEngine/post/2011/11/08/Development-of-application-which-uses-accdb-file-of-Access-2007.aspx)

**【追伸２】**

エラーを何とかしたいということでしたら・・・

何故そんなことになっているのか不明ですが、やり方の問題であろうと思います。

デザイン画面でフォームのプロパティを表示し、雷マークのアイコンをクリックするとイベント一覧が表示されます。Load イベントならそれをダブルクリックすると、

![イメージ説明](f03edccd92329f84e49aa27c861ed42f.jpeg)

以下のようにイベントハンドラの枠組みが自動生成されるので、その中にコードを書いてください。

![イメージ説明](cb8c141e0f417183c037ba2e8fa0510c.jpeg)

関連した質問