Create query using VBA

M

Matthew Pfluger

Can I use ADOX or DAO to create a query? If so, how do I make a column in
the query for each column in a table, yet assign an alias to each column?

Thanks,
Matthew Pfluger
 
D

Douglas J. Steele

Yes, you can use either (although it makes far more sense to use DAO, since
it's designed specifically for use with Jet databases)

You alias through the SQL statement you use for the query.

Dim qdfNew As DAO.QueryDef
Dim strSQL As String

strSQL = "SELECT Field1 AS FieldA, Field2 AS FieldB " & _
"FROM MyTable " & _
"ORDER BY FieldA"

Set qdfNew = CurrentDb.CreateQueryDef("MyQuery", strSQL)
 
Top