Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата

Рис.11

[pic]
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 таблице

Set rst1 = New ADODB.Recordset

rst1.Open "tblContacts", CurrentProject.Connection, adOpenKeyset,_ adLockOptimistic

' Пройти цикл через текстовый объект для нахождения линии как раз ‘перед
‘FirstName полем

Рекомендуем скачать другие рефераты по теме: конспект, курсовая работа по учету.





Предыдущая страница реферата | 1  2  3  4  5  6 | Следующая страница реферата