Modifying a Select Query : SQL Select « Access « VBA / Excel / Access / Word

Modifying a Select Query

 
Sub Modify_Query()
   Dim cat As ADOX.Catalog
   Dim cmd As ADODB.Command
   Dim strPath As String
   Dim newStrSQL As String
   Dim oldStrSQL As String
   Dim strQryName As String

   strPath = CurrentProject.Path & "\mydb.mdb"
   newStrSQL = "SELECT Employees.* FROM Employees" & _
      " WHERE Employees.City='London'" & _
      " ORDER BY BirthDate;"
   strQryName = "London Employees"

   Set cat = New ADOX.Catalog
   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath

   Set cmd = New ADODB.Command
   Set cmd = cat.Views(strQryName).Command

   oldStrSQL = cmd.CommandText

   Debug.Print oldStrSQL

   cmd.CommandText = newStrSQL
   Debug.Print newStrSQL

   Set cat.Views(strQryName).Command = cmd

   Set cmd = Nothing
   Set cat = Nothing
End Sub

Related examples in the same category

1.	Using Date field type in select statement
2.	You must use a pound symbol (#) when delimiting dates for Microsoft Access, like this:
3.	Loop through the ResultSet after executing select statement
4.	Creating a Select Query with ActiveX Data Objects
5.	Executing a Select Query
6.	Get only one column
7.	Get more than one column
8.	Select all columns
9.	Use IN in select statement
10.	Use IN and like in where clause
11.	Use Date function in where clause
12.	Use between and with number type column
13.	Use Is NULL to check if a column is null
14.	Use Not In
15.	Use Between And
16.	Use 'Is not null'
17.	Use 'Select all'
18.	Order the resultset with Order by clause
19.	Get DISTINCT records
20.	Get DISTINCTROW
21.	Get the top 5 percent
22.	Get the top 10 percent
23.	Order record in a decscending order
24.	Add where clause to the select statement
25.	Use and to combine conditions
26.	Use wild card character in link
27.	Use where clause and order by clause together
28.	Order by two fields
29.	use SUM in sql statement