Практикум для изучения возможностей работы в СУБД Access. Устюгова В.Н. - 59 стр.

UptoLike

Составители: 

59
Метод принимает два аргумента: Destination и PersistFormat. Аргумент Destination
задает имя и полный путь к файлу на диске или ссылку на объект Stream. Второй аргумент
задает формат, в котором данные будут сохранены. В качестве его значения можно задать
одну из двух констант типа PersistFormatEnum: adPersistADTG (данные будут сохранены в
формате ADTG (Microsoft Advanced Data TableGram)) и adPersistXML (формат XML).
Пример использования объекта Recordset.
Set MyRec = New ADODB.Recordset
Set MyRec1 = New ADODB.Recordset
MyRec.Open "Фонд", CurrentProject.Connection, adOpenStatic, adLockOptimistic
MyRec1.Open "Фонд1", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set MyComm = New ADODB.Command
MyComm.ActiveConnection = CurrentProject.Connection
MyComm.CommandText = "Delete * from Фонд1;"
MyComm.CommandType = adCmdText
MyComm.Execute
While MyRec.EOF <> True
If (MyRec!Автор Like d + "*") Then
MyRec1.AddNew
MyRec1!Название = MyRec!Название
MyRec1!Автор = MyRec!Автор
MyRec1!Ном_номер = MyRec!Ном_номер
MyRec1.Update
End If
MyRec.MoveNext
Wend
MyRec.Close
MyRec1.Close
Set MyComm = Nothing
Set MyRec = Nothing
Set MyRec1 = Nothing
Объект Command
Объект Command используется для того, чтобы сформировать запрос к базе данных
для возвращения необходимых объекту Recordset записей (при этом возвращается ссылка на
временный набор данных) или манипуляции структурой самой базы данных. Объект
Command удобно использовать для запуска выполняемых запросов (на добавление,
удаления записей и других), а также хранимых на стороне сервера процедур. Вы можете
сами ознакомиться с тем небольшим количеством свойств и методов, имеющихся у объекта
Command.
Последовательность действий, выполняемых при использовании объекта Command, во
многом повторяет группу действий, которые необходимо выполнить, чтобы открыть объект
Recordset. Схематично эту последовательность действий можно описать примерно так
(конечно, это не единственно возможная схема):
Описать переменную типа Connection (например, MyConn) и открыть соединение (так как
это описывалась ранее в этой главе).
1. Описать переменную типа Command.
Dim MyComm AS ADODB.Command
2. Явно создать экземпляр объекта:
Set MyComm = NEW ADODB.Command
     Метод принимает два аргумента: Destination и PersistFormat. Аргумент Destination
задает имя и полный путь к файлу на диске или ссылку на объект Stream. Второй аргумент
задает формат, в котором данные будут сохранены. В качестве его значения можно задать
одну из двух констант типа PersistFormatEnum: adPersistADTG (данные будут сохранены в
формате ADTG (Microsoft Advanced Data TableGram)) и adPersistXML (формат XML).

     Пример использования объекта Recordset.

Set MyRec = New ADODB.Recordset
Set MyRec1 = New ADODB.Recordset
MyRec.Open "Фонд", CurrentProject.Connection, adOpenStatic, adLockOptimistic
MyRec1.Open "Фонд1", CurrentProject.Connection, adOpenStatic, adLockOptimistic
Set MyComm = New ADODB.Command
MyComm.ActiveConnection = CurrentProject.Connection
MyComm.CommandText = "Delete * from Фонд1;"
MyComm.CommandType = adCmdText
MyComm.Execute

While MyRec.EOF <> True
If (MyRec!Автор Like d + "*") Then
MyRec1.AddNew
MyRec1!Название = MyRec!Название
MyRec1!Автор = MyRec!Автор
MyRec1!Ном_номер = MyRec!Ном_номер
MyRec1.Update
End If
MyRec.MoveNext
Wend
MyRec.Close
MyRec1.Close
Set MyComm = Nothing
Set MyRec = Nothing
Set MyRec1 = Nothing

                                      Объект Command

      Объект Command используется для того, чтобы сформировать запрос к базе данных
для возвращения необходимых объекту Recordset записей (при этом возвращается ссылка на
временный набор данных) или манипуляции структурой самой базы данных. Объект
Command удобно использовать для запуска выполняемых запросов (на добавление,
удаления записей и других), а также хранимых на стороне сервера процедур. Вы можете
сами ознакомиться с тем небольшим количеством свойств и методов, имеющихся у объекта
Command.
      Последовательность действий, выполняемых при использовании объекта Command, во
многом повторяет группу действий, которые необходимо выполнить, чтобы открыть объект
Recordset. Схематично эту последовательность действий можно описать примерно так
(конечно, это не единственно возможная схема):
Описать переменную типа Connection (например, MyConn) и открыть соединение (так как
это описывалась ранее в этой главе).
    1. Описать переменную типа Command.
Dim MyComm AS ADODB.Command

2. Явно создать экземпляр объекта:
Set MyComm = NEW ADODB.Command
                                            59