![]() |
Практическая работа 27. SQL- инструкция. Использование в запросе элемента управленияDate: 2015-10-07; view: 415. Практическая работа 26. SQL- инструкция. Использование переменной в запросе Часто при выполнении запросов нужно использовать данные, вводимые или изменяемые пользователем. В этом случае нужно вводить в запрос переменные или элемент управления (см. Практическая работа 27). В примере создаeтся объект QueryDef, в котором используется значение, сохраняемое в переменной datumStart (As Date). Запросвозвращает из таблицы Verkauf (см. ) количество товаров, проданных позднее вводимой пользователем (в диалоговом режиме) даты datumStart. Ввести код, сделать щелчок на командной кнопке, ввести дату, результат находится в запросе nin2. Private Sub Command3_Click()Dim datumStart As Date, dbs2 As Database, qdf2 As QueryDefDim strSQL2 As String, Table2 As Recordset Set dbs2 = Workspaces(0).OpenDatabase("A:\dar1.mdb")Set Table2 = dbs2.OpenRecordset("Verkauf")strSQL2 = "SELECT verkauf.menge, verkauf.datum FROM verkauf_ WHERE verkauf.datum > datumStart;"Set qdf2 = dbs2.CreateQueryDef("nin2", strSQL2)' Замечание: дату вводить в формате: 21-01-98; nin2' - имя запросаEnd SubСоздать объект QueryDef, в котором используется элемент управления. Обратить внимание на ссылку на элемент управления (strSQL3 = : > Forms!verkauf!datum). Ввести код, сделать щелчок на командной кнопке, ввести дату, результат находится в запросе nin3. Private Sub Command4_Click()Dim dbs3 As Database, qdf3 As QueryDefDim strSQL3 As String, Table3 As Recordset Set dbs3 = Workspaces(0).OpenDatabase("A:\dar1.mdb")Set Table3 = dbs3.OpenRecordset("Verkauf")strSQL3 = "SELECT verkauf.menge, verkauf.datum _FROM verkauf_ WHERE verkauf.datum > Forms!verkauf!datum;"Set qdf3 = dbs3.CreateQueryDef("nin3", strSQL3)' замечание: дату вводить в формате: 21-01-98; nin3 -' имя запросаEnd Sub
|