Буфер обмена

СВЯЗЬ С ДРУГИМИ ПРИЛОЖЕНИЯМИ WINDOWS

Dim SQLstr As String

Dim myqdf As QueryDef

Dim dbs As Database

Создание запросов

End Sub

DbsSales. Close

RstEmp. Close

Loop

RstEmp. MoveNext

End If

RstEmp. Update

RstEmp. Edit

Do Until rstEmp. EOF

RstEmp. MoveFirst

Dim rstEmp As RecordSet, fldTitle As Field

Dim dbsSales As Database

Dim wspCurrent As WorkSpace

Sub Change Title()

DbChar, dbByte, dbDouble, dbInteger, dbSingle, dbLong, dbText

Работа с полями объекта RecordSet

После извлечения записи можно обращаться к ее отдельным полям через коллекцию Fields объекта RecordSet по свойству Name (имя столбца в таблице) одним из следующих способов:

rstEmployers. Fields (“LastName”)

или

rstEmployers! LastName

или

rstEmployers. Fields (0) ' по индексу поля в коллеции Fields.

Типы данных объекта Field:

При работе с данными объекта Field используется его свойство Value ( которое является умолчательным). Например:

RstEmployers! LastName. Value=strName

Пример процедуры корректировки содержимого поля Title во всех записях набора Employes базы данных Nwind.mdb - замена строки “Ком. предст.” на строку “Ком. агент ”

Set wspCurrent=dbEngine. WorkSpace (0)

Set dbsSales=OpenDatabase (“Nwind.mdb”)

Set rstEmp=dbsSales. OpenRecordSet(“Employes”, dbOpenTable)

Set fldTitle=rstEmp. Fields (“Title”)

If fldTitle = “Ком. предст.” Then

fldTitle = “Ком. агент”

Для создания и сохранения запросов используется метод CreateQueryDef. Его синтаксис:

Set запрос = БД.CreateQueryDef ([имя] [, строка SQL])

Где: запрос - объектная переменная, в которой будет храниться ссылка на вновь создаваемый объект типа QueryDef;

БД - объектная переменная, хранящая ссылку на объект Database, в котором будет храниться создаваемый объект QueryDef;

имя - имя запроса;

строка SQL - выражение SQL.

Например:

SQLstr = “Select * From Products”

SQLstr = SQlstr & “Where price >1000 and price <2000”

SQLstr = SQLstr & “Order by ProductName”

Set myqdf = dbs. CreateQueryDef (“NewProducts”, SQLstr)

Visual Basic позволяет использовать многозадачность Windows, активизируя любое из заданных приложений, либо посылая напрямую команды активному приложению из проекта Visual Basic. Обмен информацией между приложениями Windows средствами Visual Basic осуществляется одним из трех способов:

1) использованием буфера обмена Clipboard;

2) с помощью технологии DDE - динамический обмен данных;

4) с помощью технологии OLE - связывание и встраивание объектов.

Буфер обмена позволяет обмениваться текстовыми и графическими данными между несколькими приложениями с помощью операций вырезки - вставки.

Методы объекта Clipboard

Метод Clear - очищает буфер обмена перед его использованием.

Синтаксис: Clipboard. Clear

Метод SetText - посылает текстовую информацию, содержащуюся в строковой переменной или строковом выражении, в буфер, уничтожая старую информацию.

Синтаксис: Clipboard. SetText StringData, Format

Где: StringData – строка;

Format – формат объекта Clipboard, определяемый соответствующей встроенной константой (vbCFLink – информация DDE; vbCFRTF - RichText Format; vbCFText - текстовый формат).

Например:

Text1.Text = InputBox (Msg) ' ввод информации пользователя в ’текстовое поле

Дата добавления: 2014-12-10