Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Listing All Saved Queries in a Database

Sub List_SavedQueries()    Dim cat As New ADOX.Catalog    Dim v As ADOX.View    Dim strPath As String    strPath = CurrentProject.Path & "\mydb.mdb"    cat.ActiveConnection = "Provider=Microsoft.Jet.OleDb.4.0;" & _       "Data Source= " & strPath    For Each v In cat.Views       Debug.Print v.Name    Next    Set cat = Nothing End Sub