• 締切済み

DataSetのFilter

お世話になります。 VB.NET とAS400(DB2)を使っています。 以下のデータセットでエラーが発生します。 Dim dr As DataRow() dr = dsData_table.Tables(0).Select("CUSTOMER = '00001' AND PRODUCT1 || PRODUCT2 = 'A001B001' ") 実行した時に 「System.Data.SyntaxErrorException: 構文エラー : '|' 演算子の前にオペランドがありません。」が出ています。 誰かお分かりになりますでしょうか？ 教えてください。

みんなの回答

  • NYOI
  • ベストアンサー率58% (56/96)
回答No.1

MSDNより。 http://msdn2.microsoft.com/ja-jp/library/det4aw50(VS.80).aspx >引数 filterExpression を作成するには、フィルタを作成するときに DataColumn クラスの Expression プロパティの値に適用する規則と同じ規則を使用します。 ↓DataColumn クラスの Expression プロパティ http://msdn2.microsoft.com/ja-jp/library/det4aw50(VS.80).aspx DB2のSQL感覚で「||」を使われたのだと思いますが、filterExpressionで||は利用できません。 連結は+で出来ると思います。 dr = dsData_table.Tables(0).Select("CUSTOMER = '00001' AND PRODUCT1 + PRODUCT2 = 'A001B001' ")

dafreak
質問者

お礼

