Реферат: Считывание данных из гостевой книги - текст реферата. Скачать бесплатно.
Банк рефератов, курсовых и дипломных работ. Много и бесплатно. # | Правила оформления работ | Добавить в избранное
 
 
   
Меню Меню Меню Меню Меню
   
Napishem.com Napishem.com Napishem.com

Реферат

Считывание данных из гостевой книги

Банк рефератов / Программирование

Рубрики  Рубрики реферат банка

закрыть
Категория: Реферат
Язык реферата: Русский
Дата добавления:   
 
Скачать
Архив Zip, 290 kb, скачать бесплатно
Заказать
Узнать стоимость написания уникального реферата

Узнайте стоимость написания уникальной работы

Набор процедур VBA - Считывание данных из гостевой книги frontpage 2000 в таблицу access 2000. Теоретическое введение Секрет , как стать профессиональным разработчиком программ на Visual Basic, состоит в том , чтобы писать программы , требующие от нас применения самых разнообразных возможностей Visual Basic. Среди них : до скональное знание и способность на практике применять стандартные средства управления панелью инструментов и компоненты ActiveX; умение правильно устанавливать и манипулировать свойствами , функциями и событиями объекта ; способность писать ясный и чёткий п р ограммный код с возможностью повторного использования некоторых сегментов программы в дальнейшем ; умение создавать наглядный и эффективный интерфейс пользователя. Для работы над этой курсовой мне потребовалось изучить приложение FrontPage, а также изучить некоторые возможности Visual Basic в приложении Access. Microsoft FrontPage 2000 включает все необходимые средства для эффективной разработки и эксплуатации веб-узлов . Пользователи могут легко создавать качественно оформленные веб-страницы , выбирая наибо лее удобный способ разработки . FrontPage 2000 позволяет придавать законченный и профессиональный вид веб-узлам , импортировать и редактировать код HTML любым из существующих способов и применять новейшие веб-технологии . С помощью FrontPage 2000 можно легко выполнять обновление веб-страниц , а также пользоваться гибкими средствами для управления узлами Интернета и интрасетей . FrontPage 2000 позволяет создавать и поддерживать узлы , следить за их работой и производить периодические обновления . Рабочие группы и к оманды специалистов могут использовать веб-узлы для совместной работы , а компании - осуществлять развертывание и администрирование FrontPage 2000 в масштабах предприятия . FrontPage 2000 помогает сэкономить время пользователям пакета Microsoft Office. Этот продукт работает по принципу приложений Microsoft Office, что упрощают его освоение . Моя задача состояла в том , чтобы в приложении FrontPage создать гостевую книгу . Затем в приложении Access создать однотабличную базу данных и в модуле Visual Basic набра ть и отладить код программ , которые бы считывали данные из гостевой книги в базу данных. Для того чтобы набрать и отладить программу необходимо ознакомиться с элементами , составляющими основу программирования на Visual Basic, т.е . с командами , операторами , функциями и ключевыми словами. Операторы и функции Оператор Sub объявляет имя , параметры и тело процедуры. Оператор End Sub заканчивает процедуру. Оператор Dim объявляет переменные и выделяет память под них. Оператор Set связывает ссылку на объект с п еременной или свойством. Цикл Do Until … Loop повторяет блок команд , пока условие не станет верным. Цикл If … Then … Else выполняет команду (инструкцию ) или блок команд в зависимости от значения выражения. Оператор On … GoTo передаёт на одну из нескольких определённых строк , в зависимости от значения выражения. Функция InStr возвращает позицию первой найденной подстройки в строке. Функция Ucase возвращает строку , преобразованную в верхний регистр. Оператор Mid замещает определённое количество символов в стр оке на символы из другой строки . Функция Mid возвращает определённое количество символов с определённой позиции строки. Функция Lcase возвращает строку в нижнем регистре. Функция Left возвращает определённое количество символов с начала строки. Оператор W ith выполняет последовательность команд для конкретного объекта или переменной специализированного типа. Функция Resume продолжает выполнение программы после завершения процедуры обработчика ошибок. Оператор Print записывает форматированные данные в файл. Оператор Function объявляет имя , аргументов и код подпрограммы , возвращающей значение (функции ). Переменные Итак , переменная представляет собой временное хранилище для данных в нашей программе . Кто учился информатике в школе , наверное , помнит , что "переме нные - это такие ящички в которых содержится информация ...". В тексте программы мы можем использовать сколько угодно переменных . Особая польза от них - это то , что мы присваиваем нужным данным короткий и легко запоминающийся идентификатор . Ярлычок , так ск а зать . Если мы присвоим переменной UserName значение "Иванов Пётр Иванович ", то в дальнейшем использовать восемь символов легче , чем восемнадцать !!! Переменные могут содержать практически любую информацию . Чтобы грамотно использовать переменную , нужно её сначала объявить , зарезервировать под неё память . Для этого используются следующие ключевые слова : Dim, Private, Public, Static, Global. Переменные можно объявлять на уровне модуля и на уровне процедуры . Под уровнем модуля подразумевается часть формы General и стандартный модуль , а под уровнем процедуры подразумевается Sub, Function и т.д . Пояснение использования Static. Описывает переменные только на уровне процедуры . Переменная , описанная на уровне процедуры , "живёт " только в пределах этой процедур ы на протяжении работы приложения . Пояснение использования Dim. Описывает переменные как на уровне модуля так и на уровне процедуры . Переменная , описанная на уровне процедуры , живёт только в пределах этой процедуры и прекращает работу по окончанию процеду ры . Её мы чаще всего и применяем как счётчик , т.к . он и нужен то нам всего в данной процедуре . Переменная , описанная на уровне модуля , доступна для всех процедур данного модуля . Т.е . если нам нужна переменная , которую видят все функции и процедуры , т o её н адо объявить со словом Dim на уровне модуля . Пояснение использования Public. Описывает переменные на уровне модуля . Таким образом переменная стаёт глобальной , но на уровне формы и доступна всем остальным модулям Конечно , при переходе в другую форму перем енная будет пустой , неизвестной для второй формы ! Чтобы избежать этого нужно объявить переменную в стандартном модуле со словом Public или Global. Тогда переменная будет доступна и известна каждой форме . Пояснение использования Private. Описывает переменн ые как на уровне модуля так и на уровне процедуры . Переменная , описанная на уровне процедуры , живёт только в пределах этой процедуры . Переменная , описанная на уровне модуля , доступна лишь модулю , в котором она объявлена . Объявление всех переменных считает ся хорошей привычкой . В помощь забывчивым и незабывчивым есть инструкция Option Explicit. Помещать эту инструкцию нужно на уровне модуля и потом она проверяет каждую переменную объявлена ли она или нет ? Если нет - выскакивает ошибка . Размер отводимой памя т и под переменную зависит от вида этой переменной . Основные виды переменных указаны в Таблице 1 . Таблица 1 Основные виды переменных Тип данных Размер Диапазон значений Integer (Целое ) 2 байта от -32 768 до 32 767 Long Integer (Длинное целое ) 4 байта от -2 147 483 648 до 2 147 483 647 Single - precision Floating point (Одинарной точности с плавающей десятичной точкой ) 4 байт a от -3.402823E38 до 3.402823E38 Double - precision Floating point (Двойной точности с плавающей десятичной точкой ) 8 байт от -1.7 9769313486232D308 до 1.79769313486232D308 Currency (Денежные единицы ) 8 байт от -922337203685477.5808 до 922337203685477.5807 String (Строка ) 1 байт на символ от 0 до 65 535 символов Boolean (Логический ) 2 байт True (Истина ) или False (Ложь ) Date (Дата ) 8 байт от January (Январь )1, 100, до December (Декабрь ) 31, 9999 Variant (Вариант ) 16 байт (для чисел ); 22 байт на символ (для строк ) для всех типов данных Описание разработанной программы , области применения , методы использования . Набор процедур , включенных в эту курсовую , был специально создан для сайта THE TECH REPUBLIC ( www.techrepublic.com ). Этот набор процедур разработан для считывания данных из Гостевой книги , созданной в приложении FrontPage, в однотабличную базу данных , созданную в приложении Access. При работе с Гостевой книгой очень удобно использовать этот набор процедур. Сейчас очень широко используется Интернет . Существует огромное количество сайтов , на которых очень часто можно встретить страничку с Гостевой книгой . Там можно не только просто зарегистрироваться , заполнив необходимые формы , но и оставить свой комментарии по то м у или иному вопросу , подписаться на всевозможные электронные журналы и газеты и многое другое. Рассматриваемый набор процедур работает с простой Гостевой книгой . Увидеть эту страничку и зарегистрироваться вы можете по адресу - http:// univers/college/st udents/emel/main.htm Эта Гостевая книга была создана в приложении FrontPage. Это – новое приложение расширенного пакета Microsoft Office2000. Сейчас в этом приложении создавать веб-узлы стало еще проще . Приложения пакета Office 2000 и FrontPage 2000 испо льзуют общие панели инструментов , темы , меню , а также некоторые инструментальные средства , такие как фоновая проверка орфографии и "Формат по образцу " (Format Painter). FrontPage 2000 также упрощает использование форм и баз данных на веб-узлах. FrontPage 2000 обеспечивает разработчиков веб-узлов простыми и мощными инструментальными средствами . FrontPage не изменяет импортированный код HTML и дает пользователям возможность самостоятельно настраивать его форматирование . Работая в режиме редактирования HTML, пользователи могут ускорить процесс создание страниц , используя кнопки и элементы меню. FrontPage 2000 облегчает совместную работу . Пользователи приложений пакета Microsoft Office могут сохранять документы непосредственно на веб-узлах , созданных с помощ ью FrontPage, а система резервирования документов и отчеты по проекту помогают осуществлять совместную работу над веб-страницами . FrontPage 2000 прост в обслуживании и эксплуатации . В нем используется та же программа установки , что и в приложениях Micros oft Office. Эта программа позволяет производить установку по требованию , запускать приложения с сервера и восстанавливать программное обеспечение. Гостевые книги используются в разнообразных целях , на пример для получения статистических данных или для соз дания базы данных пользователей этого сайта . Для создания такой базы данных и был создан данный набор процедур , который считывает данные Гостевой книги , сохранённые в локальном файле , и записывает их в базу данных . В дальнейшем , используя этот набор проце дур , можно будет постоянно обновлять данные в этой базе данных. Используя в дальнейшем возможности базы данных приложения Access, можно создавать различные запросы и отчёты , на пример отчёт о количестве пользователей сайта за определённый месяц , отчёт по регионам о месте проживания пользователей сайта и т.д . Система обозначений , описание переменных , аргументов функций и процедур и т.д. Для VBA существуют соглашения о наименовании Реддика (RVBA), которые предоставляют указания по присвоению имён объекта м в языке Microsoft Visual Basic for Applications (VBA). Наличие соглашений необходимо для любого программного проекта . При использовании соглашений имя объекта несёт в себе информацию о его назначении . Предлагаемые соглашения стандартизируют обозначения в сфере программирования. Язык VBA разработан для взаимодействия с базовым приложением , например с MS Access, Visual Basic, MS Excel, MS Project. Соглашения RVBA применимы ко всем разработкам на языке VBA, независимо от базового приложения. Соглашения RVB A основаны на Венгерской нотации . Цель этой нотации – лаконичное и эффективное представление информации об объекте в его имени. Единственной обязательной частью имени объекта является признак – короткий набор символов , обычно мнемонический , который указыв ает тип объекта . Признак должен состоять из строчных букв и обычно выбирается из стандартного списка признаков , указанного в Таблице 2 Таблица 2 Признаки для переменных VBA Признак Типы объекта Byt Byte F Boolean Int Integer Sng Single Dbl Double Cur Currency Dtm Date Obj Object Str String Stf String(фиксированной длины ) Var Variant Lng Long В данном наборе процедур используется Венгерская нотация . Все переменные и объекты имеют в своём имени признак , который соответствует типу этих перемен ных и объектов. Набор рассматриваемых процедур состоит из двух частей : процедуры LookForNameStart и процедуры ProcessContact. Перед написанием кода процедур , оператор Dim объявляет переменные txtobj1 как объект , имеющий доступ к файловой системе компьютер а (Scripting) и считывающий текст файла потоком (FileStream); strTemp как строковую переменную и rst1 как встроенный объект (Recordset) ADO базы данных (см . Рис 7) и выделяет под эти переменные часть памяти . Объявление переменных до написания самого кода проц е дур необходимо для того , чтобы эти переменные были доступны более чем одной процедуре. Оператор Sub объявляет тело и имя процедуры LookForNameStart. Оператор Dim резервирует часть памяти под переменную fs , которая будет иметь доступ к системному файлу . О ператор Set связывает ссылку на новый объект , имеющий доступ к системному файлу с переменной fs. Также этот оператор связывает ссылку на новый объект fs, в котором открывается файл Myformrstl.htm(См.Рис .12) для чтения ( с помощью оператора Open) с диска F : на локальном компьютере с объектом t xtobj1. Он также связывает rst1 с новым встроенным объектом ADO базы данных . Потом в объекте rst1 открывается таблица “ tblContacts” в текущем проекте CurrentProject.Connection. Цикл Do Until … Loop выполняется до тех по р пока не будет найдена строка , которая находится прямо перед строкой “ X_FirstName” . Для этого используется ещё один цикл If … Then … Else … End If, который проверяет является ли читаемая строка txtobj1.ReadLine файла Myformrstl.htm строкой “ X_FirstName ”. Это осуществляется при помощи функции InStr , которая возвращает позицию искомой строки “ X_FirstName” . И если она является таковой , то выполняется вторая процедура ProcessContact нашего проекта , если же нет – то продолжается цикл Do ... Loop. Для очистки ресурсов используется метод Close для объектов txtobj1и rst1 и оператор Set, который ссылается на пустые объекты txtobj1 и rst1. Для заполнения таблицы “ tblContacts” в базе данных была создана процедура ProcessContact. Оператор On … GoTo в случае ошибки за ставляет перепрыгивать программу на строку MyErrorTrap. Оператор Dim объявляет переменные strFname, strLname, strCName, strSt1, strSt2, strCity, strRegion, strPostalCode, strCountry, strEmailAddr как строковые переменные ; intFirst и intLen как числовые пер еменные и cmd1 как встроенный объект ADO базы банных . С помощью цикла If … Then … Else … End If в этой процедуре проверяются строки с введёнными данными из Гостевой книги , которые сохранены в файле Myformrstl.htm. Цикл If … Then … Else … End If с помощью фу нкции InStr проверяет наличие в строке специального знака “  ” и если его нет , то присваивает переменной intFirst номер позиции символа + 1, с которого будет производиться запись . Затем переменной intLen присваивается значение длины записи , т.е . скольк о символов будет записано – 1. Переменным strFName и strLName присваиваются значения с помощью функций Ucase, Lcase и Mid символа с большой буквы под номером , который присвоен переменной intFirst строки strTemp и символов , с номерами , следующими за intFirs t из той же строки , длиной intLen – 1. Если условие не выполняется то строка остаётся пустой . По такому же принципу переменным strCName, strSt1 и strSt2 присваиваются значения , но при этом вместо функций Ucase, Lcase используется функция CleanText, которая создана в этом проекте . Она убирает все лишние символы из строки. В присвоении переменным strCity, strRegion, strPostalCode, strCountry, strEmailAddr используются практически те же способы , но вместо цикла If … Then … Else … End If применяется упрощённый ц икл , который записывается в одну строку If … Then. И он поверял лишь наличие спецсимволов в очередной строке , и если они есть то Эти переменные остаются пустыми . Также здесь используется только функция Mid и функции Left для strRegion, которая возвращает о п ределённое количество символов с начала строки. Метод SkipLine объекта txtobj1 пропускает строку. Для отладки программы используется объект Debug со свойством Print. Результаты работы процедур появляются в окне отладки. Далее все считанные данные будут по следовательно вписана в таблицу tblContacts нашей базы данных. Процедура проверяет пустые или нет переменные strFName , strLName и strEmailAddr если нет , то она использует оператор With для объекта rst1 для заполнения полей таблицы , проверяя наличие записи в каждой строковой переменной нашей процедуры. Метка MyExit в нашей процедуре означает , что после выполнения цикла процедура заканчивает работу. Каждая стандартная ошибка имеет свой номер . При ошибке – 214721887 объект cmd1 ссылается на новый встроенный объект ADO базы данных и с помощью оператора With связывается с текущим проектом , меняет некоторые свойства этого объекта , выполняет их и за оператором With следует функция восстановления Resume,т.е . запускается с самого начала Sub LookForNameStart. Если ж е номер ошибки другой , то в окне отладки появляется номер и описание этой ошибки и программа возвращается к метке MyExit. Функция CleanText убирает специальные символы с помощью функции Replace. Экранные копии этапов разработки с разъяснениями каждого из ображения. Для выполнения этого проекта необходимо было установить приложение MSFrontPage, который находится в пакете MSOffice2000. Его установочный пакет находится на компьютере User7 нашей локальной сети . При запуске установочного файла мы выбираем “ add or remove Features” (См . Рис .1) Рис .1 Затем мы выбрали FrontPage в списке и дали команду на установление .(См.Рис .2 и Рис .3) С помощью FrontPage Wizard я создал Гостевую книгу (см.Рис .4), которую потом установили на сервере нашей локальной сети . Получив файл с данными , полученными через эту Гостевую книгу , я приступил к выполнению второй части проекта : создание однотабличной базы данных и написанию кода процедур. Частью лю бого проекта VBA является набор ссылок на библиотеку типов всех компонентов IDE, которые применяются в данном проекте . Простые проекты содержат небольшое количество ссылок , которые применяются VBA, интерфейсом автоматизации и базовым приложением . Ссылками можно управлять интерактивно посредствам диалогового окна Ссылки (См.Рис .5) или программным путём , посредствам Rferences класса VBProject. Рис .2 Рис .3 Guest Book Welcome to my first web page Please enter your private information: First Name Last Name Organization Street Address Address (cont.) City State/Province Zip/Postal Cod e Country E- mail Bottom of Form Рис .4 Затем я создал однотабличную баз у данных и подключил несколько библиотек , необходимых для работы проекта .(См . Рис .5 и Рис .6) Следующий этап разработки - написание кода (См.Рис .7) Затем отладка процедур. Так как у создателей этого набора процедур , по-видимому , была несколько другая Гостева я книга , то мне пришлось внести некоторые изменения в код процедур : поменять адрес файла , с которого считываются данные , изменить имя первой строки этого файла и отменить несколько команд – “пропустить строку” (См . Рис .7 - 11). Как показано на рисунке 8 про грамма не работала , т.к . не находил необходимый файл . При этом появляется диалоговое окно с указанием номера ошибки и её описанием (См.Рис .9) Рис .5 Рис .6 Рис .7 X_FirstName: Sasha X_LastName: Sergheev X_Organization: College X_WorkAddress: A Russso 1 X_Address2: A Russo 1 X_City: Chishinev X_State: Moldova X_ZipCode: 22222222 X_Country: Moldova X_Email: sergheev@mail.md Рис .12 Тексты программ в виде текстового файла и описание их подключения к системе MSOffice 'Объявите переменные глобально , так чтобы они были доступны больше чем одной ‘ процедуре ; ' Txtobj1 и объекты fs требуют сс ылки на библиотеку Microsoft Scripting RunTime Dim txtobj1 As Scripting.TextStream Dim strTemp As String Dim rst1 As ADODB.Recordset Sub LookForNameStart() Dim fs As Scripting.FileSystemObject ' Формируйте ссылку к системе файла , и используйте это , чтоб ы 'открыть текстовый ‘ объект , основанный ' на локальном файле , который содержит регистр Гостевой книги Set fs = New Scripting.FileSystemObject Set txtobj1 = fs.OpenTextFile (“ F:\formrslt.htm", ForReading) ' Откройте recordset на tblContacts таблице S et rst1 = New ADODB.Recordset rst1.Open "tblContacts", CurrentProject.Connection, adOpenKeyset,_ adLockOptimistic ' Пройти цикл через текстовый объект для нахождения линии как раз ‘ перед ‘ FirstName полем Do Until txtobj1.AtEndOfStream strTemp = txtobj1 .ReadLine If InStr(1, strTemp, "X_FirstName") <> 0 Then ProcessContact End If Loop ‘ Очистить ресурсы rst1.Close Set rst1 = Nothing txtobj1.Close Set txtobj1 = Nothing Set fs = Nothing End Sub Sub ProcessContact() On Error GoTo MyErrorTrap Dim strFname As String Dim strLname As String Dim strCname As String Dim strSt1 As String Dim strSt2 As String Dim strCity As String Dim strRegion As String Dim strPostalCode As String Dim strCountry As String Dim strEmailAddr As String Dim intFirst As Int eger Dim intLen As Integer Dim cmd1 As ADODB.Command ’ Извлечь First Name в нужном регистре strTemp = txtobj1.ReadLine If InStr(1, strTemp, " ") = 0 Then intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strFname = UCase(Mid(strTemp, intFirst, 1)) &_ LCase(Mid(strTemp, intFirst + 1, intLen - 1)) Else strFname = "" End If ’ Извлечь Last Name в нужном регистре txtobj1.SkipLine strTemp = txt obj1.ReadLine If InStr(1, strTemp, " ") = 0 Then intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strLname = UCase(Mid(strTemp, intFirst, 1)) & _ LCase(Mid(strTemp, intFirst + 1, intLen - 1)) El se strLname = "" End If ’ Извлечь Organization Name в любом регистре txtobj1.SkipLine ’ txtobj1.SkipLine ’ txtobj1.SkipLine strTemp = txtobj1.ReadLine If InStr(1, strTemp, " ") = 0 Then intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strCname = CleanText(Mid(strTemp, intFirst, intLen)) Else strCname = "" End If ’ Извлечь строки с первым и вторым адресами txtobj1.SkipLine strTemp = txtobj1.ReadLine If InStr(1, strTemp, " ") = 0 Then intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strSt1 = CleanText(Mid(strTemp, intFirst, intLen)) Else strSt1 = "" End If txtobj1.SkipLine strTemp = txtobj1.ReadLine If InStr(1, strTemp, " ") = 0 Then intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strSt2 = CleanText(Mid(strTemp, intFirst, intLen)) Else strSt2 = "" End If ’ Извлечь City, Region, Postal Code , and Country txtobj1.SkipLine strTemp = txtobj1.ReadLine intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strCity = Mid(strTemp, intFirst, intLen) If strCity = " " Then strCity = "" txtobj1.SkipLi ne strTemp = txtobj1.ReadLine intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strRegion = Left(Mid(strTemp, intFirst, intLen), 20) If strRegion = " " Then strRegion = "" txtobj1.SkipLine strTemp = txtobj1.ReadLine intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strPostalCode = Mid(strTemp, intFirst, intLen) If strPostalCode = " " Then strPostalCode = "" txtobj1.SkipLine strTemp = txtobj1.Rea dLine intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strCountry = Mid(strTemp, intFirst, intLen) If strCountry = " " Then strCountry = "" ’ Извлечь Email address ; Использовать как строк e в VBA proc, но это добавляется к ‘ таблице как гиперсвязь txtobj1.SkipLine txtobj1.SkipLine txtobj1.SkipLine strTemp = txtobj1.ReadLine intFirst = InStr(1, strTemp, ">") + 1 intLen = InStr(InStr(1, strTemp, ">"), strTemp, "<") - intFirst strEmailAddr = Mid( strTemp, intFirst, intLen) If strEmailAddr = " " Then strEmailAddr = "" ' Используйте этот набор печати для отладки целей 'Debug.Print 'Debug.Print strFname & " " & strLname 'Debug.Print strCname 'Debug.Print strSt1 'Debug.Print strSt2 'Debug.Print strCity & ", "; strRegion & " " & strPostalCode 'Debug.Print strCountry 'Debug.Print strEmailAddr ' Добавьте запись , если это имеет допустимый первичный ключ - клавишу If strFname <> _ "" And strLname <> "" And strEmailAddr <> "" Then With rst1 .AddNew If strFname <> _ "" Then .Fields("FirstName") = strFname If strLname <> "" Then .Fields("LastName") = strLname If strCname <> "" Then .Fields("CompanyName") = strCname If strSt1 <> "" Then .Fields("Address") = strSt1 If strSt2 <> "" Then .Fields("Add ress1") = strSt2 If strCity <> "" Then .Fields("City") = strCity If strRegion <> "" Then .Fields("StateOrProvince") = strRegion If strPostalCode <> "" Then .Fields("PostalCode") = strPostalCode If strCountry <> "" Then .Fields("Country") = strCountry If strEmailAddr <> "" Then .Fields("EMailName") = strEmailAddr .Update End With End If MyExit: Exit Sub MyErrorTrap: If Err.Number = -2147217887 Then 'Перехватчик дублирует ключевую ошибку и заменяет запись Set cmd1 = New ADODB.Command With cmd1 . ActiveConnection = CurrentProject.Connection .CommandText = "DELETE * " & "FROM tblContacts " & _ "WHERE tblContacts.EMailName " & "= '" & strEmailAddr & "'" .CommandType = adCmdText .Execute End With Resume Else Debug.Print Err.Number; Err.Description Resume MyExit End If End Sub Function CleanText(strText As String) ' Замените специальные символы HTML типа & with & и " with " CleanText = Replace(strText, "&", "&") CleanText = Replace(CleanText, """, """") End Function Как описывалось выше этот набор процедур используется в приложении Access, для считывания данных с файла с расширением html. В этом файле хранятся данные о пользователях Гостевой книги.
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История
45Биографии
46Историческая личность
47Литература
 
