Access VBA儲存查詢

Microsoft的Access不支援Create View的SQL指令，因此每寫完一段Query(查詢)之後，就要用GUI(圖形使用者介面)把Query存起來。
對我這個講究自動化的人(其實就是懶)，這種作法不是很方便。

幸好，就Access而言，SQL不行還有VBA可以用，以下的程式碼是利用ADOX把Query存起來。

Sub CreateQuery()
    
    Dim cat As New ADOX.Catalog
    Dim cd As New ADODB.Command
    Dim sSQL As String
    
    cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
       "Data Source=C:\mydb.mdb;"
    
    sSQL = "SELECT * FROM Newtable"
    
    cd.CommandText = sSQL
    
    cat.Views.Append "Newquery", cd

End Sub