Считывание данных из гостевой книги
Категория реферата: Рефераты по информатике, программированию
Теги реферата: баллов, изложение 9
Добавил(а) на сайт: Балтабев.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата
Тексты программ в виде текстового файла и описание их подключения к системе 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 полем
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
Рекомендуем скачать другие рефераты по теме: реферат металлы, решебник 6 класс виленкин.
Предыдущая страница реферата | 1 2 3 4 5 6 7 | Следующая страница реферата