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

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

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

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

Access

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

Q&A

解決済

1回答

2181閲覧

AccessにてADOを使用してMySQLからパラメータ指定でSELECT文を実行して結果を取得したい

ryuuji_n

総合スコア10

VBA

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

Access

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

0グッド

0クリップ

投稿2021/08/25 02:10

編集2021/08/25 02:52

まず初めに以下のコードを実行するとエラー文として以下が表示されます。

実行時エラー'-2147217900(80040e14)':
[MySQL][ODBC8.o(w) Driver]@mysqld-8.0.26]You have an error in your SQL
syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near ' select * from animals where name = NM(?)' at line 1

Sub fugafuga() '変数定義 '※commandとparameterが必要 Dim con As ADODB.Connection Dim com As ADODB.Command Dim para As ADODB.parameter Dim rec As ADODB.recordset Dim conStr As String Set con = New ADODB.Connection 'ADODB.Connectionインスタンス化 conStr = "Driver={MySQL ODBC 8.0 Unicode Driver};DATABASE=myapp2;PWD=example00x;PORT=3306;SERVER=localhost;UID=root" '接続情報 con.ConnectionString = conStr 'Connectionに接続情報をセット con.Open '接続開始 'ここからが大事 '-------------------------------- Set com = New ADODB.Command com.ActiveConnection = con com.CommandType = adCmdStoredProc com.CommandText = "select * from animals where name = NM" Set para = New ADODB.parameter Set para = com.CreateParameter("NM", adChar, adParamOutput, 2000, "亀") com.parameters.Append para com.Execute '-------------------------------- End Sub

SQL文は処理されているがNMに亀が渡されていないということなのでしょうか?
上記コードで記述の不備があれば教えていただきたいと質問いたしました。

また情報の不足がありましたらおっしゃっていただければ追加します。

ご回答よろしくお願いします。

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

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

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

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

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

退会済みユーザー

退会済みユーザー

2021/08/25 02:17 編集

ストアドプロシージャではなく普通のSQL文を実行しているように見えますが。ストアドプロシージャが何かについては理解されていますか?
ryuuji_n

2021/08/25 02:38

SQLインジェクション対策に、 上記ソースコードのNMを亀となっている部分で置き換えるためのものという認識です。 ストアドプロシージャの認識がすでに間違っている気がしてきました。
退会済みユーザー

退会済みユーザー

2021/08/25 02:48 編集

実際にやりたい事は、ストアドプロシージャの実行ではなく、「MySQLからパラメータ指定でSELECT文を実行して結果を取得したい」じゃないですか?もしそうであれば、タイトルと質問文を適切なものに修正してください。一応、下記のURLの内容もご一読ください。 [質問するときのヒント] https://teratail.com/help/question-tips ストアドプロシージャが何かについては、検索すれば記事が出てくると思うので、自身で勉強してください。
ryuuji_n

2021/08/25 02:49

おっしゃる通りでした。 質問文修正のちにストアドプロシージャについても調べることにします。
guest

回答1

0

ベストアンサー

多分このページの内容がやりたい事そのままだと思います。
クエリにパラメータを渡して結果を取得する(ADO)Command オブジェクト・Execute メソッド

(検索ワード "ADO パラメータ")

投稿2021/08/25 02:57

編集2021/08/25 02:58
退会済みユーザー

退会済みユーザー

総合スコア0

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

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

ryuuji_n

2021/08/25 03:06

ありがとうございます。 まさに教えていただいたリンク先のタイトル通りです。 調べ方が甘かったようです。 現在通勤電車の中のため、のち実行して無事に解決したのちにベストアンサーに指定します。 質問文のミスなどの不備がありましたのに、最後まで教えていただきありがとうございました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.30%

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

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

質問する

関連した質問