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 ステートメントに認識できないフィールド
その他(データベース)
-
ACCESS2007 VBA 「INSERT INTO~」について
PowerPoint(パワーポイント)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
6
パラメータが少なすぎます。1を指定して下さい。""
Excel(エクセル)
-
7
レコード登録時に「演算子がありません」構文エラーが発生
その他(プログラミング・Web制作)
-
8
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
9
Accessで数値型にNULLをInsertするとエラー
その他(データベース)
-
10
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
11
ODBCの接続に失敗しました(3146)について
その他(Microsoft Office)
-
12
ACCESSでの改行コード
その他(データベース)
-
13
VBAのAccessでDATE型のINSERT
その他(データベース)
-
14
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
15
実行時エラー 3265「要求された名前、または序数
Visual Basic(VBA)
-
16
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
-
17
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
18
新規レコード行を非表示にしたい
Access(アクセス)
-
19
Access サブフォームでの選択行の取得
その他(データベース)
-
20
「データベースまたはオブジェクトは読み取り専用なので、更新できません」エラーについて
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAがブレークモードになっ...
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
【Excel VBA】マクロをボタンに...
-
エクセルエラー13型が一致しま...
-
VBS実行時エラー オブジェクト...
-
DataGridView からの値取得に関...
-
EXCEL/VBAで、自分のPCだけエラ...
-
ExcelVBAで、ユーザー定義型は...
-
ExcelVBA Range クラスの Page...
-
EXCEL VBAマクロ中断でデバッグ...
-
AccessVBAでExcelを起動し、罫...
-
Outlook.ApplicationをCreateOb...
-
vbaのvlookup関数エラー原因を...
-
VBAにて計算式をセルへ代入でき...
-
「実行時エラー3001」のポップ...
-
マクロについて教えてください...
-
IEのダウンロード通知バーのVBA...
-
実行時エラー3001「引数が間違...
-
VB6+SQL サーバー 2000 で 実行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
VBAがブレークモードになっ...
-
なぜこんな初歩的なVBAのIf文で...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
VBSで変数の宣言はできないので...
-
【Excel VBA】マクロをボタンに...
-
ExcelVBA Range クラスの Page...
-
VBS実行時エラー オブジェクト...
-
プロシージャ名の取得
-
実行時エラー -'-2147417848
-
EXCEL VBAマクロ中断でデバッグ...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
ADODB.Streamを使用してUTF-8を...
-
なぜエラーになるのでしょうか...
-
Outlook.ApplicationをCreateOb...
-
VBAのエラー発生場所をメッセー...
-
AccessVBAでExcelを起動し、罫...
おすすめ情報