Студопедия
rus | ua | other

Home Random lecture






Практическая работа 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
<== previous lecture | next lecture ==>
B. Создать аналогичный объект QueryDef | MSНFlexGrid и MSFlexGrid - элементы управления для отображения и оперирования данными в табличном формате
lektsiopedia.org - 2013 год. | Page generation: 0.05 s.