Visual Basic アプリケーションの作成

1. フォームのコードを書きます

   Public Class Form1
       'フォルダとファイル名は、分けたほうが後々良さそう。
       Private dir_Name As String = "C:\Users\grot3\Desktop"
       Private db_Name As String = "Database1.accdb"
   
       'データセットの作成
       '他からも使用できるようにクラス変数にし、スコープをsharedにしておく
       Shared ds As DataSet = New DataSet()
       Shared table As New DataTable()
   
       Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
           ds.Clear()
           Dim accdb As String = "Provider=Microsoft.ACE.OLEDB.12.0 ; Data Source=" _
   		& dir_Name & "\" & db_Name
   
           'パスワード付きの場合
           Dim accdb As String = "Provider=Microsoft.ACE.OLEDB.12.0 ; Data Source=" _
   		& dir_Name & "\" & db_Name & ";Jet OLEDB:Database Password=" & password & "";"
   
   
           Dim sql As String = "SELECT * FROM TABLE"
   
           Dim conn As New System.Data.OleDb.OleDbConnection(accdb)
           conn.Open()
   
   
   
           'アダプタの作成
           Dim Adapter As New System.Data.OleDb.OleDbDataAdapter(sql, conn)
           'データの読み込み
           Adapter.Fill(ds, "TABLE1")
   
   	'バインドデータの作成
   	BindingSource1.DataSource = ds.Tables("TABLE1")
   	'部品「DataGridView」へのバインドデータ割り当て
   	Me.DataGridView1.DataSource = BindingSource1
   
           conn.Close()
   
       End Sub
   End Class
   

   <<メモ>>
   bind(バインド-結びつける)という通り、それぞれの部品にデータを関連付ける場合、
   バインドでデータを保有する必要があります。
   
   開発過程において、関連付ける必要が出てくることは多いため、始めからバインドでデータを保有しましょう。