締切済み

子フォームでDB更新後、親フォームに戻った際、DBを読み直しするには？？

2010/02/01 00:24

Visual Basic　2008　DB:Access MDB 親フォームにはDatarepeater　があり、DB情報を表示して該当する情報にあるボタンをクリックすると子フォームが表示されます。子フォームでその行について修正すると親フォームに戻るのですが、子フォームの情報が反映されません。子フォームを閉じた際、表示されているデータを最新にしたいのですが、再読込みのコーディングを教えてください。

juujuu2929
お礼率69% (29/42)

Visual Basic
回答数4
ありがとう数3

みんなの回答 （4）
専門家の回答

みんなの回答

NOBNNN
ベストアンサー率50% (93/186)

2010/02/02 15:14 回答No.4

juujuu2929さん　こんにちわ以前、サンプルを提示しました NOBNNN です。子フォーム　云々かんぬん　と考える前に基本技術をみにつけないと意味がわからないまま　作業をしていることになります。簡単なＤＢアプリケーションサンプルをいくつか作ってみて習得してください。参考：　■ Visual Studio 2005によるWindowsデータベース・プログラミング http://www.atmarkit.co.jp/fdotnet/vblab/vsdbprog_index/index.html 　■　第1回　DBアプリのデータソースとなるデータベースの作成　　　http://www.atmarkit.co.jp/fdotnet/vblab/vsdbprog_01/vsdbprog_01_03.html 　　　　■　第2回　データセットとデータテーブル　　　http://www.atmarkit.co.jp/fdotnet/vblab/vsdbprog_02/vsdbprog_02_01.html 　　　　■ 第3回　テーブルアダプタの基礎　 http://www.atmarkit.co.jp/fdotnet/vblab/vsdbprog_03/vsdbprog_03_01.html 　　マイクロソフトでは　チュートリアルを公開しています。 ■「300 秒でズバリ !!」 & 「10 行でズバリ !!」シリーズ　 http://msdn.microsoft.com/ja-jp/events/dd283146.aspx 　上記のサイトで勉強してください。今回の質問に関係することは　１、ＤＢにアクセスし、どうやって自分のコントロール(たとえば DataRepeater) にデータを充填するのか　バインドはどうするのか？　　２、子フォーム　つまり別クラスで作業をした、この場合は子フォーム側でＤＢを更新した結果をえるのか？　　この2点です。　１、については　上記参考サイト「第3回　テーブルアダプタの基礎」を参考にしてください。　　ＶＢ．ＮＥＴは　2002　からバージョンアップされてきていますので　いくつかの方法があります。　　まずは　OleDataAdapter 　サンプル： http://hiros-dot.net/VBNET2005/Control/DataSet/DataSet01.htm 　　つぎに　TableAdapter 　サンプル　: http://msdn.microsoft.com/ja-jp/events/dd279516.aspx 　　バインドするには　　　TEXTBOX、DataGridView や DataRepeater などのコントロールオブジェクトに　DataTable　を指定する場合は　　　　TEXTBOXにDataTableをバインド　　　　 Me.Txt販売コード.DataBindings.Add("Text", DT_Row, "販売コード") Me.Txt支店.DataBindings.Add("Text", DT_Row, "支店") Me.Txt商品.DataBindings.Add("Text", DT_Row, "商品") 　　　DataGridView　サンプル: http://d.hatena.ne.jp/coma2n/20090924/1253779717 　　　　　２については　　　クラスプログラミングを勉強する必要があります。　　　　　　参考：　オブジェクト指向入門　　　http://www.atmarkit.co.jp/channel/oo/oo.html 　　　以上　

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2010/02/01 16:11 回答No.3

DataRepeater1のDataSourceを更新しないことには、テキストボックスの内容を更新させようとしても、古いままです。「DBにアクセス」して、「最新のデータ」を「DataRepeaterに与えてあげる」ことが必要です。私の最初の発言「初期読み込み部分を関数化し」補足にそちらで試した4命令が載っていますが、初期読み込み時に、その内のどの命令かをお使いですか？通常「DB再読み込み」という命令などありません。「DB再読み込み」という処理を行うために、「その部分を関数化する必要がある」と伝えているのです。 [DdBindingSource] って何？変数？コントロール？取得方法は？こちらも何もわからない状況で、4命令だけ部分公開して「わからない」と言われても、何も言えません。・前後関係・変数/オブジェクト命名の統一化（宣言の部分とコメントによる補足）・エラー発生時には、発生箇所/エラー番号/メッセージ内容などを注意して行うと、求める的確な情報が得られやすいと思います。

1050 円（@1050YEN）
ベストアンサー率69% (477/687)

2010/02/01 10:22 回答No.2

ShowDialogは、ダイアログとして表示するだけの機能ではありません。呼ばれた側は、ステータスを返却できます。 >初心者なのでコーディング内容がわかりません初心者であればなおの事、「丸投げの質問」をするのではなく・まずやってみる・部分的にわからないところを、前後関係のソースを載せ、質問するというようにしましょう。お礼欄にありましたが、自分で「ShowDialog」というキーワードを載せていますが、それでググってみましたか？サンプルはいくらでも転がっているはずです。会社でやっているのであれば、他の業務のソースもあるでしょうし、自宅でやるのであれば、何らかの書籍を一冊はもっているのではないですか？ >関数化と実行のプログラミング内容を教えてください。と言われても、大まかにしか答えられません。先にも言ったように、「初期読み込み部分を関数化」です。あなたのコードがわからないのに、こちらで関数化なんてできません。何となくのサンプルを載せてはおきますが、この程度のサンプルは、ちょっと探したらいくらでも転がっております。 http://okwave.jp/search?word=ShowDialog&boolean=and&target=&ques_stat=&c_select=true&date=&sort=score&c=257 ここの掲示板でShowDialogの質問はいっぱいあります。目的にマッチするものがあるかはわかりませんが、一つ一つ目を通すのを「手間」と感じていてはいけません。上級者はもっと的確に履歴を絞りはしますが、絞りきれないときは、やはり全て目を通していきます。そこから本来の目的とは違っても、目から鱗のテクニックを見つけることもあります。まずは努力を・・・ '------------------------------ 'ダイアログ呼び出し側 '------------------------------ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 　　'フォーム2をダイアログで表示　　Dim l_frm2 As New Form2 　　'ダイアログでからの戻り値を取得　　Dim l_dlgRet As Windows.Forms.DialogResult = l_frm2.ShowDialog() 　　'戻り値による分岐　　Select Case l_dlgRet 　　　　Case Windows.Forms.DialogResult.OK 　　　　　　Call MsgBox("OKが帰ってきたので、読み込み処理") 　　　　　　'ここで関数を実行　　　　Case Windows.Forms.DialogResult.Cancel 　　　　　　Call MsgBox("キャンセルされてきたので、何もしない") 　　End Select End Sub '------------------------------ 'ダイアログ側（Form2） '------------------------------ Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 　　'OKボタン処理　　Me.DialogResult = Windows.Forms.DialogResult.OK End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 　　'キャンセルボタン処理　　Me.DialogResult = Windows.Forms.DialogResult.Cancel End Sub

質問者

補足 2010/02/01 12:07

またまた早々にありがとうございました。書籍は3冊、逆引き500や基本などの本ですが、今回親フォーム側でリスト形式でDataRepeaterを使って表示させ、その中に「子フォーム」へのボタンを配置しております。クリックにより子フォームが開き、該当するデータを更新できるのですが、戻ってきた際親フォームのDB表示は変更前のままになってて苦戦中でした。 showdialogにしてもだめ、サイトからDataRepeaterを使用する際は.ResetBindings(false)で再読込みが必要（癖があるから？）だとの情報で設定してもダメ。本屋さんではあまりDataRepeaterの記載もなく苦戦しておりました。また探し方もダメだったんですね。「DB　再　読込み」とかで検索している時点で間違っていたのかもしれません。戻ってきた際、 'DdBindingSource.ResetBindings(False) 'Me.Refresh() 'Me.ResetText() 'f4.Dispose() も順番に足してデバックしてみたのですがダメでした。配置の問題なのかそもそも間違っているのか、余計わけがわからなくなってあせっていました。