質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.48%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SQL Server

SQL Serverはマイクロソフトのリレーショナルデータベース管理システムです。データマイニングや多次元解析など、ビジネスインテリジェンスのための機能が備わっています。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

Q&A

解決済

3回答

18753閲覧

Access ADO接続 実行時エラー「キーワード’WHERE'付近に不適切な構文があります」

nekomura

総合スコア132

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

SQL Server

SQL Serverはマイクロソフトのリレーショナルデータベース管理システムです。データマイニングや多次元解析など、ビジネスインテリジェンスのための機能が備わっています。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

SQL

SQL(Structured Query Language)は、リレーショナルデータベース管理システム (RDBMS)のデータベース言語です。大きく分けて、データ定義言語(DDL)、データ操作言語(DML)、データ制御言語(DCL)の3つで構成されており、プログラム上でSQL文を生成して、RDBMSに命令を出し、RDBに必要なデータを格納できます。また、格納したデータを引き出すことも可能です。

0グッド

0クリップ

投稿2016/05/09 09:53

編集2016/05/10 02:06

よろしくお願いいたします。

Accessのフォーム上のボタンイベントで、SQLserverよりテーブルデータを取得するイベントプロシージャを書いています。
しかし、実行時エラーが起きてしまい、下記コードの

Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly

に黄色のカーソルがフォーカスされます。

エラー内容は、
「実行時エラー'2147217900(80040e14);
キーワード'WHERE'付近に不適切な構文があります。」

でした。

原因及び修正方法が調べても特定できません。
有職者の皆様にお知恵をいただきたく存じます。

Private Sub クエリ取得_Click() Dim Cn As New ADODB.Connection Dim Rs As New ADODB.Recordset Dim strSQL As String Dim strConnectionString As String 'SQLServer接続文字列 strConnectionString = CStr(DLookup("connectionString", "接続文字列テーブル", "ID= 2")) //Access自身のテーブルに、接続文字列を入れて、その値を変数に代入しています strSQL = "SELECT * FROM Q_m_kokyaku_shohin" strSQL = strSQL & " WHERE Q_m_kokyaku_shohin like '*%'" Cn.ConnectionString = strConnectionString Cn.Open Rs.Open strSQL, Cn, adOpenForwardOnly, adLockReadOnly //エラーのデバッグポイントはここ Set Me.Recordset = Rs ' Rs.MoveFirst ' Do Until Rs.EOF ' ' ' Rs.MoveNext ' Loop Rs.Close Cn.Close Set Rs = Nothing Set Cn = Nothing End Sub

また、「Q_m_kokyaku_shohin」は、クエリです。
ODBCでSQLserverより接続したリンクテーブルを、二つ使用して作っています。

このクエリをの全データの中から、任意の一文字の前方一致検索に対応するデータを
取得したい
です。

また、初めの一文字はユーザーが入力する任意の値を想定している為、「*」を使用しています。
こちらも何か問題のある記述でしょうか。。。
ネットで調べると、「初めがAの前方一致検索」など、特定のを使う方法しか出てこないもので…。
細かい部分の記述の仕方がわからず困っています。
どうかお知恵をお貸しください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

A-pZ

2016/05/09 09:57

strSQL = sSql & " WHERE Q_m_kokyaku_shohin like '*%'" の部分、sSqlは、strSQLではないでしょうか。
A-pZ

2016/05/09 10:00

連投申し訳ありません。SQL文にて、SELECT * FROM Q_m_kokyaku_shohin WHERE Q_m_kokyaku_shohin like ... となっており、検索するテーブル名とカラム名が全く同じ、であっていますでしょうか。
nekomura

2016/05/10 01:41

A-pz様 >sSqlは、strSQLではないでしょうか。 おっしゃるとおりでした。ご指摘に感謝いたします。 >SELECT * FROM Q_m_kokyaku_shohin WHERE Q_m_kokyaku_shohin like ... となっており、検索するテーブル名とカラム名が全く同じ、であっていますでしょうか。 テーブル名とカラム名は異なりますが、すべてのカラムを取得後一覧表示したく、このように表記していました。 誤りであればご指摘いただきたく存じます。 返信が少々遅れて失礼いたしました。 ご回答いただければ幸甚です。
guest

回答3

0

現時点では、
エラーが起きて困っている ⇒ ソース提示して原因を教えてください
という丸投げ状態の質問になってしまっているので的確な回答がつけられません。

エラー状況の説明はたくさん記載してくれているし、自分で調べたけどわからない
ということなので自分は丸投げとは取りませんが、回答に必要な情報が不足しています。

なにをしたいSQLなのか?
・どのテーブルから、どのカラムを、どんな条件で抽出したいのか
の説明さえあればすぐに的確な回答がつくと思います。

投稿2016/05/10 00:28

jawa

総合スコア3013

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekomura

2016/05/10 01:56

jawa様 的確なご指摘ありがとうございます。 早速本文内容も修正をしようと思います。 >・どのテーブルから、どのカラムを、どんな条件で抽出したいのか ODBCでSQLserverより接続したリンクテーブルを、二つ使用して作ったクエリが Q_m_kokyaku_shohinです。 このクエリをの全データの中から、任意の一文字の前方一致検索に対応するデータを 取得したいです。 また、初めの一文字はユーザーが入力する任意の値の為、「*」を使用しています。 こちらも何か問題のある記述でしょうか。。。 ネットで調べると、「初めがAの前方一致検索」など、特定のを使う方法しか出てこないもので…。 お返事が遅くて失礼いたしましたが、ぜひ今一度お教えをいたければ幸甚です。
guest

0

ベストアンサー

Q_m_kokyaku_shohinがクエリー名だとすると、
LIKEの対象はそのクエリーに含まれるフィールド名(カラム名)でなければならないはず。
WHERE Q_m_kokyaku_shohin.field_a LIKE '*%'みたいな。

投稿2016/05/10 02:23

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekomura

2016/05/10 02:35

m6u様 ご回答ありがとうございます。 当該エラーは出なくなりました! 別のエラーが出るようになってしまいましたので、また同内容で質問を新たに上げる予定です。 またご教示をいただければ幸いです。
guest

0

VBA

1strSQL = "SELECT * FROM Q_m_kokyaku_shohin" 2strSQL = sSql & " WHERE Q_m_kokyaku_shohin like '*%'"

Q_m_kokyaku_shohin:テーブル名ですか?フィールド名(カラム名)ですか?
私自身は、この様な名付けはしないので。
文字列の中に、全角スペースが居たりしませんか?
可能であれば、
SELECT *
は使わずに、フィールド名を書出して使用します。

  • では、フィールドの順番は保証されません。


投稿してから、情報の追加・修正の依頼をする が、
出ているのに気が付いたので、とりあえずこのまま。

投稿2016/05/09 10:04

編集2016/05/09 10:08
daive

総合スコア2028

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekomura

2016/05/10 01:47

daive様 ご指摘ありがとうございます。 返答が遅れましたが、再度ご回答いただければ大変ありがたく存じます。 >Q_m_kokyaku_shohin:テーブル名ですか?フィールド名(カラム名)ですか? これは、ODBCでSQLserverより接続したリンクテーブルを、二つ使用して作ったクエリです。(後ほど質問内容を訂正いたします。わかりづらくて申し訳ありませんでした。 >SELECT * >は使わずに、フィールド名を書出して使用します。 select カラム名,カラム名,… としていくということでしょうか? 何度もお手数をおかけいたしますが、ご教示いただければ幸いです。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.48%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問