検索結果の表示

初めましてVB初心者です。
初歩的な質問になりますがよろしくお願いいたします。

データへの接続までは出来たのですが、内容をどのように表示をさせるかが分かりません。

◆やりたい事
　決定ボタンを押すとText Box4に入力された内容でテーブルを検索し、
　フォームにテーブルから読みだした内容を表示

◆環境
　・Visual　Studio2017
　・Access2016

◆フォームの内容
　検索：Text Box4
　決定：Button1
　日付：Text Box1
　名前：Text Box2
　住所：RichTextBox1
　年齢：Text Box3

◆テーブルの内容
　・日付　⇒　Text Box1に表示
　・名前　⇒　Text Box2に表示
　・住所　⇒　RichTextBox1に表示
　・年齢　⇒　Text Box3に表示

No.4 ベストアンサー 回答者： めぐみん_ 回答日時： 2018/01/03 20:08

変数：dr (OleDbDataReader の）はテーブルの内容をコントロールに代入し必要なくなったら dr.Close してください。

リンク先では Using を用いているためそれを省いてますので。

この回答へのお礼

回答ありがとうございます。

添付していただきましたリンクを参考にしてもう少し勉強してみます。
色々助けていただき、ありがとうございました。

お礼日時：2018/01/03 21:49

No.3 回答者： めぐみん_ 回答日時： 2018/01/03 19:44

https://www.adonetvb.com/AdoNetExecuteReaderOle. …

古いバージョンですけど、

Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader()
これと
『それぞれのコントロール名』= dr("フィールド名を指定")

でいけるのではないかと。
ただしデータの型によっては変換が必要かもです。

SQL文は
str_sql = "SELECT * FROM テーブル名 WHERE 名前 = '" & TextBox4.Text & "';"

になるかな？

No.2 回答者： めぐみん_ 回答日時： 2018/01/03 18:46

うちのが古すぎるからなのか、書き方が違うみたいですね。

取り敢えずは『OleDbDataReader』でデータを取得しないとダメだとは思いますが、この書き方に合わせる方法について知識不足です。
すいません。

ところで

＞決定ボタンを押すとText Box4に入力された内容でテーブルを検索し、
テーブルの『どのフィールドを検索させる』のでしょう？
全てってなるとフィールドの型が同じならまだしも違うと面倒かも知れませんよ。

この回答へのお礼

OleDbDataReaderを使用するのですね。
ありがとうございます。調べてみます。

検索するのは「名前」フィールドを検索といったかたちで考えております。

お礼日時：2018/01/03 19:00

No.1 回答者： めぐみん_ 回答日時： 2018/01/03 14:37

接続方法によって変わってくるかもですので、接続できたやり方かコードを提示したら良かったのかも。

この回答へのお礼

回答ありがとうございます。
接続のコードは下記になります。
よろしくお願いいたします。

cn = New OleDb.OleDbConnection
cn.ConnectionString = My.Settings.ss_練習
cn.Open()
cmd = cn.CreateCommand
cmd.CommandText = str_sql
cmd.Connection = cn
cmd.ExecuteReader()
cn.Close()
cmd.Dispose()

お礼日時：2018/01/03 15:19