ля зручності використання всі запити розташовані на об'єкті із закладками SSTab.
Для створення запитів на кожній вкладці розміщуємо об'єкт Adodc (для створення запитів), DataGrid (для відображення результатів запитів), текстове поле Text (для запитів з параметрами) і кнопки CommandBatton (для запуску запитів).
Для створення запиту без параметрів натискаємо правою клавішею миші на об'єкті Adodc1. У контекстному меню клацаємо по рядку ADODC Properties. У діалоговому вікні Property Page вибираємо вкладку RecordSource. Клацаємо на поле з спадаючим списком Command Type і вибираємо команду 1-adCmdTxt. У полі CommandText (SQL) записуємо SQL-запит (рис. 4.1). Для об'єкта DataGrid1 властивості DataSource присвоюємо значення Adodc1. Аналогічно і для решти запитів.
Рис. 4.1. Створення запиту
Таким чином, отримуємо три запити без параметрів.
Перший запит відбирає п'ять найдорожчих замовлень: DISTINCTROW TOP 5 [Замовлення]. [Вид послуги] AS [Найдорожчі замовлення], [Замовлення]. [Сума] AS Вартість, [Замовлення]. [Дата замовлення] FROM Замовлення ORDER BY [Замовлення]. [Сума] DESC
Результати запиту показані на рис. 4.2.
Рис. 4.2
Другий запит виводить список послуг, вартістю не менше 1000 рублів: Замовлення. [Дата замовлення], Замовлення. [Вид послуги], Закази.Сумма FROM Замовлення WHERE Сума gt;=1000
Результати запиту показані на рис. 4.3.
Рис. 4.3
Третій запит виводить список робіт, виконаних фахівцями (запит на об'єднання таблиць): Закази.Ісполнітель, Замовлення. [Вид послуги], Услугі.Матеріал FROM Замовлення LEFT JOIN Послуги ON Замовлення. [Вид послуги]= Услугі.Наіменованіе ORDER BY Закази.Ісполнітель
Результат запиту показаний на рис. 4.4.
Рис. 4.4
Запити з параметрами створюємо написанням програмного коду. Застосування SQL-запитів в коді програми, що працює з базою даних, має свої переваги - це просто, наочно й досить ефективно. Однак через відмінності типів даних Visual Basic і SQL при передачі змінних з коду програми в SQL-запит можуть виникати неприємні нюанси. Щоб уникнути їх, перед тим, як передати строкову змінну в SQL-запит, її потрібно обмежити одинарними лапками, для чого рекомендується застосовувати відповідну функцію: Function Quote (strVariable As String) As String= amp; strVariable amp; Function
Для четвертого запиту, виводить список замовлень, виконаних певним фахівцем, маємо наступний програмний код: Sub Command1_Click () strName As StringtxtName.Text lt; gt; Empty Then=Trim (txtName.Text) Adodc4
. ConnectionString= Рекламне агентство Records
. RecordSource= SELECT * FROM Замовлення WHERE Закази.Ісполнітель LIKE amp; Quote (strName)
. RefreshWithDataGrid4.DataSource=Adodc4 Введіть значення текстового поля! raquo ;, vbOKOnly.SetFocusIfSub
Результат виконання запиту показаний на рис. 4.5.
Рис. 4.5
Програмний код для виконання п'ятого запиту, що відбирає замовлення, зроблені певним замовником: Sub Command2_Click () strZ As StringtxtZ.Text lt; gt; Empty Then=Trim (txtZ.Text) Adodc5
. ConnectionString= Рекламне агентство Records
. RecordSource= SELECT * FROM Замовлення WHERE Закази.Заказчік LIKE amp; Quote (strZ)
. RefreshWithDataGrid5.DataSource=Adodc5 Введіть значення текстового поля! raquo ;, vbOKOnly.SetFocusIf
Результат виконання показаний на рис. 4.6.
Рис. 4.6
Для шостого запиту, визначального суму виручки за певний день: Sub Command4_Click () strD As StringtxtDate.Text lt; gt; Empty Then=Trim (txtDate.Text) Adodc6
. ConnectionString= Рекламне агентство Records
. RecordSource= SELECT Sum (Сума) As [Виручка за день] FROM Рахунок WHERE Счет.Дата LIKE amp; Quote (strD)
. RefreshWithDataGrid6.DataSource=Adodc6 Введіть значення текстового поля! raquo ;, vbOKOnly.SetFocusIfSub
Результат виконання на рис. 4.7.
Рис. 4.7
Для сьомого запиту, що виводить суму найдорожчого замовлення за певний день: Sub Command3_Click () strM As StringtxtM.Text lt; gt; Empty Then=Trim (txtM.Text) Adodc7
. ConnectionString= Рекламне агентство Records
. RecordSource= SELECT max (Сума) As [Сума замовлення] FRO...
