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

Home Random lecture






B. Создать аналогичный объект QueryDef


Date: 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
Таблица 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- инструкция. Использование в запросе элемента управления
lektsiopedia.org - 2013 год. | Page generation: 0.085 s.