Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1620 / 2272 ツリー ←次へ | 前へ→

【6259】JOIN操作の構文エラー チリ子 05/9/12(月) 16:37 質問[未読]
【6260】Re:JOIN操作の構文エラー MJM 05/9/12(月) 16:57 回答[未読]
【6261】Re:JOIN操作の構文エラー たん 05/9/12(月) 17:34 回答[未読]
【6262】Re:JOIN操作の構文エラー たん 05/9/12(月) 17:35 回答[未読]
【6268】Re:JOIN操作の構文エラー チリ子 05/9/13(火) 9:53 お礼[未読]

【6259】JOIN操作の構文エラー
質問  チリ子  - 05/9/12(月) 16:37 -

引用なし
パスワード
   こんにちは。またまた、投稿させて頂きました。
テーブルが「DATA」と「TEST」の二つがあります。
DATAテーブルにTESTテーブルのデータを移動させようと思い、調べて以下のように書いてみました。TESTテーブルは名前がころころ変わってしまう為、テーブル名をテキストボックスに記入して、テーブルを指定しようと思いました。
しかし、「JOIN操作の構文エラーです。」というエラーがでてしまいます。
JOIN操作を調べても、いまいち分かりません。
ご教授宜しくお願致します。

Dim cnADO As ADODB.Connection
Dim mySQL As String     
Const CurrentTableName = "DATA"
Set cnADO = CurrentProject.Connection
mySQL = "INSERT INTO" & "[" & CurrentTableName & "]" & "SELECT*" & "FROM(Forms![データ参照]![テキスト1]);"
cnADO.Execute mySQL
Set cnADO = Nothing

【6260】Re:JOIN操作の構文エラー
回答  MJM  - 05/9/12(月) 16:57 -

引用なし
パスワード
   こんにちは。

>mySQL = "INSERT INTO" & "[" & CurrentTableName & "]" & "SELECT*" & "FROM(Forms![データ参照]![テキスト1]);"

mySQL = "INSERT INTO " & CurrentTableName & " SELECT * FROM " & Forms![データ参照]![テキスト1]"

では、如何でしょうか。

【6261】Re:JOIN操作の構文エラー
回答  たん  - 05/9/12(月) 17:34 -

引用なし
パスワード
   >mySQL = "INSERT INTO" & "[" & CurrentTableName & "]" & "SELECT*" & "FROM(Forms![データ参照]![テキスト1]);"

まず、mysqlに格納されている内容をデバックして下さい。

あと、なんでもいいので、クエリエディタ上で追加クエリを作って、mySQLの内容と
比較してみて下さい。

少なくとも、空白がきちんと処理されていないのがはっきりします。

あと、テーブル名が変わる場合、

SELECT T1.FIELD1 FROM TABLE1 AS T1;

等のようにして、別名にしておいて、TABLE1の所を変更するようにして組みます。
そうしないと、テーブル名だけ変えても、フィールド名がテーブルを見つけられなく
なるので。

【6262】Re:JOIN操作の構文エラー
回答  たん  - 05/9/12(月) 17:35 -

引用なし
パスワード
   と、書いていたら、MJMさんから正解が。

とりあえず、MJMさんの構文と自分の構文を比べ、何処が間違っているのかを
確認し、その後、きちんとヘルプ等で記述方法を確認しましょう

【6268】Re:JOIN操作の構文エラー
お礼  チリ子  - 05/9/13(火) 9:53 -

引用なし
パスワード
   ▼たん さん:
>とりあえず、MJMさんの構文と自分の構文を比べ、何処が間違っているのかを
>確認し、その後、きちんとヘルプ等で記述方法を確認しましょう

MJMさん・たんさん返信ありがとうございます。
INSERT INTOの使い方が分かりました。ありがとうございました。

1620 / 2272 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
1078248
(SS)C-BOARD v3.8 is Free