MetodDB
.pdf
* * + * * # + -
+ * ( 96).
95 – (
96 – ' « »
) # + «" *» . # + -
«'# *» ( 97).
211
97 – ' «( »
98 – / .
! *
" *# * . .:
+, * # # * , *
# # * # #.
.
( + #
«'# 1(», + # ##* #
4, * * # + - * * (*, # * , *, #-
* *, # *, # * #
212
# * * + . * * * *). - .
# # * .
213
-# ! 8 # ! 0 26. &$!32 " & ' % 2 , ' VB
3 * – # * * 4 - # * Visual Basic.
5 ) Visual
Basic
* VBA, * + + +
* *, 4 * # * #
. * * *. Microsoft Office Access 2007
# + Microsoft Office12.0 Access Database Engine Object Library. ,, + * * –
# / * . ( +
# «Project», «References» ( 99). , # + + + # * 4 * #*, # * + # * Microsoft Office Access
2007:
-DBEngine – ;
-Workspaces – +, . / + * * #-
;
-Workspace – *, . * * * *;
-Databases – * * Workspace * *;
-Database – * + *;
-Querydefs – # #;
-Querydef – # #;
-Recordset – #.
214
99 – Microsoft Office12.0 Access Database
Engine Object Library
, * 4 # * -
4 # DBEngine, #:
Set dbe = New DBEngine
Set wrk = dbe.Workspaces(0) ‘ создание рабочей
‘ области
Set dbs = wrk.OpenDatabase(pth)‘ pth – путь к
‘ базе данных
4 # Recordset + .,
VBA.
2 )
Visual Basic # #, + # + *-
# # +. # .
# * *, * *# + *# + *-
* . , # + * - * * +.
# List1 List2, # Label1 #- + + / # ( 100).
215
100 – # VB .
* General 4+ + # *:
Option Explicit |
|
|
Dim S As Double |
|
|
Dim dbe As |
DBEngine |
|
Dim dbs As |
Database |
|
Dim wrk As |
Workspace |
|
Dim Sotr As Recordset |
‘ водители |
|
Dim orders |
As Recordset ‘ заказы |
|
Const pth = "Гараж.accdb" |
‘ путь к БД от те- |
|
|
кущего |
|
|
‘ каталога |
|
( + * + * # / # :
Private Sub Form_Load()
Set dbe = New DBEngine
Set wrk = dbe.Workspaces(0)
Set dbs = wrk.OpenDatabase(pth)
Set Sotr = dbs.OpenRecordset("Водители") Set orders = dbs.OpenRecordset("зпЗаказы")
216
With Sotr
.MoveFirst
Do Until .EOF
List1.AddItem Format(Sotr!ТабНомер, "0#")
_
& " " & Sotr!Фамилия
.MoveNext Loop
End With
End Sub
, * + 4 * # *, -
* + # *, # # - *, # * # Recordset # + – * . ( + * + Click #-
List1 # # :
Private Sub List1_Click()
List2.Clear
S = 0
With orders
.MoveFirst
Do Until .EOF
If orders!ТабНомер = Val(Left(List1.Text,
2)) Then
List2.AddItem Format(orders!НоЗаказа,
"0#") _
&" " & orders!ДатаОформления & _
"" & Format(orders!Цена, "######") S = S + Val(orders!Цена)
End If
.MoveNext
217
Loop
End With
Label1.Caption = "Всего заказов на сумму " & S
_
& " рублей"
End Sub
- # # . * # List1 # # , * -
+, + # List2.
101 – # . !
! *
" *# * . .:
+, * VB, # # +
, # * # *# * # *. ) # # *. , *
#.
218
.
1
Visual Basic # #, + # + * # # .. # . # *
, * # * * # # .-. , # + * /
..
2
Visual Basic # #, + # + * # # . # . # *
# + + * #-
* . , # + * / -
# * .
3
Visual Basic # #, + # + * # # . # . # *
, * * . , # + * / .
4
Visual Basic # #, + # + *-
# # . # .
# * # * * * * -
. , # + * - * # * .
5
Visual Basic # #, + # + * # # +. # . #- * *, *# * * * . ,-
219
# + * , *# * -
.
6
Visual Basic # #, + # + *-
# # . # . # *
, / * . , #
+ * .
7
Visual Basic # #, + # + *-
# # ##. # . # *
* ##*. , # + *-
##.
8
Visual Basic # #, + # + *-
# # # . #
. # * * * * # . , # + * .
9
Visual Basic # #, + # + *-
# # # . . # . #- * *, . / # * # *. ,-
# + * .
10
Visual Basic # #, + # + *-
# # . # . # *-
* # * * * -
. , # + * / .
220