■73977 / inTopicNo.6) |
Re[5]: GridViewで表示データを選択し他のテーブルに挿入 |
□投稿者/ とし (5回)-(2014/11/19(Wed) 13:41:00)
|
■No73919 (とし さん) に返信 > ■No73918 (WebSurfer さん) に返信 >>■No73916 (とし さん) に返信
WebSurfer さんに教えて頂いたURLを元にちょっとやってみましたがダメで
ここを参考に作成しました。 http://kuri6005.sakura.ne.jp/aspnet/wiki/index.php?AccessDB%A4%CEOleDb%A4%C7%A4%CE%C1%DE%C6%FE%A1%A6%B9%B9%BF%B7%A1%A6%C3%EA%BD%D0%A1%A6%BA%EF%BD%FC%CB%A1 CLASSの使い方が良く解らないのもありまして・・・
とりあえず重複チェックは正常に動作しましたが挿入の処理で下記エラーメッセージが出てうまく行きません。 1 つ以上の必要なパラメータの値が設定されていません。
ソースは以下の通りでパラメータの個数は何回も数えて合わせているのですが・・・ 良く解りません。
'AccessDBにOleDbで接続 'OleDbでのパラメータ設定はPositional Parameter方式(Values(?, ?, ?))で設定 Dim cmd1 As New Data.OleDb.OleDbCommand("Insert Into [AB工程経費] ([SEQ],[原価センタコード], [原価センタ名称], [工程ID],[工程名],[種別],[],[行], [資産], [識別],[科目],[科目名],[金額(年間)],[使用率],[削除CHK],[Count], [登録]) Values(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", con)
' パラメータの設定 'ParametersコレクションのValueプロパティの省略形記法 'cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Seq", SeqControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@GenkaCode", GenkaCodeControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@GenkaName", GenkaNameControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Koutei_id", Koutei_idControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Koutei_Name", Koutei_NameControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Syubetsu", SyubetsuControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@tanaNo", tanaNoControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Gyou", GyouControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@ShisanNo", ShisanNoControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Shikibetsu", ShikibetsuControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Kamoku", KamokuControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Kamoku_Name", Kamoku_NameControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Kingaku", KingakuControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Shiyou_Ritsu", Shiyou_RitsuControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@SakujoChkCon", SakujoChkControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Cunt", CuntControl)) cmd1.Parameters.Add(New Data.OleDb.OleDbParameter("@Touroku", TourokuControl))
'クエリの実行(INSERTクエリの場合は結果セットを返さないExecuteNonQuery) Try cmd1.ExecuteNonQuery()
Catch b As Exception message.Text = b.Message
End Try
見て頂けると助かります。 宜しくお願い致します。
|
|