
まず初めに以下のコードを実行するとエラー文として以下が表示されます。
実行時エラー'-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に亀が渡されていないということなのでしょうか?
上記コードで記述の不備があれば教えていただきたいと質問いたしました。
また情報の不足がありましたらおっしゃっていただければ追加します。
ご回答よろしくお願いします。



回答1件
あなたの回答
tips
プレビュー