| |
▼mak さん：
こんにちは。
>試した中の1例を記入します。
>
> mySQL = "SELECT * FROM 販売機別 ORDER BY 店舗名 ASC"
>
> Set cn = CurrentProject.Connection
>
> com.ActiveConnection = cn
> com.CommandText = mySQL
> com.Execute
>
>よろしくおねがいします。
変数：mySQL の中身がアクションクエリでしたらこのコードで実行されると思われますが、
選択クエリなので結果をどう返すかが必要になってくると思われます。
「SELECT」したものを表示させたいのであれば、
普通はレコードセットに格納してフォームやレポートに表示させます。
余り汎用的な使い方ではありませんが、クエリを作成するのも手です。
Sub クエリで結果表示()
Dim mySQL As String
Dim cat As Object
Dim cn As ADODB.Connection
Dim com As New ADODB.Command
Set cat = CreateObject("ADOX.Catalog")
Set cn = CurrentProject.Connection
mySQL = "SELECT * FROM 販売機別 ORDER BY 店舗名 ASC"
cat.ActiveConnection = cn
com.CommandText = mySQL
cat.Views.Append "Q_Test", com
cn.Close: Set cn = Nothing
Set com = Nothing
Set cat = Nothing
DoCmd.OpenQuery "Q_Test"
End Sub
CreateObject("ADOX.Catalog") としてますが、
ADOXを参照設定すると、コードが書きやすくなると思われます。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
