| ■43690 / ) |
Re[1]: フィールド名の取得について |
□投稿者/ がながな (26回)-(2009/11/16(Mon) 16:02:03)
|
申し訳ございません
誤字が見つかりましたので、下記に修正させていただきます
STRSQL = "select " _
& "得意先コード,[Farm-OutRev] as [FarmOutRev],製作号機左,親部品番号2,RAWMATNO2," _
& "PDMLREV2,加工完了日,PL区分PDML,表処完了日,型式コード,個数機左,個数機右," _
& "製作号機右,PLREV,PDMLREV1,PL区分APL1,EOREV,DRWREV,KITNO2,掴み代,板圧," _
& "ラバーグループBMS,巾,ラバーグループKE,長,個数取,単位,材料名称,形状区分," _
& "個数取左右,材料規格,型材番号,業務,材料個数,品保,資材コード,DRAWADCN,登録日," _
& "PLADCL,加工プロ,工作図REV,表処プロ,技術,得意先略称" _
& " from " _
& "[TA1001_ASOrderメイン]" _
& " where " _
& "ID=" & 100
ASODataAdapter = New SqlDataAdapter(STRSQL, cnASO)
ASODataSet = New DataSet
ASODataAdapter.Fill(ASODataSet, "TA1001_ASOrderメイン")
ASOTable = ASODataSet.Tables("TA1001_ASOrderメイン")
とし、通常なら
MyTable.Rows(0).BeginEdit()
MyTable.Rows(0)("得意先コード") = me.得意先コード.Text
MyTable.Rows(0)("FarmOutRev") = me.FarmOutRev.Text
MyTable.Rows(0)("製作号機左") = me.製作号機左.Text
MyTable.Rows(0)("親部品番号2") = me.親部品番号2.Text
-----STRSQLフィールドの全てを対応して記入------
MyTable.Rows(0).EndEdit()
とするのですが、For文を使用して行数を少なくしたいと思います。
DataReaderならFieldcountプロパティがあったので、可能だったのですがこの場合どのようにすればいいのでしょうか？
。尚、STRSQLのフィールド名をフォームのテキストボックスの名前は同じ名前にしてあります。
御教授の程よろしく御願いいたします。
|
|
