ORDER BY にパラメータを指定するには？ (ID：112027)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ありがとうございます。
ソースは下記のようにしています。

Private Sub Command1_Click()

Dim mysqlr As String
Dim rsd As New ADODB.Recordset
Dim Prm As ADODB.Parameter
Dim Prm1 As ADODB.Parameter
Dim GT As String
Dim HT As String

GT = ctlJOB名.Text
HT = ctl選択項目(0).Text

'パラメータクエリを作成
mysqlr = "SELECT * From TBLKAIIN  WHERE TBLKAIIN.JOB_NO = (SELECT MASTER_JOB.JOB_NO From MASTER_JOB WHERE MASTER_JOB.JOB名 = ?) ORDER BY ?"

'Commandオブジェクトを作成
Set cmdMaster = New ADODB.Command
cmdMaster.ActiveConnection = cn
cmdMaster.CommandText = mysqlr

'Parameterオブジェクトを作成（JOB選択)
Set Prm = New ADODB.Parameter
Set Prm = cmdMaster.CreateParameter("Prm", adVariant, adParamInput, 30)
cmdMaster.Parameters.Append Prm
'Parameterオブジェクトを作成（第1SORT順)
Set Prm1 = New ADODB.Parameter
Set Prm1 = cmdMaster.CreateParameter("Prm1", adVariant, adParamInput, 30)
cmdMaster.Parameters.Append Prm1

'Parameterを設定
cmdMaster.Parameters("Prm").Value = GT
cmdMaster.Parameters("Prm1").Value = HT

'パラメータクエリを実行
Set rsd = New ADODB.Recordset
Set rsd = cmdMaster.Execute

With deMain
.cmdMaster ctlJOB名.Text, ctl選択項目(0).Text
End With

Unload Me

Set rsd = Nothing
Set Prm = Nothing
Set Prm1 = Nothing

Load Form1
Form1.Show
End Sub

※ORDER BY ?  を  ORDER BY "+ HT +"としましても  
  ソートしてくれません。
  う〜む。。。です

←解決時は質問者本人がここをチェックしてください。

戻る