VB6.0用掲示板の過去のログ(No.2)－VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2004/10/10(Sun) 16:48 |
| 投稿者 | ： miho |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： VB⇒ACCESSテーブルへの更新処理 |
御世話になります。今回で投稿3回目、まだまだ初心者ですがよろしく御願いいたします。
VB/ACCESS連携についてご教示いただきたく投稿させていただきました。
VBプログラムから入力された値を、ACCESSテーブルへ更新させたいと考えております。
従来からあるプログラムをメンテナンスすることになり、ACCESSの呼び出し方は
従来のコードを流用しております。
⇒下記に記載の以下のコード部分
Set AppAccess = CreateObject("Access.Application")
AppAccess.OpenCurrentDatabase "C:\r002.mdb"
また、アクセス側のテーブル（PR_テーブル）には、現在レコードが１件（PR_key=999）
存在しております。
以下、現在までに行っている具体的内容を記載させていただきます。
VB画面より、入力された”種類”（⇒変数：P_shu）及び、”年月”（⇒変数：P_ym）
を、VBからACCESSを呼び出しACCESSテーブルへ更新させようとしてます。
※VB内のコーディングでは以下の記述をしております。
--------------------------------------------
'Access型オブジェクト インスタンスの作成
Set AppAccess = CreateObject("Access.Application")
'Accessを非表示にする
AppAccess.Visible = False
'AccessDBをオープンする。
AppAccess.OpenCurrentDatabase "C:\r002.mdb"
'Accessテーブル 【PR_テーブル】の項目：「PR_key」が"999"のデータに対して、
'「PR_種」、「PR_ym」項目を入力値で更新する。
AppAccess.DoCmd.RunSQL ("UPDATE PR_テーブル SET PR_種='"" & P_shu & ""'"",PR_ym='"" & P_Ym &""' WHERE PR_Key='"" & 999 &""'")
--------------------------------------------
現在、上記 RunSQLを実行したところ、
「VB-03129：SQLステートメントが正しくありません。」
エラーが返されてしまいます。
そこで、ご教示いただきたいのは、
①実現したい内容に対して、実現方法として正しいか？
（RunSQLで実現可能か？）
②実現方法として、間違っていなければ、記述内容のアドバイス・
ご指導をいただければと思っております。
⇒エラー内容からして、記述の内容に問題があるとは思っております
③別の手段による回避方法（実現手段）
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）