Перехват и обработка ошибок времени выполнения

Окно watches

Окно locals

Окно immediate

Предназначено для не медленного выполнения программного кода. Просмотреть и изменить значения переменных можно используя метод print или установив знак «?» перед переменной. Фирма Microsoft проверяет перед вставкой в программу проверять потенциальный опасный код.

Определение не допустимых значений переменных и их коррекция.

Это окно контролируемых приложений. Производит наблюдение за ходом выполнения программы. Создать контролируемое выражение можно через контекстное меню add watch щелкая ПКМ по переменной, свойству или выражению.

Действия в окне watches:

1. Ничего не делать;

2. Перевести программу в режим паузы;

Перед опасный кодом помещается команда:

· On error goto метка_обработчика_ошибки

· Далее в коде программы помещаем метку обработчика ошибки и программный код обработки: errorhandlerdivision

· Перед меткой обработчика поставить команду exit sub или exit function

Для возвращения в нормальный режим работы, используем команду on error goto 0 или команду on error resume next.

Используя конструкцию select case проверяется номер ошибки через свойство объекта error.

Тема: понятие ADO. Подключение к таблице на листе Excel.

ADO (Active Data Objects)- это набор программных объектов, построенных по технологии ActiveX (COM), которые позволяют получать данные из самых разных источников и управлять ими.

Структура ADO:

1. Connection- позволяет установить соединение с источником данных и управлять ими.

2. Command- это команда при помощи которой выполнения операции на источнике данных.

3. Recordset- это набор записей. Ему соответствует коллекция Field.

Создание объекта Connection

Dim cn as new adodb.connection

Cn.conectionstring=”provider”=sqloledb.1:integrated

Security=sspi; initial catalog=northwind;

Data source=”London”

Cn.open+

Создание соединения вручную:

1. Создать пустой текстовый файл и переименовать его с расширением UDL

2. Открыть окно свойств файла через левую кнопку мыши. На вкладке Провайдер выбрать нужный тип БД.

3. Перейти на вкладку Соединение и нажать на кнопку Тестирование соединения.

4. Щелкнуть ПКМ по UDL файлу и выбрать Открыть с помощью программы Блокнот. Скопировать в буфер обмена последнюю строку этого файла

5. Вставить скопированное значение в окно редактора кода как значение свойства ConnectionString и взять его в кавычки.

Подключение к таблице на листе Excel.

1. Создать таблицу в Excel и присвоить диапазону имя. Сохранить и закрыть.

2. Создаем источник данных ODBC. В панели управления открываем средство администрирования, источники данных ODBC. Перейти на вкладку System DSN, Add.

3. Появиться окно мастера подключения. Вводится тип драйвера (Microsoft Excel Driver) и нажимаем кнопку Finish. Во втором окне вводится имя источника данных.

4. Нажать кнопку Выбрать рабочую книгу. Нажать кнопку Опции и снять флажок Только для чтения, ОК.

5. Создаем UDl файл, переходим на вкладку Провайдер и выбираем Microsoft OLE DB Provider for ODBC Drivers.

6. Перейти на вкладку Connection и выбрать созданный источник данных, нажать на кнопку Проверить соединение, ОК.

7. Открыть UDL файл в блокноте, скопировать строку подключения и использовать в программе.

Тема: перемещение по recordset

· Moved- этот метод принимает 2 параметра: NumRecords – на сколько записей необходимо переместиться и второй параметр- имя закладки, с которой нужно начать перемещение.

· MoveFirst (), MoveLast(), MoveNext(), MovePrevious()- перемещение на первую, последнюю, следующую и предыдущую строку.

· Find()- предназначен для поиска по значению одного столбца.

· Seek()- ищет значение по индексу. Этот метод работает только для серверный курсоров с типом команды TableDirect.

Коллекция Fields и объект Field.

У коллекции Fields все свойства стандартные, как у каждого объекта Collection

1. Count- возвращает, сколько всего столбцов Records.

2. Item- позволяет вернуть нужный столбец (объект Fields) по имени или номеру

Методы у этой коллекции есть как стандартные, так и специфические.

· Append()- добавляет новый столбец в Records. Delete()- удаляет столбец.

· Update()- сохраняет изменения, внесенные в Records. Метод CancelUpdate()- отменяет изменения, внесенные в Records.

· Resync()- работает только для коллекции объекта Records

Как осуществляется сортировка данных Recordset?

Rs.sort=”companyName”

• Какое свойство Recordset используется для фильтрации данных.

Rs.filter=”lastname”=’smith’ and firstname=’john’

• Какие значения может принять свойство Filter?

Строковое значении; массив закладок; несколько специальных значений.

Тема: программирование в WORD.

Общая структура объектной модели word состоит из 5-ти объектов:

1. Applications

2. Document(documents)

3. Selection

4. Range

5. Bookmark(bookmarks)

Создание нового документа Word:

Dim oword as new

word.application

oword.visible=true

oword.doceuments.add

Свойства, методы и события объекта application:

1. ActiveDocument- возвращает объект активного документа в данном worde.

2. Build- возвращает версию номер сборки кода.

3. Dialogs- возвращает коллекцию диалоговых окон.

4. KeyBinDings- возвращает коллекцию клавиатурных комбинаций.

5. PrintPreview- можно перейти в режим предварительного просмотра.

6. Version- версия word.

Пример: запуск макроса по нажатию клавиш alt+d

CustomizationContext= NormalTempleate application.KeyBindings.Add wdKeyCategoryMacro,

“Normal.NewMacros.DataLoad”,

BuildKeyConde)wdKeyAlt, wdKeyD)

Создание документа на основе шаблона:

Dim odoc as word.document

Set odoc=application.documents.add(“c:\doc_blunk.dot”)

Открытие документа:

Set odoc=documents.open(“c:\doc.doc”)

Методы:add,open,item,save,close

Объект selection - это выделенный участок текста. В документе этот объект может быть только 1. Он создается автоматически при запуске word и всегда доступен. Обращение к этому объекту:

Application.Selectiion.Text=”текст”

Пример: 100 раз напечатать текст Привет:

For i=1 to 100

Selection.text=”Привет”

Selection.EndOf

Next

Метод EndOF - позволяет перейти на конец символа, блока текста, абзаца.

Метод StartOF - позволяет перейти на начало символа, блока текста, абзаца.

Start определяет номера символов.

End определяет номера символов.

Bookmarks - возвращает коллекцию в выделенном тексте.

Отличие между объектом selection и range то, что объект selection определяет сам пользователь, а объект range можно создать только программно. Объект range предпочтительнее. Объектов range в каждый момент времени может быть сколько угодно, а объект selection только один.

Пример: Создать диапазон который включает в себя первые 10 символов документа.

Dim rnddoc as range

Set rngdoc=activedocument.range (start:=1, end:=1)

Setrange- позволяет изменять объект range

Пример: получить объект range в который будет входить текст от начала документа до конца выделения документа.

Dim myrange as range

Set myrange =activedocument.range (start:=0, end:=0)

Myrange.set range start:= myrange.start,

End:=selection.end

Тема: программирование в excel.

Объект application, коллекция workbooks, свойства и методы

Объектная модель excel состоит из 4-х объектов:

1. Application;

2. Workbook;

3. Worksheet;

4. Range.

В excel предусмотрена большая библиотека встроенных функций.

Создание объекта application

Dim oexcel As New Excel.Application

oexcel.Workbooks.Add

oexcel.Visible = True Active

1. Cells- возвращает объект range представляющий собой все ячейки в активном листе активной книги

App.celks (1,2)

2. Names- возвращает коллекцию name, именованные диапазоны в активной рабочей книги.

3. Range- представляет собой диапазон ячеек.

4. Selection.

5. Sheets- возвращает коллекцию sheets, набор листов.

6. Thiscell и thisworkbook

7. Windows, workbooks, sheets- возвращает открытые окна, книги и листы.

1) Evaluate(“[book1.xls] sheet1!a5”)- найти объект книги excel и преобразовать его.

2) Run

3) Wait- приостановить работу.

Взять паузу на 5сек:

If app.wait(now+timevalue(“0:00:5”) Then

Msgbox “5 сек прошло”

End if

1. Debug.print workbooks

(“смета.xls”).full name

2. Debug.print

Activeworkbook.name

3. Debug.print

Thisworkbook.name

Открытие существующей книги:

Dim owbk as workbook

Set owbk=workbooks.open (“c:/mybok1.xls”)

Методы workbooks:

1. Opendatabase()- открывает БД, выполняет запрос книги

2. Opentext()- открывает текстовый файл

3. Openxml()- открывает файл в формате xml

Свойства:

1. Name- имя файла

2. Godename- имя файла+ путь к нему

3. Fullname- как книга называется в коде

4. Path- путь

Names- возвращается коллекция именованных диапазонов данных рабочей книги

Позволяет получить информацию обо всех именованных диапазонах данных рабочей книги:

For each item in

Thisworkbook.name

Debug.print item.name

Next

Практические задания:

1. Создать книгу excel и сохранить ее на столе. Открыть программным способом

2. Создать документ excel программным способом и вывести на экран значение свойств name, fullname, godename.

3. Создать документ excel программным способом и заполнить ячейки любыми числами из диапазона А1:D2

Тема: этапы создания приложений в access. Работа с формами access из VBA.

Дата добавления: 2015-06-04