DataBase

1
DataBase ?????????
2
????????? ???????????????????????????????????
???? ????????? ??????????????????????????????????
???? ????????????????? ??????????????
??????????????????????????????????????????????????
????
3
Database
Table1
Table2
Table3
Table4
Tablen
4
Dabase Management System (DBMS)
???????????????????
5
??????????????????? ?????????????????????????????
?????? ??????? ????? ????????????????
??????????????????????????????????????????
6
???????????????????
??????????????? 1
DBMS
??????????????? 2
??????????????? 3
7
?????????????????????????????

• ??????????????????????????? ????
  ?????????????????????????? ????????????????????
  ???? ????????????????????? ????????????
  ????????????? ?????????????????

• ???????????????????????????????????????

• ???????????????????? ??????????????????????????
  ???????????

8

• ???????????????????????? ????????????????????
  ???????????????????????? ????????????????????????
  ?????? Structure Query Language ???? SQL

9
???????????????????????????????
?????????????????? 3 ?????????
???????????????? ????????????????????????????????
??????????? ??????????? Jet Engine ??????? Jet
Engine 1.1 ????????????????????????????
??????????????????????????????????????????????????
????????????????????????????????????????????????
?????????????????
10
???????????????????????????????

• MS-ACCESS
• dBase III, iV, V
• FoxPro 2.0, 2.5, 2.6
• Paradox 2.0,2.5, 5.x
• Excel 3.0, 4.0, 5.0, 97
• ?????? ODBC (Open database Connectivity) g????
  Oracle, Microsoft SQL-Server

11
?????????????????????????????????
12
Student.MDB
Course_TB
Student_TB
??????????????????
?????????????
????????? (Table)
????????????? (Field)
13
????????????????????? Course_TB
?????????????? (Row / Record)
???????????????????? (Column / Field)
14
????????????????????? Course_TB
15
RecordSets ????????????????????
??????????????????????????????????????????
(RecordSet) ???????? ?????????????????????????????
???????????????????????????????????????????
16
Student.MDB
Course_TB
Student_TB
RecordSets
????????????? ???????? ???????????
????????????????????????????? Student_TB
???????????????????????????????? ?
17
??????????????????????

• DynaSets ??????????????????????

• SnapShots ?????????????????????????

