Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Dim dbsSales As Database

Dim rstEmp As RecordSet, fldTitle As Field

Dim wspCurrent As WorkSpace

Set wspCurrent As WorkSpace

Set wspCurrent=dbEngine WorkSpace(0)

Set dbsSales=OpenDatabnase (“Nwind.mdb”

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

Set fldTitle=rstEmp.Fields(“Title”) rst Emp.MoveFirst

Do Until rstEmp.EOF

If fldTitle=“Ком. предст.” Then rstEmp.Edit fldTitle=“Ком. агент” rstEmp.Update

End If rstEmp.MoveNext

Loop rstEmp.Close dbsSales.Close

End Sub

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

Методв CreateQueryDef:

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

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

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

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

- строка SQL - выражение SQL, ..... объект QueryDef

Например,

Dim dbs As Database

Dim myqdf As QueryDef

SQL str = “Select * From Products”

SQL str = SQl str & “Where price >1000 and price

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



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки