質問: VB.NETでACCESS DBに接続するアプリを作成しました。 DBファイルはネットワークの共有フォルダに置いてあるのですが、 他の場所に移して利用することもあるので、保存先を選択できるようにしたいです。
回答: 当方は VB.NET 2003(VB) しか使っておりませんが、貴殿のスキルがPG作成が 出来るものとして、回答してみます。 DB内に正常OPENを判定する為の特定のファイル、レコードを作成して、 1度取得してみてエラーであれば、DBを再度選択し直すような事で回避できませんでしょうか? 読込が正常であれば、ダイアログ等にセット(要履歴確認)すればOkでは? Dim 棚接続 As OleDb.OleDbConnection = New OleDb.OleDbConnection Dim 棚DB As DataSet = New DataSet("TEST") Dim 作場所, 作本名, 作表名 As String 棚接続.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & 作場所 & 作本名 & ";Persist Security Info=False" 作表名 = "設定" 作検索 = "SELECT * From " & 作表名 & " WHERE 項目='必須'" 抽設定 = New OleDb.OleDbDataAdapter(作検索, 棚接続) 抽設定.Fill(棚DB, 作表名) 表設定 = 棚DB.Tables(作表名) 示設定 = New DataView(棚DB.Tables(作表名), "", "", DataViewRowState.CurrentRows) 設定最大 = 表設定.Rows.Count If 設定最大 < 1 Then MsgBox("設定レコードがありません、存在場所が違うのでは?") Me.DB選択.Focus() End If App.config については利用方法が良く分かりません。 追記 読込方法は何にせよ、処理を始める前に1度読んでみて、 (上記ルーチンでは省略していますが)エラーになったら存在しないと判断させ、 存在場所選択のリストボックスの再入力へ移動させると言う考え方です。 尚、”作場所”が接続場所を指示する変数ですので、リストボックス等の の内容を 作場所= Me.リストボックス.SelectedItem 等の処理により 埋め込み、処理を行えば手入力する必要は無いと思います。