上図の様なフォームを作成し、上部のコンボボックスに、Accessからテーブルの内容を取得し、”コードID”-”コード名”として表示させたいと考えています。
また、下の「リスト表示」ボタンを押すとコンボボックスの内容がリストボックスで表示されるようにもしたいと思っております。
そこで、自分なりに調べてみて、下記のコードを書いてみました。
AccessのDBに接続するモジュールを作成しようとしているのですが、
DBへの接続した後、テーブル内容を取得し、配列に格納する処理が、調べても良く分かりませんでした。
Module Module1 '設定 Private Prvd As String = "Microsoft.Jet.OLEDB.4.0" 'プロバイダ Private fol_name As String = "C:\test" 'DBが入っているフォルダ Private db_name As String = "test.mdb" 'DBファイル名 Sub DBread(ByVal table_name As String) '接続文字列 Dim Cn_txt As String = "Provider=" & Prvd & "; Data Source=" & fol_name & "\" & db_name 'SQL文 Dim SQL_txt As String = "SELECT * FROM " & table_name 'データアダプターを生成 Dim Adapter As New System.Data.OleDb.OleDbDataAdapter(SQL_txt, Cn_txt) 'データの読み込み Dim Table1 As New DataTable() Adapter.Fill(Table1) End Sub End Module
追加しなければならない部分を教えて頂きたいです、よろしくお願いします。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/10/26 08:48
2016/10/27 04:50
2016/10/31 02:34