B. Создать аналогичный объект QueryDef
Date: 2015-10-07; view: 481.
A. Создать объект QueryDef
Практическая работа 25. Базы данных. Использование инструкций SQL
При работе с объектом QueryDef (запрос) должна быть использована допустимая строка SQL.
В данном примере создаваемый запрос возвращает данные таблицы Products базы данных Nwind.mdb (Microsoft Visual Studio).
Последовательность действий: создать требуемые элементы управления, ввести код, данный ниже, выполнить запрос, прочитать результат, он находится в запросе nin.
Private Sub Command1_Click()Dim dbs As Database, qdf As QueryDefDim strSQL As String, Table As RecordsetSet dbs = Workspaces(0).OpenDatabase("D:\Program_ Files\Microsoft Visual Studio\VB98\Nwind.mdb")Set Table = dbs.OpenRecordset("Products")strSQL = "SELECT [Product List].ProductID, [Product_ List].ProductName FROM Products AS [Product List] WHERE_ ((([Product List].Discontinued) = No)) ORDER BY [Product_ List].ProductName;"Set qdf = dbs.CreateQueryDef("nin", strSQL)'замечание: nin - имя запросаEnd Sub· Создать объект QueryDef с использованием инструкции SQL. Создаваемый запрос возвращает количество товаров, проданных после 21.01.98, содержимое таблицы базы данных dar1.mdb приведено в табл. 4.6,
· ввести код, сделать щелчок на командной кнопке, результат находится в запросе nin1.
Private Sub Command2_Click()Dim dbs1 As Database, qdf1 As QueryDefDim strSQL1 As String Dim Table1 As Recordset Set dbs1 = Workspaces(0).OpenDatabase("A:\dar1.mdb")Set Table1 = dbs1.OpenRecordset("Verkauf")strSQL1 = "SELECT menge FROM verkauf WHERE datum_ >#21/01/98#;"Set qdf1 = dbs1.CreateQueryDef("nin1", strSQL1)' замечание: nin1 - имя запросаEnd Sub| Таблица 4.6. Таблица базы данных Verkauf | ||||
| name | kunde | menge | prеis | datum |
| vernseheapparat | a | 23.09.99 | ||
| buecher | b | 21.01.98 | ||
| rechner | c | 04.05.97 | ||
| telefon | d | 14.11.99 |
| <== previous lecture | | | next lecture ==> |
| Использование инструкций SQL | | | Практическая работа 27. SQL- инструкция. Использование в запросе элемента управления |