
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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
accessの SQL文 INSERT命令
Access(アクセス)
-
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
4
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
5
Accessで数値型にNULLをInsertするとエラー
その他(データベース)
-
6
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
7
構文エラー:演算子がありません。 ACCESS SQL
その他(データベース)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
実行時エラー -2147217900 ADODBでレコードセットオープン時エラー
Access(アクセス)
-
10
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
11
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
Access2010 「演算子がありません」エラー
その他(データベース)
-
14
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
15
INSERT INTOステートメント構文エラー
Visual Basic(VBA)
-
16
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
17
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
18
SQLの構文エラー??
Microsoft ASP
-
19
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
20
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
VBSで変数の宣言はできないので...
-
5
Outlook.ApplicationをCreateOb...
-
6
マクロについて教えてください...
-
7
実行時エラー -'-2147417848
-
8
実行時エラー9 インデックスが...
-
9
EXCEL VBAマクロ中断でデバッグ...
-
10
ExcelVBAで、ユーザー定義型は...
-
11
VBAのコードがエラーになっ...
-
12
エクセルエラー13型が一致しま...
-
13
SHFileOperationについて
-
14
VBAがブレークモードになっ...
-
15
ADODB.Streamを使用してUTF-8を...
-
16
VBS実行時エラー オブジェクト...
-
17
Invalid procedure call or arg...
-
18
職場から目的地までの距離集計
-
19
Excel2019 ワークシートのコピ...
-
20
Access:結果は出るがエラー
おすすめ情報
公式facebook
公式twitter