
INSERT INTOステートメント構文エラーについての質問です
VB6.0+Access2003で開発を行っていますがInsert文の発行で上記のエラーメッセージが表示されます。
エラーとなっている部分は
Set rst = Ado_connect.Execute(strINS)
です。
rstはDim rst As ADODB.Recordsetと宣言しています。
Debug.Print strINSでinsert文を取得し、クエリでSQLを実行したところ、正常に追加されました。
様々なサイト等を調べて単純にSQLがおかしいだけだと思って修正をしていたのですがクエリでSQLが正常に実行できたということはSQLに問題がないということでしょうか?
正直手詰まりといった感じでSQL以外に何を修正すれば良いかわからないというのが現状でこちらに質問させていただきました。
皆様の知恵を貸してください。どうかよろしくお願い致します。
No.3ベストアンサー
- 回答日時:
No.4
- 回答日時:
SQL文はパラメータを含んでいるので
パラメータを宣言しておく必要が
あるのでは。
http://support.microsoft.com/kb/181782
また、Parameters.Addメソッドでググってみてください。
Parameters.Add()の設定は単に
obj.Parameters.Add(パラメータ名、データ型)
です。
設定は単純なものですが、設定には少し
とまどうものがあるかもしれません。
参考 VB.NETでのやりとりです。OKWAVEでも過去ログにあるでしょう。
http://bbs.wankuma.com/index.cgi?mode=al2&namber …
No.2
- 回答日時:
通勤時間の最後のカンマは不要です。
strINS = strINS + "'" & .Combo(1).Text & "',"
↓
strINS = strINS + "'" & .Combo(1).Text & "'"
あと、数値型に文字型を代入しても大丈夫だったっけ?
'年齢
strINS = strINS + .Combo(0).Text & ","
'通勤時間
strINS = strINS + .Combo(1).Text
としたほうがいいのでは?
nag0720様>
回答ありがとうございます。
>通勤時間の最後のカンマは不要です
ご指摘ありがとうございます。カンマは消し忘れていました。
>あと、数値型に文字型を代入しても大丈夫だったっけ?
ACCESSのDBをテキスト型に変更しました。
ご指摘いただいた点を変更し、再度実行してみましたが、やはり同じところで同じメッセージがでてきます。
もうちょっと過去ログやプログラムを洗い直して検証しなおしてみます。
ありがとうございました。
No.1
- 回答日時:
その「上記のエラー」やSQLそのものを書いてくれないと、答えようがないんですけど・・・
確かに、SQLを直接実行して成功するが、プログラムからだと失敗する、というケースはあります。
たとえば、SQLに余計な区切り文字(Oracleなら;)を書いているとか・・・
この回答への補足
kotoby2003様>
早速の回答ありがとうございます。
>その「上記のエラー」やSQLそのものを書いてくれないと、答えようがないんですけど・・・
申し訳ございません。記述を忘れていました。
SQLはこのように記述しています。
With aaa
strINS = "INSERT INTO TEST1 ("
strINS = strINS + "NAME,"
strINS = strINS + "INITIAL,"
strINS = strINS + "COUNTRY,"
strINS = strINS + "AGE,"
strINS = strINS + "JIKAN"
strINS = strINS + ") VALUES ("
'名前
strINS = strINS + "'" & .Txt(0).Text & "',"
'名前(イニシャル)
strINS = strINS + "'" & .Txt(1).Text & "',"
'国籍
strINS = strINS + "'" & .Txt(2).Text & "',"
'年齢
strINS = strINS + "'" & .Combo(0).Text & "',"
'通勤時間
strINS = strINS + "'" & .Combo(1).Text & "',"
strINS = strINS + ")"
Set rst = Ado_connect.Execute(strINS)の部分で
「INSERT INTOステートメントの構文エラー」です。とエラーメッセージが表示されます。
>確かに、SQLを直接実行して成功するが、プログラムからだと失敗する、というケースはあります。
勉強になりました。エラーメッセージでもそう言っているのでやはりinsert文がどこかプログラムから実行する上でおかしいのかなと思います。
もう一つ補足ですが、Combo()は年齢(18~60)、通勤時間(5,10,15,20....)とコンボボックスで作成し、DBは数値型にしています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
accessの SQL文 INSERT命令
Access(アクセス)
-
-
4
Access2010 「演算子がありません」エラー
その他(データベース)
-
5
Access サブフォームでの選択行の取得
その他(データベース)
-
6
ACCESS2007 VBA 「INSERT INTO~」について
PowerPoint(パワーポイント)
-
7
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
8
レコード登録時に「演算子がありません」構文エラーが発生
その他(プログラミング・Web制作)
-
9
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
10
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
11
INSERT INTOステートメント構文エラー
Visual Basic(VBA)
-
12
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
13
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
14
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
15
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
16
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
17
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
18
アクセスVBAのMe!と[ ]
Access(アクセス)
-
19
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBAがブレークモードになっ...
-
実行時エラー48発生時のDLL特定...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBA IEの操作 ClassNameでエラ...
-
【マクロ】エラー【#DIV/0!】が...
-
なぜこんな初歩的なVBAのIf文で...
-
[Delphi] データセットは閉じて...
-
VBAで、定数式が必要ですのエラ...
-
マクロについて教えてください...
-
エクセルエラー13型が一致しま...
-
VBAで実行時エラー'424' オブジ...
-
ASP.NET OleDbConnectionが定義...
-
VBAのエラー発生場所をメッセー...
-
実行時エラー3001「引数が間違...
-
『実行時エラー 5 プロシージャ...
-
【Excel VBA】マクロをボタンに...
-
excel vbaでレート取得について...
-
VB6+SQL サーバー 2000 で 実行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
VBAがブレークモードになっ...
-
【マクロ】エラー【#DIV/0!】が...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAでのエラー
-
実行時エラー -'-2147417848
-
実行時エラー48発生時のDLL特定...
-
マクロについて教えてください...
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
実行時エラー3001「引数が間違...
-
EXCEL/VBAで、自分のPCだけエラ...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAのエラー発生場所をメッセー...
-
ADODB.Streamを使用してUTF-8を...
-
【Excel VBA】マクロをボタンに...
-
OLEDB.NETで接続できない
-
なぜエラーになるのでしょうか...
-
INSERT INTOステートメント構文...
-
Outlook.ApplicationをCreateOb...
おすすめ情報