48Маркетинг и реклама
49Математика
50Медицина и здоровье
51Менеджмент
52Антикризисное управление
53Делопроизводство и документооборот
54Логистика
 
55Педагогика
56Политология
57Правоохранительные органы
58Криминалистика и криминология
59Прочее
60Психология
61Юридическая психология
 
62Радиоэлектроника
63Религия
 
64Сельское хозяйство и землепользование
65Социология
66Страхование
 
67Технологии
68Материаловедение
69Машиностроение
70Металлургия
71Транспорт
72Туризм
 
73Физика
74Физкультура и спорт
75Философия
 
76Химия
 
77Экология, охрана природы
78Экономика и финансы
79Анализ хозяйственной деятельности
80Банковское дело и кредитование
81Биржевое дело
82Бухгалтерский учет и аудит
83История экономических учений
84Международные отношения
85Предпринимательство, бизнес, микроэкономика
86Финансы
87Ценные бумаги и фондовый рынок
88Экономика предприятия
89Экономико-математическое моделирование
90Экономическая теория

 Анекдоты - это почти как рефераты, только короткие и смешные Следующий
Кот, живущий на мясокомбинате, постоянно боится, что его кастрируют.
Потому что ну не может быть всё так хорошо.
Anekdot.ru

Узнайте стоимость курсовой, диплома, реферата на заказ.

Обратите внимание, реферат по программированию "Считывание данных из гостевой книги", также как и все другие рефераты, курсовые, дипломные и другие работы вы можете скачать бесплатно.

Смотрите также:


Банк рефератов - РефератБанк.ру
© РефератБанк, 2002 - 2016
Рейтинг@Mail.ru