Курс лекций по V B 5.0
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: шпаргалки по управлению, скачать изложение
| Добавил(а) на сайт: Оскар.
Предыдущая страница реферата | 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 | Следующая страница реферата
Главная