現在 'データベース接続オブジェクト Private dbcon1 As New OleDb.OleDbConnection Private dbcon2 As New OleDb.OleDbConnection Private dbcon3 As New OleDb.OleDbConnection 'データセット Private datset1 As New DataSet Private datset2 As New DataSet Private datset3 As New DataSet 'データアダプタ Private dbadpt1 As New OleDb.OleDbDataAdapter Private dbadpt2 As New OleDb.OleDbDataAdapter Private dbadpt3 As New OleDb.OleDbDataAdapter 'コマンド Private dbcmdSelect1 As New OleDb.OleDbCommand Private dbcmdSelect2 As New OleDb.OleDbCommand Private dbcmdSelect3 As New OleDb.OleDbCommand
'コマンド自動ビルダ Dim cmdbld1 As New OleDb.OleDbCommandBuilder(dbadpt1) Dim cmdbld2 As New OleDb.OleDbCommandBuilder(dbadpt2) Dim cmdbld3 As New OleDb.OleDbCommandBuilder(dbadpt3)
■No34581に返信(Vettyさんの記事) > 現在 > 'データベース接続オブジェクト > Private dbcon1 As New OleDb.OleDbConnection > Private dbcon2 As New OleDb.OleDbConnection > Private dbcon3 As New OleDb.OleDbConnection > > という構成でひとつのMDBファイル(古いアクセス形式)内の > 3つのテーブルをそれぞれ専用のDataGridViewに表示しています。