
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で質問しましょう!
似たような質問が見つかりました
- MySQL #1062 - '0' は索引 'PRIMARY' で重複しています。とでています。 1 2023/01/01 06:13
- PHP プログラムコードを入力する場合改行してもいいですか? 2 2022/10/02 16:05
- PHP PostgreSQLからCSV形式でエクスポートする際にカラム内の改行をとる方法 1 2023/02/22 10:05
- SQL Server AccessのInsertクエリのあとつづけてDeleteクエリを行いたいがSQLでどう書いたらいい 3 2023/05/27 14:12
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- MySQL 動画をsqlで上手くinsertできません。 Typeはlongblob型にしています。 構文エラー 1 2022/04/07 10:10
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- MySQL SQLです。下記の問合せを行うクエリを、PhpMyAdminで作成して実行せよ。 「昨年の各月の総降 1 2023/07/01 00:32
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- CGI perlで書いたcgiでsqliteの使い方を教えてください 2 2023/05/08 21:29
このQ&Aを見た人はこんなQ&Aも見ています
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
INSERT INTO ステートメントに認識できないフィールド
その他(データベース)
-
accessの SQL文 INSERT命令
Access(アクセス)
-
-
4
Access2010 「演算子がありません」エラー
その他(データベース)
-
5
ACCESS2007 VBA 「INSERT INTO~」について
PowerPoint(パワーポイント)
-
6
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
INSERT INTOステートメント構文エラー
Visual Basic(VBA)
-
9
レコード登録時に「演算子がありません」構文エラーが発生
その他(プログラミング・Web制作)
-
10
VBでSQL文のUPDATE構文を使った時のエラーについて
Visual Basic(VBA)
-
11
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
12
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
13
実行時エラー '3464': 抽出条件でデータ型が
Access(アクセス)
-
14
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
15
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
16
アクセスVBAのMe!と[ ]
Access(アクセス)
-
17
「パラメータが少なすぎます。3を指定してください。」って???
Access(アクセス)
-
18
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
19
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
20
ACCESS VBAの実行時エラーなんですが
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
実行時エラー 438になった時の...
-
【マクロ】エラー【#DIV/0!】が...
-
ADODB.Streamを使用してUTF-8を...
-
実行時エラー -'-2147417848
-
なぜこんな初歩的なVBAのIf文で...
-
実行時エラー3001「引数が間違...
-
【エクセル】ハイパーリンク先...
-
DataGridView からの値取得に関...
-
OLEDB.NETで接続できない
-
VB6+SQL サーバー 2000 で 実行...
-
【Excel VBA】マクロをボタンに...
-
マクロについて教えてください...
-
ACCESSのエラーで困っています
-
ExcelVBA Range クラスの Page...
-
エラーでつまってます・・・お...
-
vbaのvlookup関数エラー原因を...
-
ExcelのVBAのAutoFillの使い方...
-
「コンパイルエラー:プロシー...
-
VBAでのエラー
-
VBA:「中断モードでは入力でき...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
実行時エラー -'-2147417848
-
ExcelVBA Range クラスの Page...
-
マクロについて教えてください...
-
VBAでのエラー
-
【Excel VBA】マクロをボタンに...
-
実行時エラー48発生時のDLL特定...
-
EXCEL VBAマクロ中断でデバッグ...
-
なぜエラーになるのでしょうか...
-
実行時エラー3001「引数が間違...
-
OLEDB.NETで接続できない
-
INSERT INTOステートメント構文...
-
VBAのエラー発生場所をメッセー...
-
VB6+SQL サーバー 2000 で 実行...
-
Outlook.ApplicationをCreateOb...
-
ADODB.Streamを使用してUTF-8を...
-
カーソルオープンでエラー(ORA...
-
Invalid procedure call or arg...
おすすめ情報