![]() |
B. Создать аналогичный объект QueryDefDate: 2015-10-07; view: 476. 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
|