残念ながら、ADO単体として、クエリオブジェクトのSQLを書き換える機能はありません。
ADOX と併用する事で可能となります。【Sumple1】
Views コレクションと CommandText プロパティの使用例 (VB)
https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/views-collection-commandtext-property-example-vb
DDL を使用したくとも、ALTER VIEW ステートメントは、Accessに対しては機能しませんので
エラーとなります。【Sumple2】
DROP VIEW と、CREATE VIEW ステートメントを使用して 既存のクエリを削除→作成なら可能です。【Sumple3】
Sub Sumple1()
'要参照設定
' Microsoft ActiveX Data Objects 2.8 Library
' Microsoft AOD Ext. 2.8 for DDL and Security
Dim cn As ADODB.Connection
Dim cat As ADOX.Catalog
Set cn = CurrentProject.Connection
Set cat = New ADOX.Catalog
Set cat.ActiveConnection = cn
With cat.Views("クエリ13")
.Command.CommandText = "SELECT * FROM 末日;"
End With
Set cat = Nothing
Set cn = Nothing
End Sub
Sub Sumple2()
'要参照設定
' Microsoft ActiveX Data Objects 2.8 Library
Dim cn As ADODB.Connection
Set cn = CurrentProject.Connection
cn.Execute "ALTER VIEW クエリ51 AS SELECT * FROM 末日;"
Set cn = Nothing
End Sub
Sub Sumple3()
'要参照設定
' Microsoft ActiveX Data Objects 2.8 Library
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Set cn = CurrentProject.Connection
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "DROP VIEW クエリ51"
cmd.Execute
cmd.CommandText = "CREATE VIEW クエリ51 AS SELECT * FROM 末日;"
cmd.Execute
Set cn = Nothing
End Sub