Tables ??????????????????????
18
?????????????????????????????????????????
??????
Dim ObjVar As Class Set ObjVar Object
?????? Dim ????????????????????????????? ??????
Set ?????????????????????????????????????????????
?????
ObjVar ?????????????? Class ???????
Database,TableDef, RecordSet Field,
Column
19
????????
Dim db as Database Set db OpenDataBase
_ (C\database\Employee.mdb)
?????????????????????????????? ??? db ??????
???? db.Close ??????????????? db.TableDefs.Count
??????????????????????????????????????? db.Table
Defs(0).Name ??????????????????????? 0
???????? ??????
20
????????
Dim db as DataBase Dim rs as RecordSet Set db
OpenDataBase _ (C\database\Employee.mdb
) Set rs db.OpenRecordSet(EmPloyee_Name)
?????????????????????????????? ??? db
???????????? ?????? rs ?????????????? ??? ????
rs.Fields.Count ???????????????????????????????
??? ???????
Employee_Name
21
Collection Object ?????????
22
????????? ??????? ???????????????????????????
???????????????????????????????????
???????????????? ????????????????????????????????
??? ? ???????????????????????????????????????????
????????????????????? ?
23
?????????????????
????????? ??????????
????????? Columns
Columns(n).Name ???????????
Fields Fields(n).Name ???????????
?? RecordSets RecordSets(n).Name
???????????????
24
????????? ??????????
????????? QueryDefs
QueryDefs(n).Name ????????? Relations
Relations(n).Name ???????????????? Table
Defs TableDefs(n).Name
?????????
25
TableDefs ???????????
Database
TableDefs
Fields
Indexes
TableDef
TableDef
26
RecordSets ???????????
Database
RecordSets
RecordSet
Fields
Indexes
Properties
27
Fields ?????????????
RecordSet
Fields
Fields(0)
Fields(1)
Fields(2)
Fields(3)
Fields(n)
28
?????????????????????????????
Count ??????????????????????? ????
db.TableDefs.Count ????????????????????? rs.Fi
elds.Count ????????????????????- ???????? Name
????????????? ???? db.TableDefs(0).Name
????????????????? 0 rs.Fields(1).Name
????????????????????? 1
29
?????????????????????????????????????????
Dim db As Database ??? db ???????????????????
?????????????? Dim TableNo, i As Integer Set db
OpenDatabase _ (c\Chitlada\database\s
tudent.mdb") TableNo db.TableDefs.Count Debug.Pr
int "Total Tables in the database ",
TableNo Debug.Print "Table Orders and Table
Names _ are as following" For i 0
To TableNo - 1 Debug.Print i,
db.TableDefs(i).Name Next
30
(No Transcript)
31
??????????????????????????????????????????????
Dim db As Database ??? db ???????????????????
?????????????? Dim rs as RecordSet ??? rs
????????????????????????
??????????? Dim i As
Integer Set db OpenDatabase _
(c\Chitlada\database\student.mdb") Set
rs db.OpenRecordSet (Student_TB) Debug.Print
Field Names and their values For i 0 To
rs.Fields.Count - 1 Debug.Print
rs.Fields(i).Name, rs.Fields(i) Next
32
(No Transcript)
33
??????????????????????????????????????
?????????????????? ???????????????? ????
????????????????? 1 ???? FirstName
??????????????????????? ????????????
Recordset.Fields(1) ???? Recordset.Fields(FirstNa
me) ?????
34
??????? (Method) ??????????????????????
Move ???????????? MoveFirst
???????????? MoveNext
?????????????? MovePrevious ???????????????????
? MoveLast ???????????????? Update
????????????????????? UpdateRecord
?????? Update ?????? Data Control
35
??????? (Method) ??????????????????????
AddNew ???????????? Delete
???????????? Edit
????????????????????
36
????????????
recordset.method recordset ??????????????????????
?????? method ???????????????????????????????
?????
37
????????
Dim rs As RecordSet rs.MoveNext
rs.MovePrevious rs.Update
38
????????? ??????????????????????
AbsolutePosition ???????????????????????????
?? ??????????????? 0
????????????? 1 BookMark
???????????????????????
???????????? LastModified
?????????????? BookMark ???
????????????????????????
39
????????? ??????????????????????
BOF ???????????? EOF
???????????
40
???????????????????????????????
???????????????????????????????????????????????
Error ????????? IF ??????????? ??????
If not rs.EOF then rs.MoveLast End
if If not rs.BOF then rs.MoveFirst End
if
41
?????? With Block ?????????????????????????
With rs If Not .EOF then
.MoveLast End If If Not .BOF
then .MoveFirst End If End With
42
????????????????????
??????
recordset.Move row, start
recordset ???????????????????????????????
row ???????????? ??????????????????????
????????????????????????????? (Bookmark)
?????? start ???????????????????????
??????????????????? ?????????? Variant
?????????????????? ????????????????????????
???????????????? ??????????????????
?????????????????????? ????
43
Data Control ???????????
44
Data Control
??????????????????????????????????????????????????
? ??????????????????????????????????????????????
(Bound Control) ???????????????? (Text Box)
??????????? (List Box) ?????????? (Combo Box)
????????? (DBCombo) ???????? (DBGrid) ???????
45
????????????????????????????????????
??????????????????????????????? 2 ????? ??????
1. ??????????????????????????????????????????????
(DataSource Property) 2. ?????????????????????
?????????????????????? ??????????????????
(DataField Property)
???????????????????????????? ?????????????????????
??????? 2 ?????? ?????????????????
46
????????? Data Control ??????????
???????????????????????????????????
?????????????????????????????????
?????????????????????????????? ??????????
????????? ??????????????? ???????????????????????
?????? ?????????????????????? ???????? Data
Control ???? 1 ???? ?????????????????
47
????????????? Data Control

• ??????????????? Open Database ???????????????????
  ?????
• ????????????????????????????? DataBase ???
  RecordSet
• ???????????????????????????????????????????
  ?????????????? ????????????????
• ???????????????????????????? ????????????????????
  ????????? ??????????? Data Control ?? Update
  ??????????????? ????????????????????????? Update

48
??????????? Data Control
????????????????
????????????
???????????????????????
????????????????????
49
???????????????????? Data Control
DatabaseName ?????????????????????????????
??? ?????????????????? Data Control ?? F4
?????????????????????????? ??????????????????????
DatabaseName ?????????????????
??????????????????????????????????
50
RecordSource ????????????????????????????
?????????????????? ??????????
???????????????????????? Data Control ????? F4
????????? RecordSource ???????????????
??????????????? Data Control ??????????
51
?????????????????????????? Data Control (Methods)
Refresh ???????????????????????????? Data
Control ???????? ????? (Query)
??????????????????????????????????????????????????
? ??????? Refresh ????? 3 ??????????
1. ????????????????????????????? RecordSource 2.
???????????????????????????????????? Data
Control 3. ??????????????????????????????????????
????????? ? ???
??????????????
Data1.Refresh
52
UpdateRecord ????????????????????? Data
Control ??????????????????????????????????????????
???? ??????????? ??????? Data Control
????????????????????????? ???????????????????
??????????????????????????????????????????????????
? ????????? Data Control ???????????????????????
?????? ????????????????????? (Record Pointer)
????????????????????
??????????????
Data1.UpdateRecord
53
UpdateControl ????????????????????
(Retrieves) ???????????????????????? (Current
Record) ????????????????????????????????????
??????????????????????????????????????????????????
????????????????
??????????????
Data1.UpdateControls
54
????????? (Events) ??????????? Data Control
Reposition ???????????????????????????????
???? ???????? (Current
Record) ??????
??????????????????????????????? ????
???????????????????????????????
55
????????? (Events) ??????????? Data Control
Reposition ???????????????????????????????
???? ???????? (Current
Record) ??????
??????????????????????????????? ????
???????????????????????????????
56
??????????????????????? ?????????????????????????
???????????????????????????????? Data Control
Private Sub Data1_Reposition() Data1.Caption
Record No _ (Data1.AbsolutePosi
tion 1) _ , Total Records
_ Data1.RecordSet.RecordCount
End Sub
57
??????????????????????????????????????????
Private Sub MoveRecortSet() Dim RecNo as Long Dim
varBookMark as Variant Data1.RecordSet.MoveFirst v
arBookMark Data1.RecordSet.BookMark RecNo
Val(InputBox(?????????????????,,_
1500,4200))
58
If RecNo lt 1 or RecNo gt _
Data1.RecordSet.RecordCount Then MsgBox
????????????????????? Exit Sub End If
Data1.Move Recno - 1, varBookMark End Sub
59
?????????????????????????????????????????? Data
Control
Private Sub Data1_Reposition () Data1.Caption
?????????? _
(Data1.AbsolutePosition 1) End Sub
60
????????????????????????????????????
???????????????????????????????? Data Control
???? ????????????????????????????????????????????
???????????????????? ????????????????????????????
????????? ????????????????????????????????????????
????? ??????????????????????????
61
DataSource
DataSource ??????? Data Control
?????????????????????? ?????????????????????
????????????? Data Control ??????????????????????
??? DataField DataField ????????????????
???????????????????????????????????
???????????????????????????????????
?????????????????????????????????????????????
??????????????????????????????
62
???????????????
????????????????????????????????????????
63
????????????????
64
????????????????????????????
????????????? ???????????
???????????? ????????????? Label1
Label1
??????????? Label2 Label2
???? Text1 Text1
Text1
Text2 Text1 Text3 Data1
Data1
Data1 Command1 cmdExit
????
65
????????????????????????????
???? Data1 ?? F4 ?????????????????????
????????????????????????????????????????
?????????????? Folder ????????????????
?????????????? ??? Open
66
????????????????????????????
67
????????????????????????
??????? Data1 ?????? F4 ????????????????????
?????????????????? RecordSource
??????????????????
68
???????????????????????? Text1
??????? Text1 ?????? F4 ????????????????????
??????????????? DataSource ?????????? Data
Control
69
???????????????????????? Text1
?????????????? DataField
??????????????? DataField ?????????? ID
70
?????????????? Text2
71
?????????????? Text3
72
?????????????????????????
73
Run ???????
74
????????????????????????? Data Control
75
?????????
Private Sub cmdDelete_Click() With
Data1.Recordset .Delete .MoveNext If
.EOF Then .MoveLast End With End Sub
76
??????????
Private Sub cmdAdd_Click() Data1.RecordSet.AddNe
w End Sub
77
??????????????????????????
78
??????????????????
79
????????????????????????????
????????????? ???????????
???????????? ????????????? Label1
lblID
??????????? Label2 lblName
???? Text1 txtID
Text1
txtFirstName Text1 txtLastName Data1
Data1
Data1 Command1 cmdExit
????????? Command2 cmdDelete
????????? Command3 cmdAdd
???????????? Command4
cmdMove
????????????...
80
?????????????????????????
81
?????????????????????????
82
?????????????????????????
83
?????????????????????????