TableAdapterのSELECT文を参照したい

Question

DataGridViewを用いてデータベースの中身を参照する画面を作成しています。
textboxに入力された値で検索項目に絞り込みをかけようと思っています。
tableadapterのSELECT文を参照した後にwhere句を連結させればいいと考えたのですがうまく行きません。　
実行した時、dataAdapterのselect文を代入している箇所で、
nullを参照しているとエラーが出てしまいます。参照している場所が悪いのでしょうか。

よろしくお願いします。

''' <summary>
	''' 検索ボタンをクリックしたら
	''' </summary>
	Private Sub btnKENSAKU_Click(sender As Object, e As EventArgs) Handles btnKENSAKU.Click

		'DataAdapterのselect文を参照
		Dim strSql As String = M0010TableAdapter.Adapter.SelectCommand.CommandText
		Dim strHncd As String = Me.txtHMNO.Text				'品目コードtxtboxの中身
		
		If strHncd <> "" Then

			strSql = strSql + "WHERE " + strHncd

		End If

		

		'連結した文字列をSELECT文に返す
		Me.M0010TableAdapter.Adapter.SelectCommand.CommandText = strSql

		'TODO: このコード行はデータを 'KOBAISET.M0010' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
		Me.M0010TableAdapter.Fill(Me.KOBAISET.M0010)

	End Sub

Comments

[退会済みユーザー]

根本的に考え方が間違っているように思えるのですが。既に Fill 済みの DataSet/DataTable のインスタンスが存在するのでしょうか？ であれば、それから絞り混んだ方が良いと思います。

Answer 1

上の私の質問、

既に Fill 済みの DataSet/DataTable のインスタンスが存在するのでしょうか？

に対する返事がないですが、たぶんその通りで、以下のような全レコード表示まではできていて、

後は、TextBox に絞り込み条件を入力して、Button クリックで絞り込み結果を以下のように表示したいということであれば、

以下のようなコードで可能です。コードは C# ですが読めなければ変換サービスを使ってください。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Windows.Forms;

namespace WindowsFormsApplication1
{
    public partial class Form3 : Form
    {
        public Form3()
        {
            InitializeComponent();
        }

        private void productsBindingNavigatorSaveItem_Click(object sender, EventArgs e)
        {
            this.Validate();
            this.productsBindingSource.EndEdit();
            this.tableAdapterManager.UpdateAll(this.northwindDataSet);

        }

        private void Form3_Load(object sender, EventArgs e)
        {
            this.productsTableAdapter.Fill(this.northwindDataSet.Products);

        }

        private void button1_Click(object sender, EventArgs e)
        {
            if (!String.IsNullOrEmpty(this.textBox1.Text))
            {
                NorthwindDataSet.ProductsDataTable table = this.northwindDataSet.Products;

                // 以下のように DataView を取得して、その RowFilter プロパティに設定するのが正解。

                table.DefaultView.RowFilter = "ProductName LIKE '%" + this.textBox1.Text + "%'";
                this.productsBindingSource.DataSource = this.northwindDataSet.Products;
            }
            else
            {
                // 最初の全レコード表示に戻す場合
                NorthwindDataSet.ProductsDataTable table = this.northwindDataSet.Products;
                table.DefaultView.RowFilter = "";
            }
        }
    }
}

Comments

[_ali]

返答が遅くなり、申し訳ありません。
少し別のことをやっていました。
おっしゃる通り、fill済みのインスタンスがなかったことが原因のようでした。
参考にさせて頂きます。ありがとうございました。

Answer 2

まず、デザイナでFillが自動で作成されたと思いますが、Fillを実行するまではM0010TableAdapter.Adapter.SelectCommandはNothingとなっています。
Fillを実行すると、M0010TableAdapterのプライベートメンバーである_commandCollection(0)に格納されているSqlCommandがM0010TableAdapter.Adapter.SelectCommandにセットされます。

このような動作のため、M0010TableAdapter.Adapter.SelectCommandを変更したとしても、内部で_commandCollection(0)に変わりますので意味がありません。

条件を追加したい場合は、デザイナで新たにクエリの追加を行ってください。

Answer 3

参照したM0010TableAdapter.Adapter.SelectCommand.CommandTextの内容によるんじゃないでしょうか。
from テーブルなどで終わっていればいいですけど、where条件などがあると文法エラーになりませんか？
from テーブルで終わっているなら、

 strSql = strSql + " WHERE " + strHncd

のように、whereの前に空白や改行がないと、これも文法エラーです。

追記

Fill実行しないとCommandTextには値は入らないようです
以下が参考にならないでしょうか
TableAdapterのクエリを変更する

Comments

[_ali]

回答ありがとうございます。
エラーが出て止まる箇所は

Dim strSql As String = M0010TableAdapter.Adapter.SelectCommand.CommandText

上記の部分です。NullReferenceExceptionはハンドルされませんでした。とエラーが出ます。テーブルアダプターを確認するとしっかりセレクト文が入っているのですが、この部分をｳｫｯﾁするとNothingになっています。