АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Dim basa As Database, zapros As QueryDef, s As String, bucva As String

Читайте также:
  1. Dim basa as Database, nabor as Recordset
  2. Dim basa As Database, nabor As Recordset, поля As Field, имена As String
  3. Dim basa As Database, zapros As QueryDef, s As String
  4. ВЯЖУЩИЕ СРЕДСТВА (ADSTRINGENTIA)
  5. Настройка компонент StringGrid
  6. Настройка компонента TStringGrid
  7. Настройка компоненты StringGrid

Set basa = CurrentDb

s = "SELECT Товар,Поставщик FROM Товары WHERE "

s = s & " Поставщик BETWEEN 'Красный Октябрь' AND 'Тверьрыба'"

Set zapros = basa.CreateQueryDef("Запрос1", s)

DoCmd.OpenQuery ("Запрос1")

basa.QueryDefs.Delete "Запрос1"

Set basa = Nothing

 
 


 

 

Результат:

 

Выборка произведена по

алфавитному

расположению.

 

 

Пример

Выбрать из таблицы «Товары» все записи, где название товара совпадает со значениями: сыр, масло, шоколад.

Строка запроса:

 

S=” SELECT * FROM Товары WHERE Товар IN (‘Сыр’, ‘Масло’, ‘Шоколад’)”

 

 

Результат работы:

 

Пример

В таблице Товары изменить значение название товара=”Сыр” на

значение “Швейцарский сыр”

 

S=”UPDATE Товары SET Товар=’Швейцарский сыр’ where Товар=’Cыр’”

 

Таблица “Товары” до обновления:

 
 

 


 

При выполнении в системные окна выдаются сообщения:

 
 

 

 


 

Необходимо сделать выбор. Если нажали «Да», то появится следующее сообщение:

 

 
 

 


Подтвердить обновление.

При повторном запуске запроса будет появляться окно:

 
 

 


 

Таблица “Товары” после обновления:

 

 
 

 

 


Пример

Удалить записи из таблицы, где Цена =100 и поле Товар=’Масло’


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)