Инструкции UPDATE и DELETE позволяют вам изменять или удалять группу записей в источнике данных с помощью всего одной команды. Эти инструкции работают непосредственно с исходной базой данных; вам не нужно предварительно получать набор записей, изменять записи, а затем переносить в базу данных внесенные изменения. Изучите приведенный ниже пример, иллюстрирующий повышение цены на 10% для товаров определенной категории:
UPDATE Toys SET Price = Price * 1.1 WHERE Category = 'Trains'
Имя таблицы, с которой вы работаете, указывается сразу после слова UPDATE. После этого указывается оператор SET, с помощью которого вы определяете значение одного или нескольких полей в таблице. И наконец, необязательный оператор WHERE позволяет вам задать критерии, ограничивающие записи, к которым будут применяться изменения. Оператор WHERE работает точно так же, как и в инструкциях SELECT.
Инструкция DELETE еще проще в использовании, чем инструкция UPDATE: ее действия сводятся к простому удалению записей. Приведенный ниже пример удаляет записи для всех игрушек, которые отсутствуют на складе и не были заказаны:
DELETE FROM Toys WHERE InStock = 0 And OnOrder = 0
Для удаления значений отдельных полей, а не целых записей, используйте инструкцию UPDATE вместе с оператором SET, определяющим значение поля равным Null.
Инструкции UPDATE и DELETE приводят к необратимым изменениям в базе данных; вы не сможете отменить действие этих инструкций. Поэтому, прежде чем выполнять любую из этих инструкций, обязательно создайте резервную копию базы данных.
Глава 18. Работа с файлами на диске.
В этой главе ...
~ Получение доступа к файлу по номеру
~ Выбор режима доступа к файлу
~ Чтение и запись в файлы с использованием не объектно-ориентированных методов
В дополнение к объектно-ориентированным методам работы с файлами данных, описанным в главе 12, VBA предлагает альтернативный метод для чтения и записи данных с дисковых файлов. Эта старая система по-прежнему обладает определенными достоинствами. Хоть вы и не можете работать со свойствами файла и методами, вы получаете более полный контроль над тем, как данные организуются в файле, и над тем, какие данные читаются и записываются. В отличие от объектно-ориентированной файловой системы операторы и функции, описанные здесь, встроены в VBA и не требуют внешних библиотек.
Номер - это ключ.
После того как файл открыт для доступа VBA, обращение к нему осуществляется по номеру, а не по имени. Если приходится работать с несколькими файлами одновременно, отслеживать то, какой файл вам необходим в данный момент, совсем не просто. В принципе, никто не запрещает работать таким образом. Но дальше в данной главе, в разделе "Не идите на поводу у номеров", показан простой способ решения данного вопроса. Для работы с содержимым файла необходимо его открыть. Для этого используется оператор Open (Открыть). Вот его синтаксис в простейшей форме:
Open "pathname" Formode Asfilenumber
А вот пример типичного оператора Open:
Open "С:\Мои документь\Мои данные.dat" For Binary As #1
Оператор использует три аргумента:
* pathname (путь). Полный путь (с указанием диска и каталога), определяющий файл, который должен быть открыт как строчное выражение. При вводе строки текста необходимо заключать ее в кавычки, как это сделано в приведенном выше примере. Вместо этого можно использовать строку переменных, а также любое выражение, значение которого будет правильной строкой VBA.
* mode (режим). Ключ VBA, определяющий то, каким образом вы планируете работать с файлом; подробности - в разделе "Выбор режима доступа к файлу".
* filenumber (номер файла). Аргумент filenumber принимает целочисленное значение от 1 до 511, если оно не было присвоено другому файлу. Традиционно, но не обязательно, в номере перед числом помешают знак #. В дальнейшем присвоение номеров не обязательно, однако при желании это можно делать (можно воспользоваться функцией FreeFile, которая возвращает следующее доступное значение filenumber ).
Оператор Open может принимать еще некоторые опциональные аргументы. Все они здесь не рассматриваются, но в следующем разделе рассмотрен один из них - Len=reclength, необходимый при работе с файлами произвольного доступа.
Выбора режима доступа к файлу
При открытии дискового файла с помощью оператора Open необходимо включить в него аргумент mode. Данный аргумент говорит VBA об организации файла и о том, каким образом планируется осуществлять доступ к информации. Хотя в качестве аргумента mode может быть любое из пяти возможных ключевых слов, в действительности выбор проводится из трех основных режимов. Каждый из режимов имеет свои достоинства и недостатки, описанные ниже.
|
Режим доступа к файлу в операторе Open |
Описание работы |
Ключевые слова |
|
Произвольный доступ |
Сохраняет данные в записях идентичной длины, так что чтение или запись могут вестись до тех пор, пока известно положение в файле, Запись в режиме произвольного доступа соответствует любому типу данных VBA фиксированной длины или определенному пользователем типу, содержащему исключительно типы данных фиксированной длины |
Random |
|
Последовательный |
Данные сохраняются в виде серии символов. Подходит для текстовых файлов, а также для файлов баз данных в кодировке ASCII, использующих разделители-запятые |
Input (для чтения данных из файла); Out put (для записи данных в файл); Append (для записи данных в конец файла) |
|
Двоичный |
Данные сохраняются в строчной форме, в любом заданном порядке |
Binary |
Не идите на поводу у номеров
Хотя в VBA рекомендуется обращаться к открытым файлам по номеру, запоминать то, с чем связаны какие-то числа, достаточно трудно и неудобно. Вместо номеров файлов можно использовать константы или переменные с понятным названием. Если наперед известен номер, который будет использоваться для отдельного файла, объявите для него константу. Данную константу затем можно использовать в операторе, воздействующем на файл. Вот пример:
Const PetsFile = 1, BdayFile = 2
Open "C:\MiscData\PetsLog.txt" For Input As PetsFile
Open "C:\MiscData\Birthdays.txt" For Random As BdayFile
Input #PetsFile, strPetlnfo ‘ чтение одного элемента из файла
Close PetsFile
Put BdayFile, 45, usrBDay ' запись одного элемента в файл
CloseBdayFile
Применяйте данный прием без опасения: вместо того чтобы собственноручно присваивать файлам номера, используйте функцию FreeFile, определяющую следующий доступный номер файла. Если значение, возвращаемое функцией, присвоить переменной, необходимость в запоминании номера просто отпадет. Вот пример применения данного приема: Dim DiaryFile As Integer DiaryFile = FreeFile () Open
"C:\MySecrets\Diary.txt" For Input As DiaryFile
Закрытие открытых файлов
Будьте аккуратными - после того как работа с файлами завершена, их следует закрыть.
Закрытие файла гарантирует, что все хранимые в памяти изменения действительно будут записаны на диск, а ресурсы, занимаемые файлами, освободятся и станут доступными для других приложений.
Для выполнения подобной задачи нужен, конечно же, оператор Close. Для закрытия определенного файла используется оператор вроде Close #2 (или Close PetsFile, как в предыдущем примере). Для закрытия всех открытых файлов оператор Close используется сам по себе.
Чтение и запись данных
Есть несколько VBA-команд для записи и извлечения данных из файла. В приведенной ниже таблице описана их работа.