MS Access | DAO | Создать запрос |
'создание запроса - DAO Sub CreateQuery_DAO()
Dim db As Database, que As QueryDef
Set db = CurrentDb Set que = db.CreateQueryDef("QueryName", "SELECT [Company Name], Phone from Clients where Country= 'Russia'")
End Sub
где: "QueryName" – новое имя запроса "SELECT ,,," – текст запроса на языке SQL. См. также как просто научиться писать запросы на SQL языке.
|