どうも有り難う御座いました。 助かりました。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【ASP.NET】DataSetをSqlDataSourceに組み込めますか？

    ASP.NET　Visual Studio 2005で開発を行っています。 GridViewのページングの機能を使用するには、「SqlDataSource」や「ObjectDataSource」を使用しないと有効にならないと思いますが、データベースがDataSetになっています。 この状態から、GridViewにデータをバインドし、ページングを有効にさせるには、どうしたらよいでしょうか？？ SqlDataSourceにDataSetを持っていくという方法が調べても、分かりませんでした。 以下が使用しているソースです。 これですと、ページングが有効にならず、エラーになる状態です。 ============================================= Dim dSet As Data.DataSet = New Data.DataSet("データ") Dim dTbl As Data.DataTable Dim dRow As Data.DataRow dTbl = dSet.Tables.Add("データ") dTbl.Columns.Add("aaa", Type.GetType("System.String")) dRow = dTbl.NewRow() dRow("aaa") = "bbb" dTbl.Rows.Add(dRow) Me.GridView1.DataSource = dTbl Me.GridView1.DataBind() ====================================== どうぞ、宜しくお願いします。

  • この行は既に別のテーブルに属しています

    以下のソースで、「この行は既に別のテーブルに属しています。」というエラーが出てしまいますが、対処方法がわかりません。 どのようにしたらよろしいでしょうか？ VS2003のVBです。 　　　　Dim Table1 As DataTable = Me.DS1.Tables("データベース１") 　　　　Dim Table2 As DataTable = Me.DS1.Tables("データベース２") 　　　　Dim Row1 As DataRow 　　　　Dim Row2 As DataRow 　　　　Row1("データ１") = 1 　　　　Row1("データ２") = 2 　　　　Row1("データ３") = 3 　　　　Row2("データ１") = 2 　　　　Row2("データ２") = 3 　　　　Row2("データ３") = 4 　　　　Table2.Rows.Add(Row2) ←ここでエラー 　　　　Table1.Rows.Add(Row1) 'System.ArgumentException' のハンドルされていない例外が system.windows.forms.dll で発生しました。 追加情報 : この行は既に別のテーブルに属しています。

  • 配列と互換性のない型の要素にアクセスしようとしまし

    以下のソースでサブルーチン呼び出し行で例外「配列と互換性のない型の要素にアクセスしようとしました」が出ます。 -------------------------------------------------------------------------- Private Sub メインルーチン() 　Dim Rows() As Data.DataRow = MyDataSet.Tables(MyTableName).Select("条件") if Rows.Count <> 0 then サブルーチン (Rows(0)) end if End Sub Private Sub サブルーチン(ByRef Row As Data.DataRow) '処理 End Sub ---------------------------------------------------------------------------- サブルーチンを呼び出す前に以下のようにするとエラーはでません。 Dim Row as Data.DataRow = Rows(0) サブルーチン (Row) これはなぜなのでしょうか？RowはData.DataRow型であり、配列の要素Rows(0)もData.DataRow型でありエラーが出る意味が分からないのですが。

  • VB.NET LoadDataRowでDBデータの更新ができない

    VB.NETですが、 DataSet.Tables(0).LoadDataRow()でデータの更新をしたいのですが DBに登録されません。なぜでしょうか 以下の手順の処理で問題があるのでしょうか？ 以下ソース pAddUpdList(0) = "2" pAddUpdList(1) = "2" pAddUpdList(2) = "col1data" pAddUpdList(3) = "col2data" f(ここでwDataSet.Tables(0)のプライマリーキーの設定処理) wDataSet.Tables(0).BeginLoadData() Dim myRow As DataRow myRow = wDataSet.Tables(0).LoadDataRow(pAddUpdList, True) wDataSet.Tables(0).EndLoadData() ' ここの時点でwDataSetはちゃんと更新されているのですが f(ここでOleDbDataAdapter.Update(wDataSet):DBアップデート処理) 'しかしDBに反映されてない ------ LoadDataRowでネットを検索してみたのですが、ヒットするものがあまりありません。 サンプルなどがあれば教えていただきたいのですが。

  • DataGridViewでitemを指定してデータ

    DataGridViewでitemを指定してデータを取得する事はできますか？ 下記のように座標を指定して取得する方法はわかります。 Dim IntItem1 As Integer = DataGridView1(j, i).Value DataSetの場合は、DataRowに落として取れます。 Dim DataRow1 As DataRow = DataSet1.Tables("Table1").Rows(0) Dim IntItem1 As Integer = DataRow1("Item1") 同じノリで DataGridViewからアイテムを指定してデータを取得したいのですが下記のような事はできませんでした。 Dim DataGridViewRow1 As DataGridViewRow = DataGridView1.Rows(0) Dim IntItem1 As Integer = DataGridViewRow1("Item1")　←　エラー 書き方があれば教えて下さい。

  • アクセスＤｂのテーブル項目属性の取得(VB2005)

    ご協力いただき、table名　field名までは取得できたのですが、種々プロパティを試していますが、fieldの「桁数」「タイプ」がどうしても取得できません。DAoでは .size .type だったのですが。 この部分接続など略(800文字とのことなので) Cn.Open() Dim S As String Dim tbl As DataTable Dim myRows() As DataRow tbl = Cn.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "TABLE"}) Dim I As Short myRows = tbl.Select() 'S = myRows(1).ItemArray(2) Dim ds As New DataSet For Each row As DataRow In myRows 'MsgBox(row.ItemArray(2)) Dim cmd As New OleDb.OleDbCommand("SELECT * From " + row.ItemArray(2), Cn) Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader Dim da As New OleDb.OleDbDataAdapter("SELECT * From " + row.ItemArray(2), Cn) da.Fill(ds, row.ItemArray(2)) For I = 0 To dr.FieldCount - 1 S = dr.GetName(I) 'Field name S = ds.Tables(0).Columns(I).ColumnName 　　　　　　　　　この２行は同じものがとれます。 tables columns gettypeなど　どれもうまく取得できませんでした。 よろしくご教示ください。

  • カンマ区切りの文字列をDatasetに登録するには？【VB.NET2005】

    テキストファイルを読込んでカンマ区切りでDatasetに登録する際は 以下の方法で行っていました。 Dim tfp As New TextFieldParser(fileName, System.Text.Encoding.GetEncoding("Shift_JIS")) Dim dt As New DataTable Dim dr As DataRow tfp.TextFieldType = FieldType.Delimited tfp.SetDelimiters(",") While Not tfp.EndOfData dr = dt.NewRow dr.ItemArray = tfp.ReadFields dt.Rows.Add(dr) End While tfp.Close() ds.Tables.Add(dt) これをファイルではなくDim str As String = "123,aaa" という文字列に対して行いたいのですが、 上記のReadFieldsの用に使える物は無いでしょうか？

  • VB 2005 データテーブルのソートについて

    恐れ入ります。 VB 2005 初心者です。 さっそく質問させていただきます。 VB 2005にて、SQL Server 2003を利用し、 とあるシステムを作成しています。 その中で、DBより取得したデータを、 DataTableのdatatblという変数に格納し、 さらにそのdatatblより、とある条件にて値が欲しくなったので、 dr = datatbl.Select("clm = " & strData & " AND clm2 = '0'") のようにし、DataRowのdrという変数につっこんでます。 ここで、ソートによる並んだデータとして値が必要になりました。 DBで取得し、条件でDataRowにつっこんだ後に、データを ソートすることは可能でしょうか？ 可能であれば、やり方を教えていただけると幸いです。 宜しくお願いいたします。

  • vbでDataTableの抽出コピー

    vbでDataTableの抽出コピー DataTableから条件抽出したデータで別のDataTableを作成したい ・DataTable1から条件抽出したデータで別のDataTableを作成したい ・データの件数が違うだけでヘッダーなどの内容は同じにしたい Dim DataTable1 As DataTable ' 既にテーブルデータが入っているとする Dim DataTable2 As DataTable ' これに一部のデータとヘッダーを複写 Dim DataRow1 As DataRow ' DataRowの一時領域１ Dim DataRow2 As DataRow ' DataRowの一時領域２ ＜試作１：ＮＧ　DataRowの使いまわしがきかない＞ DataTable2 = DataTable1.Clone For Each DataRow1 In DataTable1.Select(条件, ソート) DataTable2.Rows.Add(DataRow1) Next DataRow1 ＜試作２：ＮＧ　ワンクッションかましただけではダメ＞ DataTable2 = DataTable1.Clone For Each DataRow1 In DataTable1.Select(条件, ソート) DataRow2 = DataRow1 DataTable2.Rows.Add(DataRow2) Next DataRow1 もしかして、個別セット以外に道はないのでしょうか？ DataTable2 = DataTable1.Clone For Each DataRow1 In DataTable1.Select(条件, ソート) DataRow2 = DataTable2.NewRow DataRow2("item1") = DataRow1("item1") DataRow2("item2") = DataRow1("item2") DataRow2("item3") = DataRow1("item3") DataRow2("item4") = DataRow1("item4") DataRow2("item5") = DataRow1("item5") DataRow2("item6") = DataRow1("item6") DataRow2("item7") = DataRow1("item7") DataRow2("item8") = DataRow1("item8") DataTable2.Rows.Add(DataRow2) Next DataRow1 何か良い方法はありませんか？

  • デ－タテ－ブルの内容での更新の書き方が分らず困っています

    VB2008とADO.NETを勉強中の初心者です。 以下のようなプログラムで、デ－タテ－ブルの内容を変更後（このプログラムでは削除のみですが、追加の処理もやりたいと思っています）"SYOYOURYOU"を更新して、再度読み込みたいと思っています。 いろいろ、参考書等を見たのですが旨く処理できません。 *ＤＢを再読み込みのために更新* の部分での記述の方法を教えて頂けないでしょうか。 よろしくお願いします。 '*LLCの初期化 Dim LLC As Integer = 0 Dim cn As New OleDbConnection cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=C:\MAPICS\MAPICS-S.mdb" Dim da As OleDbDataAdapter 'DataAdapterの作成 '*LLCを　0 から　10 まで処理 For LLC = 0 To 10 '所要量抽出 'DataAdapterの作成 da = New OleDbDataAdapter("SELECT * FROM SYOYOURYOU WHERE Syo_LLC =" & Str(LLC), cn) 'データを取得 Dim ds As New DataSet da.Fill(ds, "SYOYOURYOU") If ds.Tables("SYOYOURYOU").Rows.Count > 0 Then 'DataGridViewに表示 DataGridView1.DataSource = ds.Tables("SYOYOURYOU") MsgBox("確認1") For i = 0 To ds.Tables("SYOYOURYOU").Rows.Count - 1 'SYOYOURYOUをもとに処理を行う(この部分は省略) '処理済みのSYOYOURYOUのデ－タを削除 Dim dr As DataRow dr = ds.Tables("SYOYOURYOU").Rows(i) dr.Delete() 'DataGridViewに表示 DataGridView1.DataSource = ds.Tables("SYOYOURYOU") MsgBox("確認1") Next '***************************** 'ＤＢを再読み込みのために更新 '***************************** End If Next '終了処理 End

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する