Microsoft Access Club Access超初心者対象Forum Access初級者対象Forum Access初・中級者対象Forum Access VBA Tips Forum DAO、ADO、SQL Forum

     

リストへもどる

投稿記事の一括表示

タイトルADO接続でAccessが更新できない
記事No10726
投稿日: 2011/04/12(Tue) 19:55
投稿者とら
解決済: ON
OS:WindowsXP SP3
Access Version:Access2003


VisualBasic6.0でADO接続で下記のようなSQL文を作成し
テーブルの更新を行おうとしているのですが、
実行すると「1つ以上の必要なパラメータの値が設定
されていません」と実行時エラーになります。
フィールドの数、フィールド名などの数に問題は
ありません。ほかに何が原因であるかわかりません。
どなたかお助け下さい。よろしくお願いいたします。


I = 1
For I = 1 To P_Cnt_Rows
Grid1.Row = I

SQLArray(0) = "UPDATE T_ORDER_DATA SET"
Grid1.Row = I
Grid1.Col = 1
SQLArray(1) = "A_DKBN ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 2
SQLArray(2) = "EDABAN ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 3
SQLArray(3) = "CONSTDATE ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 4
SQLArray(4) = "CONSTTIME ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 5
SQLArray(5) = "HMDATE ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 6
SQLArray(6) = "HMTIME ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 7
SQLArray(7) = "CONSTMEISAI ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 8
SQLArray(8) = "AMOUNT ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 9
SQLArray(9) = "TRADERNAME ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 10
SQLArray(10) = "DEMANDKBN ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 11
SQLArray(11) = "DEMANDUNITPRICE ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 12
SQLArray(12) = "PAYMENTUNITPRICE ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 13
SQLArray(13) = "DEMANDSUM ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 14
SQLArray(14) = "PAYMENTSUM ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 15
SQLArray(15) = "ARRANGEMENTREMARKS ='" & Trim(Grid1.Text) & "',"

Grid1.Row = I
Grid1.Col = 16
SQLArray(16) = "CONSTREMARKS ='" & Trim(Grid1.Text) & "',"

SQLArray(17) = "CONSTREQUESTFLG ='0',"
SQLArray(18) = "CONSTREQUESTDATE ='',"
SQLArray(19) = "CONSTENDFLG ='0',"
SQLArray(20) = "CONSTENDDATE ='',"
SQLArray(21) = "BILLPUBFLG ='0',"
SQLArray(22) = "BILLPUBDATE ='',"
SQLArray(23) = "BILLENDFLG ='0',"
SQLArray(24) = "BILLENDDATE ='',"
SQLArray(25) = "REGDATE ='" & Format$(Now, "YYYY/MM/DD") & "',"
SQLArray(26) = "REGTIME ='" & Format$(Now, "HH:MM:SS") & "',"
SQLArray(27) = "REGPERSON ='',"
SQLArray(28) = "UPDATEDATE ='" & Format$(Now, "YYYY/MM/DD") & "',"
SQLArray(29) = "UPDATETIME ='" & Format$(Now, "HH:MM:SS") & "',"
SQLArray(30) = "UPDATENAME ='',"
SQLArray(31) = "VALIDFLG ='1'"
SQLArray(32) = "WHERE SYSSEQNO ='" & Trim(LblSysSeqNo.Caption) & "'"

SQL = Join(SQLArray)

Set rs = New ADODB.Recordset
rs.Open SQL, cn

Next I

cn.Close: Set cn = Nothing

タイトルRe: ADO接続でAccessが更新できない
記事No10727
投稿日: 2011/04/13(Wed) 00:03
投稿者よろずや
解決済: ON
> SQL = Join(SQLArray)
の結果のSQL文はどうやって確認しましたか?

タイトルRe^2: ADO接続でAccessが更新できない
記事No10728
投稿日: 2011/04/13(Wed) 09:10
投稿者とら
解決済: ON
> > SQL = Join(SQLArray)
> の結果のSQL文はどうやって確認しましたか?

よろずやさん、レスありがとうございます。

VBの「イミディエイト」で確認しました。
よろしくお願いいたします。

タイトルRe^3: ADO接続でAccessが更新できない
記事No10732
投稿日: 2011/04/14(Thu) 00:44
投稿者hoya
解決済: ON
こんばんは

その内容をクエリのSQLとして実行出来るでしょうか?
エラー内容としては、根本的な何かが1つ間違えているようので
フィールド半分にしてテスト、OKなら反対側でテストと
地道にチェックするしか無いかと ^^;

タイトルRe^4: ADO接続でAccessが更新できない
記事No10783
投稿日: 2011/05/12(Thu) 08:59
投稿者とら
解決済: ON
hoyaさん

返事が遅くなり、すみません。
下記、『追い込み』で解決しました!
やはり1箇所フィールド名が間違っていました。
ありがとうございました。

タイトルRe: ADO接続でAccessが更新できない
記事No10731
投稿日: 2011/04/13(Wed) 23:47
投稿者よろずや
解決済: ON
> SQL = Join(SQLArray)

cn.Execute SQL

って話かな。

タイトルRe^2: ADO接続でAccessが更新できない
記事No10784
投稿日: 2011/05/12(Thu) 09:01
投稿者とら
解決済: ON
よろずやさん

ありがとうございます。
少しずつ区切ってクエリの実行を行ったところ
1箇所フィールド名に間違いがありました。
無事に解決しました。
ありがとうございました。

- 以下のフォームから自分の投稿記事を修正・削除することができます -
処理 記事No パスワード

ページの先頭へ 前ページへ戻る