I?ia?aiie?iaaiea a n?aaea VB 5.0
A i?eeiaeaieyo VB 5.0 eniieiyaiua no?iee aeieaeiu ?aciauaoueny aioo?e
i?ioeaaeo? eeai ooieoeee. Iia?aoi?u a VB ?aaeei eniieuecotho iiia?a
no?ie, a ethaua ec ieo iau/ii ia/eiathony n iiaie no?iee. No?iee
ia?aie/aiu aeeeiie a 1023 neiaiea. iiaeii ?anoe?youe no?iee, eniieuecoy
neiaie “_” iinea i?iaaea a eiioea no?iee. Ianeieueei iia?aoi?ia iiaeii
iauaaeeiyoue a iaeiie no?iea, ?acaeaeyy eo “ : ”.
Eiiiaioa?ee caaeathony aa?oiae eaau/eie (‘), eeai iia?aoi?ii REM.
Eiiiaioa?ee iiaeao auoue auaaaeai ioaeaeueiie no?ieie, eeai a eiioea
no?iee. Ai aoi?ii neo/aa eo/oa eniieueciaaoue eaau/eo (‘), /ai REM, o.e.
REM caeanue o?aaoao ?acaeaeeoaey (:). Iai?eia?,
DIM FARENG ‘ ia?aiaiiay aeey au/eneaiey t0 ii Oa?aiaaeoo
eee
DIM FARENG : REM ia?aiaiiay aeey au/eneaiey t0 ii Oa?aiaaeoo
Iia?aoi? End – i?ia?aiia inoaiaaeeaaaony. Iinea iia?aoi?a End
cae?uaathony ana ieia, ioe?uoua i?ia?aiiie, a naia iia noe?aaony ec
iaiyoe. Aioo?e i?eeiaeaiey VB iiaeao auoue neieueei oaiaeii iia?aoi?ia
End, ii iau/ii eo/oa eniieueciaaoue oieueei iaeei iia?aoi? End a
i?ioeaaeo?a ia?aaioee niauoee QueryUnload aeey iniiaiie oi?iu. A yoii
neo/aa ana iia?aoi?u End caiaiythony ia Unload Me, eioi?ue aucuaaao
naaa QueryUnload aeey oi?iu.
Iaeiei ec iniiaiuo iia?aoi?ia yaeyaony i?enaaeaaiea cia/aiey ia?aiaiiui
e onoaiiaea cia/aiee naienoa.
Iai?eia?,
1) Result = 0.5 ( 20
eiy cia/aiea
ia?aiaiiie
Iiaeii eniieueciaaoue iia?aoi? LET
2) iauaeo.naienoai = cia/aiea
txtDisplay.Text = “ “
Naienoaa ii oiie/aieth
O ethaiai iauaeoa VB anoue naienoai ii oiie/aieth. Iai?eia?, aeey
oaenoiaiai iiey yoi naienoai Text. I?e nnueea ia aeaiiia naienoai iiaeii
ia oeacuaaoue aai eiy.
Iai?eia?, txtDisplay=“I?eaao!”
Iaeioi?ua naienoaa iiaoo i?eieiaoue cia/aiey TRUE eee FALSE. A VB5
eiathony ano?iaiiua eiinoaiou aeey iaicia/aiey aeaiiuo naienoa,
iai?eia?, cmdExit=False aoaeao ne?uaaoue eiiaiaeioth eiiieo, iiea ia
iiyaeony au?aaeaiea cmdExit=True.
Aioo?e naay VB eniieuecoao cia/aiea 0 aeey False e -1 aeey True (eee
ethaia iaioeaaia cia/aiea).
Iiaeii eniieueciaaoue neaaeothuaa au?aaeaiea aeey eciaiaiey naienoaa ia
i?ioeaiiieiaeiia
cmdExit.Visible = Not (cmdExit.Visible).
Ia?aiaiiua. Eiaia ia?aiaiiuo iaiaa 255 neiaieia ia/eiathony n aoeau, ca
eioi?ie neaaeotho ae?oaea aoeau, oeeo?u eee neiaie “_”. ?aaeno? cia/aiey
ia eiaao. A ea/anoaa eiai ia?aiaiiuo iaeuecy eniieueciaaoue
ca?aca?ae?iaaiiua neiaa, iai?eia?, Print. I?eiyoi eniieueciaaoue
niaoaiiue ?aaeno? i?e caaeaiee eiai ia?aiaiiuo, ninoiyueo ec ianeieueeeo
neia, iai?eia?, CurrentValue.
Oeiu ia?aiaiiuo. Eniieuecoaony 14 noaiaea?oiuo oeiia ia?aiaiiuo. Iiaeii
ii?aaeaeeoue e nianoaaiiue oei. Iniiaiua oeiu:
String – no?ieiaua ia?aiaiiua. Aeey iaicia/aiey yoiai oeia iiaeii
aeiaaaeoue neiaie “$” e eiioeo eiaie.
Iai?eia?, Message $ = txtDisplay.Text
Integer – oeaei/eneaiiay ia?aiaiiay a aeeaiaciia -32768 (+32767. Aeey
iaicia/aiey a eiioea eiaie aeiaaaeyaony “%” a?eoiaoe/aneee iia?aoi?
auiieiyaony auno?i.
Iai?eia?, IntVar% =5
LongInteger – aeeeiiia oeaeia io -2147483648 aei +2147483647.
Iaicia/aaony “&”.
LongInt&= 123456789.
SinglePrecision o?aieo ae?iaiua /enea n oi/iinoueth aei 7 oeeo?. Aeey ia
/enae iiaeao aeinoeaaoue 38 ciaeia n iaicia/aieai “!”. Au/eneaiey /
aeaiiuie ia?aiaiiuie aoaeao i?eaeeceoaeueiui.
DoublePrecision “#”. *enea n oi/iinoueth aei 16 oeeo? e aeeeiie aei 300
neiaieia. Au/eneaiey oiaea i?eaeeceoaeueiu, a nei?inoue iaaieueoay.
Eniieuecoaony aeey iao/iuo ?an/aoia.
Currency – eniieuecoaony i?e i?aia?aciaaiee aeanyoe/iuo /enae a
aeaie/ioth oi?io e iaiai?io. Iaicia/aiea – “@”. Iiaeao eiaoue aei 14
oeeo? aei caiyoie e aei 4 oeeo? – iinea. Eniieuecoaony aeey oeiainiauo
?an/aoia.
Date – cia/aiey aeaou e a?aiaie io 00 /an.1 yiaa?y.100 aiaea aei
00/an.31 aeaeaa?y.9999 a. Cia/aiea iaicia/aaony “#”.
Time = # May 5, 1999 #
Byte – aeey o?aiaiey oeaeuo /enae io 0 aei 255. Yeiiiieo iia?aoeaioth
iaiyoue e ?acia?u ianneaia. Eniieuecoaony oaeaea i?e ?aaioa n aeaie/iuie
oaeeaie.
Variant – aeaiiua ethaiai oeia. Anee VB ia ciaao oei i?eieiaaiuo
aeaiiuo, eniieuecoaony yoio oei. Eniieueciaaiea aai caiaaeeyao ?aaioo
i?ia?aii, o.e. o?aaoao a?aiaie e ?ano?nu aeey iia?aoeee i?aia?aciaaiey
oeiia.
A ioee/ea io ae?oaeo aa?nee Basic a iaeiie i?ia?aiia iaeuecy
eniieueciaaoue iaeie e oa aea eiaia ia?aiaiiuo, ioee/athueony oieueei
oeiii. Iai?eia?, A% e A!
I?e ia?aii eniieueciaaiee ia?aiaiiie VB a?aiaiii i?enaaeaaao ia?aiaiiie
oei Variant e ionoia cia/aiea. Yoi cia/aiea en/acaao a oio iiiaio,
eiaaea ia?aiaiiie i?enaaeaaaony ?aaeueiia. Ethaie oei aeaiiuo eiaao naia
“ionoia” cia/aiea. Aeey String yoi no?iea ioeaaie aeeeiu “ “. Aeey
/eneaiiuo ia?aiaiiuo yoi 0.
Iiaeii ia eniieueciaaoue eaeaioeoeeaoi?u aeey iaicia/aiey oeia
ia?aiaiiie, a eniieueciaaoue iia?aoi? Dim. Iia?aoi? Dim neoaeeo aeey
iauyaeaiey oeiia ia?aiaiiuo.
Dim Years As Integer
Dim Amount As Currency
. . . .
Iauyaeaiey iiaeii eiiaeie?iaaoue a iaeiie no?iea.
Dim Years As Integer, Amount As Currency
Dim Result aac oeia i?enaaeaaao ia?aiaiiie oei Variant.
Anee a i?ia?aiia eniieuecothony iaiauyaeaiiua ia?aiaiiua, eaaei
aeiionoeoue ioeaeo i?e iaienaiee eo eiaie. A yoii neo/aa eniieuecoaony
i?eioaeeoaeueiia iauyaeaiea ia?aiaiiuo n iiiiuueth iia?aoi?a Option
Explicit. Yoio iia?aoi? ia eniieuecoaony a eiie?aoiuo i?ioeaaeo?ao
ia?aaioee niauoee, a ?aciauaaony a ?acaeaea General oi?iu, /oiau auoue
aeinooiiui anai i?ioeaaeo?ai ia?aaioee niauoee. Iinea oiai, eae VB
ano?a/aao iia?aoi? Option Explicit, ii ia iicaieyao aieaa eniieueciaaoue
iaiauyaeaiiua ia?aiaiiua. Yoio iia?aoi? iiaeii eniieueciaaoue aeey
eciaiaiey cia/aiee ii oiie/aieth.
Iaeanoue aeaeeiinoe ia?aiaiiuo
A i?ia?aiiao VB5 ana ia?aiaiiua eciee?iaaiu aioo?e i?ioeaaeo?. Oi anoue
ia?aiaiiay Result a iaeiie i?ioeaaeo?a ia aeeyao ia cia/aiea ia?aiaiiie
n oai aea eiaiai a ae?oaie i?ioeaaeo?a. Oi anoue ia?aiaiiua yaeythony
eieaeueiuie ii ioiioaieth e i?ioeaaeo?ai, anee ia oeacaii eia/a.
Eiiaaea iaiaoiaeeii, /oiau eaeay-oi ia?aiaiiay auea aeinooiia anai
i?ioeaaeo?ai oi?iu. Oaeea ia?aiaiiua iacuaatho ia?aiaiiuie o?iaiy oi?iu
eee iiaeoey. Ia?aiaiiua o?iaiy oi?iu oaeaea iauyaeythony a ?acaeaea
General n iiiiuueth iia?aoi?ia Private eee Dim.
A aieueoeo i?iaeoao, a eioi?uo i?ioeaaeo?u e oi?iu o?aiyony a
ioaeaeueiuo iiaeoeyo, a ia iiaeeeth/athony e oi?ia, iiaeii iauyaeoue
aeiaaeueioth ia?aiaiioth, aeinooiioth a ethaie /anoe i?iaeoa.
Yoi aeaeaaony a ?acaeaea Declarations ethaiai iiaeoey eiaea:
Public Amount As Single
eee Global Amount As Single
Eiaaea VB aucuaaao i?ioeaaeo?o ia?aaioee niauoey, noa?ua cia/aiey
eieaeueiuo ia?aiaiiuo oie/oiaeathony. Iie i?eieiatho cia/aiey ii
oiie/aieth. Oaeea ia?aiaiiua iacuaathony aeeiaie/aneeie. Ii a iaeioi?uo
neo/ayo iaiaoiaeeiu noaoe/aneea ia?aiaiiua, eioi?ua ia
eieoeeaeece?othony iiaoi?ii i?e auciaa i?ioeaaeo?u. *anoi oaeea
ia?aiaiiua eniieuecothony aeey n/ao/eeia, eo eniieuecotho, /oiau
naeaeaoue yeaiaiou oi?aaeaiey aeaeeiuie eee iaaeaeeiuie. *oiau iauyaeoue
noaoe/aneoth ia?aiaiioth aioo?e i?ioeaaeo?u iaiaoiaeei iia?aoi? Dim
caiaieoue ia Static.
Static Amount As Single, Is_Visible As Boolean.
Anee iaiaoiaeeii, /oiau ana ia?aiaiiua a i?ioeaaeo?a auee noaoe/aneeie,
iaiaoiaeeii aeiaaaeoue
Static Private Sub cmdLom_Click()
No?iee
Iia?aoeey eiieaoaiaoeee aeey neiaeaiey ianeieueeeo no?ie + eee &
Iai?eia?, A$ = “Eaaiia”
B$ = “Eaai”
C$ = “Eaaiiae/”
D$ = A$ & B$ & C$
eee D$ = A$ + B$ + C$
Ioee/ea. N iiiiuueth “&” iiaeii iauaaeeiyoue no?ieiaua e ae?oaea oeiu.
Iai?eia?, C = A% & B$, eciaieony eo oei ia Variant.
Aeey ia?aoiaea e iiaie no?iea i?e ia/aoe neiaieia (ia?aaiae ea?aoee)
eniieuecoaony ano?iaiiay const VbCrLf. Iai?eia?, /oiau ?aci?aaoue no?ieo
a eioi?iaoeeiiiie iaiaee eee a iiiaino?ieiaii oaenoiaii iiea iiaeii
Message $ = “1-y no?iea”
Message $ = Message $+VbCrLf + “2-y no?iea”
MsgBox Message $
Caia/aiea. Anee a i?ia?aiia eniieuecothony /enea e iie ia i?enaaeaathony
ia?aiaiiie Variant, oi VB iieaaaao:
Anee /enei ia eiaao aeanyoe/iie oi/ee e eaaeeo a aeeaiaciia io
-327686 +32767, oi yoi Integer.
Anee ia eiaao aeanyoe/iie oi/ee e eaaeeo a aeeaiaciia aeey Long
Integer, oi yoi Long Int.
Anee eiaao aeanyoe/ioth oi/eo e eaaeeo a aeeaiaciia aeey /enae n
iau/iie oi/iinoueth (7 oeeo?), oi yoi Single precision.
Anee eiaao aeanyoe/ioth oi/eo, ii eaaeeo aia aeeaiaciia, oi yoi Double
precision.
Oaeea i?eaeeceoaeueiua ?an/aou /anoi i?eaiaeyo e i?iaeaiai. Iai?eia?, VB
iieaaaao, /oi oei ?acoeueoaoa n aeaoiy oeaeuie /eneaie anoue oeaeia.
Iai?eia? ?acoeueoao Print 123456 (789 auoiaeeo ca ?aiee oeaeiai e
aicieeaao ioeaea ia?aiieiaiey. Oiaaea iaiaoiaeeii eniieueciaaoue
eaeaioeoeeaoi? oioy au aeey iaeiie ia?aiaiiie Print 123456& (789.
Iiaeii oaeaea eniieueciaaoue ano?iaiiua ooieoeee aeey i?aia?aciaaiey
oeiia, iai?eia?, LInt – ie?oaeyao /enei aei oeaeiai, Clong – aei
aeeeiiiai oeaeiai, Cvar – i?aia?acoao e Var.
Anee i?iecaiaeyony iia?aoeee n ia?aiaiiuie Variant, oi ia aicieeaao
i?iaeai n i?aia?aciaaieai oeiia.
Iiieii iau/iuo, aeanyoe/iuo /enae, VB eniieuecoao aeaie/iua e
oanoiaaeoeaoa?e/iua. Iineaaeiea iaicia/athony n i?aoeenii &H. Iai?eia?,
/enei 49 = &H31.
Oanoiaaeoeaoe?e/iua oeeo?u eniieuecothony aeey eiaee?iaaiey ?acee/iuo
oeaaoia: ethaie oeaaoiaie eiae ninoieo ec 6 oanoiaaeoeaoe?e/iuo oeeo? io
&H000000& = 0 aei &HFFFFFF& (aeeeiiia oeaeia) (16777215).
Aiiaua eiie?aoiue oeaao ii?aaeaeyaony eiee/anoaii e?aniiai R, caeaiiai G
e neiaai oeaaoia B ai anaaiciiaeiuo ni/aoaieyo. A eiaea oeaaoa VB aeaa
iineaaeiea oeeo?u icia/atho eiee/anoai e?aniiai, aeaa n?aaeiea –
eiee/anoai caeaiiai, a aeaa ia?aua – eiee/anoai neiaai, iai?eia?
&H0000FF& – iaeneiaeueii e?aniue
&H00FF00& – iaeneiaeueii caeaiue
&HFF0000& – iaeneiaeueii neiee
&H000000& – /a?iue
&HFFFFFF& – aaeue
&H00FFFF& – aeaeoue (e?aniue + caeaiue)
&H808080& – na?ue (?aaiua eiee/anoaa oeaaoia)
Eiinoaiou
Aeey iaeciaiiuo cia/aiee a i?ia?aiia eniieuecothony eiinoaiou. Eiinoaiou
iauyaeythony aiaeiae/ii ia?aiaiiui, ii oai aea i?aaeeai: eiy niaea?aeeo
ia aieaa 200 neiaieia, ia?aue neiaie aoeaa. Anee a i?ia?aiia
eniieuecoaony oieueei iaeia oi?ia, oi eiinoaioo iiaeii iauyaeoue a
?acaeaea DeclarationHous aeey iauaeoa General. Eee aea iiaeii e
iaiin?aaenoaaiii a i?ioeaaeo?a, ii yoi ooaea. Eiinoaioo iauyaeytho /a?ac
ca?aca?ae?iaaiiua neiaa Const. Iai?eia?,
Const Pi = 3?14159
Const Course = “Informatics”
VB5 eiaao oieueei iaai? ano?iaiiuo eiinoaio, iai?eia?, VbCrLf eee
VbOrOnly. Eo iiaeii anoaaeyoue a oaeno i?ia?aiiu ec ieia Object Browser
(F2 eee iaith View). *oiau anoaaeoue Const a i?ia?aiia:
Eo?ni? aeieaeai auoue a ieia eiaea.
A ieia Object Browser uaeeiooue ia eiiiea Copy to Clipboard.
Ia?aeoe a i?ia?aiia ia ianoi anoaaee e iaaeaoue Ctrl+V.
Ano?iaiiua ooieoeee
Iniaia cia/aiea eiatho no?ieiaua ooieoeee, o.e. a iieyo aaiaea
eioi?iaoeey o?aieony a oaenoiaii oi?iaoa eee a oi?iaoa ariant.
Eniieueciaaiea aea iayaiuo i?aia?aciaaiee oeiia ec Variant /anoi
i?eaiaeeo e i?iaeaiai e yaeyaony aieaa iaaeeaiiui.
No?ieiaua ooieoeee:
= Space (/enei i?iaaeia) – auaeaao no?ieo, ninoiyuoth ec iaeieo
i?iaaeia, i?e/ai /enei neiaieia a no?iea ii?aaeaeyaony ia?aiao?ii a
neiaeao.
= String (/enei, no?ieiaia au?aaeaiea $) – oi?ie?oao no?ieo,
niaea?aeauoth iaeeiaeiaua neiaieu.
Iai?eia?, X$=String (10, “z”) – 10z
= Len (no?ieiaia au?aaeaiea) – aeeeia oaeouae no?iee n i?iaeaiaie e
iaia/aoaiiuie neiaieaie.
= Mid (no?iea, ia/aei [, aeeeia])
Mid (“Visual Basic”, 1,6) = “Visual”
Mid (“Visual Basic”, 8,6) = “Basic”
Mid (“Visual Basic”, 8) = “Basic”
I?eia?. Iiaen/ao /enea oi/ae a no?iea
Points % = 0
Length % = Len (Text $)
For I% = 1 to Length %
If Mid (Text $, I%, 1) = “.” then
Points $ = Points $ + 1
End If
Next I%
= Left (co?iea, ? aei iiceoeee)
= Right (no?iea, n ? iiceoeee)
Ooieoeeth Mid iiaeii eniieueciaaoue aeey eciaiaiey niaea?aeaiey aioo?e
oaeouae no?iee. Iai?eia?
X $ = “Best Basic”
Mid (X $,1,5) = “Quick”
eaeia eiee/anoai neiaieia
n eaeiai neiaiea aoaeao acyoi ec iiaie no?iee
anoaaeyaony iiaay
no?iea iiaa?o /anoe noa?ie
= Insert ([ia/aeueiay iiceoeey], no?iea aeey iienea, iiaeno?iea)
yaeyaony ee aeaiiay no?iea /anoueth ae?oaie no?iee, auaeaao iiia?
iiceoeee, n eioi?ie ia/eiaaony iiaeno?iea.
Text $ = “QuickBasic”
X $ = Instr (1, Text $, “Basic”)=6.
Anee iiaeno?iea ia iaeaeaia Instr aica?auaao ioeaaia cia/aiea (False).
I?eia?.
If Instr (Text $, “(”) then
Print “neiaie iaeaeai”
Else
Print “Ia iaeaeai”
End If
= LNase, = UNase – i?aia?acoao ana neiaieu no?iee a ieaeiee (aa?oiee)
?aaeno?
Aianoi Lcase $ Ucase$
= Str lomp – aeey n?aaiaiey no?ie
Anee A$ eee B$ ionoa, oi o=NULL
Anee eniieueciaaoue StrComp (A$,B$,1) – ?aaeno? ia o/eouaaaony, a anee
StrComp (A$,B$,0) – ?aaeno? o/eouaaaony.
= Trim (no?iea $) – oie/oiaeaao i?iaaeu ia/aea e eiioea no?iee
LTrim (no?iea $) – oie/oiaeaao i?iaaeu a eaaie /anoe no?iee
RTrim(no?iea $) – oie/oiaeaao i?iaaeu a i?aaie /anoe
Ana no?ieiaua ooieoeee, ca eneeth/aieai Mid, ia eciaiytho no?ieo, a
nicaeatho aa eiieth e iioii n iae ?aaioatho.
Oi?aaeythuea no?oeoo?u a i?ia?aiia
Ii?aaeaeaiiua oeeeeu
For ___ Next
For I% = 1 to 10 (% – oeaei/eneaiiue oei aeey onei?aiey ?aaiou oeeeea)
Print I%
Next I%
Oeeee caaa?oaaony, ia a oio iiiaio, eiaaea cia/aiea n/ao/eea ?aaiyaony
eiia/iiio, a eiaaea iii i?aauoaao aai.
I?eia?. Ia/aoue anaie aeinooiiuie o?eooaie ye?aia.
Private Sub Form_Click()
Dim I As Integer
For I=0 to Screen.FontCount – 1
FontName = Screen.Fonts (I)
Print “Yoi o?eoo”; Screen.Fonts (I)
Next I
End Sub
Iaii?aaeaeaiiua oeeeeu
Ia auiieiythony oeene?iaaiiia /enei ?ac. Oeeee iiaeao auiieiyoueny eee
iao a caaeneiinoe io ?acoeueoaoa, au/eneyaiiai aioo?e oeeeea
Do
Au?aaeaiea
Loop Until auiieiyaony oneiaea
I?eia?. I?iaa?ea ia?iey
Private Sub Form_Load ()
Do
X$ = InputBox$ (“Ia?ieue ?”)
Loop Until X$ = “VB”
End Sub
Aeey inoaiiaee aaneiia/iiai i?ioeanna eniieuecotho eeaaeoe “Break” eee
Run|End eee cae?uoue i?eeiaeaiea. A i?ia?aiia iiaeii eniieueciaaoue
iia?aoi? Exit Do (eee Exit For), eioi?ua ia?aaiaeyo i?ia?aiio e
iia?aoi?o neaaeothuaio iinea oeeeea.
Neiaeiua iaii?aaeaeaiiua oeeeeu
A iaii?aaeaeaiiuo oeeeeao i?iaa?ea i?ienoiaeeo a eiioea oeeeea e
n/ao/eea oaaee/eaaaony aua ia 1. Eiiaaea yoi aucuaaao eeoiaa iaiiaeaiea
n/ao/eea. Iiaeii ia?aaeaeiooue i?iaa?eo oneiaey ia ia/aei oeeeea:
Do Until oneiaea
Oaei oeeeea Au?aaeaiea
Loop
Do While
Do
Loop Until aiaeiae/ai
Do
Loop While oneiaea
I?eia?.
Do Do
Loop Until N>5 ( Loop While N 0
S = S+x
Wend
Iiaeao auoue ianeieueei aeiaeaiiuo oeeeeia. Ethaie Wend ioiineony e
aeeaeaeoaio While. Do __ Loop aeaao no?oeoo?o e aeaeinoue oeeeea.
Oneiaiua iia?aoi?u
If oneiaea Then iia?aoi?
Iai?eia?, If N>=0 and N – neaaeothuay
caienue, > – iineaaeothuay caienue), aoaeao eciaiyoue niaea?aeeiia
naycaiiiai yeaiaioa oi?aaeaiey.
Ae?oaea naienoaa yeaiaioa oi?aaeaiey Data.
Connect – ii?aaeaeyao oei AAe, iai?eia?, FoxPro 3.0.
Exclusive = True – cai?ao aeinooia e AAe, iiea iieueciaaoaeue aa ia
cae?iao (iinea yoiai iaiaoiaeeii … Share.exe)
ReadOnly (True/False)
RecordSetType – anee RecordSet nicaeaaony n iiiiuueth eiaea eee yeaiaioa
oi?aaeaiey.
Iaoiae Refresh- ii yoiio iaoiaeo ana naycaiiua yeaiaiou oi?iu
iaiiaeytho naia ninoiyiea a niioaaonoaee n oaeouei ninoiyieai oaaeeoeu.
Data1.Refresh.
Ii ioe?uaaao AAe, a oaeaea onoaiaaeeaaao oeacaoaeue caiene ia ia?aoth
no?ieo a oaaeeoeo eee naoe i?iniio?a.
Naienoai RecordSet iauaeoa Data – yoi aiia?aaeaaiay oaaeeoea, e eioi?ie
iiaeeeth/ai yeaiaio Data. Yoi iiaeao auoue ?aaeueiay oaaeeoea ec
RecordSource eee naoea i?iniio?a, ii?aaeaeyaiay SQL-au?aaeaieai.
Iaoiaeu RecordSet
AddNew – i/enoea aooa?a eiie?iaaiey, niaea?aeauaai aeaiiua, eioi?ua
aeieaeiu auoue caienaiu a AAe, e ia?aiauaiea oaeouae caiene a eiiaoe. =
Aeiaaaeaiea caiene, eioi?ay noaiiaeony oaeouae.
Data1.RecordSet.AddNew.
Delete – oaeaeaiea oaeouae caiene.
Update – ?aaeueiay ia?anueea niaea?aeeiiai aooa?a eiie?iaaiey a oaaeeoeo
eee dynaset.
Edit – eiie?oao oaeouoth caienue a aooa? eiie?iaaiey aeey aiciiaeiinoe
aa ?aaeaeoe?iaaiey.
MoveNext – ia?aeoe ia neaaeothuoth caienue
MovePrevious – ia?aeoe ia i?aaeuaeouoth caienue
MoveLast – ia?aeoe ia iineaaeithth caienue
MoveFirst – ia?aeoe ia ia?aoth caienue
BOF – ia/aei oaeea.
EOF – eiiaoe oaeea.
RecordCount – eiee/anoai caienae n ia?aie aei oaeouae.
I?eia?. Oaeaeaiea anao caienae a oaaeeoea.
Data1.RecordSet.MoveFirst
Do While Data1.RecordSet.EOF
Data1.RecordSet.Delete
Data1.RecordSet.MoveNext
Loop
Naienoai RecordSource – enoi/iee caienae, iicaieyao iiieii oaaeeoe AAe
eniieueciaaoue iia?aoi?u SQL, /oiau auaeaeeoue iiaeiiiaeanoai caienae,
oaeiaeaoai?ythueo iaeioi?ui oneiaeyi. Yoi iicaieyao nicaeaaaoue
i?ia?aiiiua yeaiaioa dynaset eee snapshop.
Aaiae neaaeothuee o?ac:
Select – ioai? eioi?iaoeee ec iieae.
From – oeacuaaao eiy oaaeeoeu.
Where – ii?aaeaeyao oneiaey auai?ee.
Group By – aeey ?ani?aaeaeaiey aua?aiiuo caienae a ii?aaeaeaiiua a?oiiu.
Having – ii?aaeaeyao oneiaea, eioi?iio aeieaeia oaeiaeaoai?youe
neaaeothuay a?oiia caienae.
Order By – ii?yaeie ni?oe?iaee aua?aiiuo caienae.
Iai?eia?.
Data1.RecordSource = “Select Name, Address From AdressBook …
Data1.RecordSource = “Select Name, Address From AdressBook
Data1.RecordSource = “Select Name, Address From AdressBook Where Name =
‘Eaaiia’‘’
“ . . . . Like ‘’Eaai” (Eaanaa, Eaaieoeeee, Eaai/aiei…)
Select Employers.Dept, M\Name From Supervisors, Employers Where
Employers.Dept = Supervisiors.Dept
Iiaeii eniieueciaaoue ia?aiaiiua
Data1.RecordSource = “Select * From Telephone Where Name = ‘ “& A &”’”
Text1.Text
A o?aca Where iiaeii eniieueciaaoue eiia/iua iia?aoeee And, Or, Not aeey
niaaeeiaiey ianeieueeeo au?aaeaiee eee iia?aoeee n?aaiaiey , >=,
, Between, Like, In (aeey caienae a AAe)
Iai?eia?
Data1.RecordSource = “Select * From Products
Where Tovar in (Select Tovar From_ Details Where Price>=25)”
Iiieii cai?inia SQL iiaeii eciaiyoue (Update, Set – iiaia cia/aiea
Where), aeiaaaeyoue (Insert into), oaeaeyoue (Delete From) caiene a
oaaeeoea.
Iai?eia?
Dim A As String
A = “Update Orders”
A = A + “Set Amount = Amount * 1.1, Cast = Cast * 0.97”
A = A+ ”Where Order = ‘Oeaiaio’”
Data1.Database.Execute … Query – cai?in n aicaeaenoaeai
Naienoai Value
Iiaeii nnueaoueny ia iaeioi?ia iiea oaeouae caiene, aeaaea anee ia oi?ia
iao naycaiiiai yeaiaioa.
Iai?eia?
Sub
Dim A As String
A = Data1.RecordSet.Fields(“Name”).Value
MsgBox “Oaieeey: ” + A
End Sub
Iauaeoiay iiaeaeue DAO
Yoe eeannu eniieuecothony aeey nicaeaiey iauaeoia aeinooia e aeaiiui,
ia?auathueony e eiie?aoiie aaca aeaiiuo.
Workspace
Database
TableDef QueryDef Recordset Container
Relation
Field Field Field
Document Field
Index Parameter
Error Field
?en. O?aaiaio iauaeoiie ea?a?oee DAO.
Iaee/ea iauaeoiie ea?a?oee icia/aao, /oi iauaeou iiaoo niaea?aeaoue
ae?oaea iauaeou, eioi?ua, a naith i/a?aaeue, iiaoo niaea?aeaoue ae?oaea
iauaeou. Yoa iauaeoiia aeeth/aiea ?aaeecoaony /a?ac niaoeeaeueiue aeae
iauaeoa- eieeaeoeeth. Iniiaiia iacia/aiea iauaeoa- eieeaeoeee –
niaea?aeaoue e a?oiie?iaaoue ae?oaea iauaeou. Ana iauaeou,
niaea?aeaueany a aeaiiie eieeaeoeee, iaeiiai aeaea.
Workspace.
Iaaa?oo ea?a?oee – iauaeo DBEngine, iaiin?aaenoaaiii i?ioeanni? aacu
aeaiiuo MS Jet. Ii yaeyaony aeaaeaeueoeai eieeaeoeee Workspaces (?aai/ay
iaeanoue), eioi?ay niaea?aeeo iauaeou Workspace. Eaaeaeue iauaeo
Workspace aeeth/aao eieeaeoeeth Databases, eioi?ay niaea?aeeo iaeei eee
aieueoa iauaeoia Database. Eaaeaeue iauaeo Database aeeth/aao
eieeaeoeeth TableDefs, eioi?ay niaea?aeeo iaeei eee aieueoa iauaeoia
TableDef (ii?aaeaeaiea oaaeeoeu) e o.ae.
Iauaeou /eaia eieeaeoeee eiaeaene?othony, ia/eiay n 0 e iiaoo auoue
aeinooiiu /a?ac yoio eiaeaen. Iai?eia?, ia?aue iauaeo TableDef iauaeoa
Database, eiaioaiiai Database1, aoaeao aae?aniaaoueny eae Database1.
TableDefs (0). Aoi?ie TableDef oiai aea iauaeoa Database – Database1.
TableDefs (1) e o.ae. Iauaeou a ea?a?oee eaeaioeoeoee?othony iieiui
iooai /a?ac aeiaeaiiua eieeaeoeee, e eioi?ui iie i?eiaaeeaaeao.
Iai?eia?,
ss TableDefs (0).Fields(“Customer”)
ss
TableDefs (0).Fields(“Customer”) yeaeaaeaioii
TableDefs (0).Fields!Customer.
Aieueoeinoai iauaeoia aeinooia e aeaiiui eiaao oiie/aoaeueiua
eieeaeoeee. Yoi iicaieyao oi?iuaoue i?ia?aiiiue eiae. Iai?eia?,
oiie/aoaeueiay eieeaeoeey, eioi?oth niaea?aeeo iauaeo Recordset –
eieeaeoeey Fields. Iai?eia?, ana 3 caiene yeaeaaeaioiu:
Cust= Recordset1! Customer
Cust= Recordset1 .Fields!Customer
Cust= Recordset1 . Fields(“Customer”).
I?ia?aiie?iaaiea n iauaeoaie DAO.
I?ia?aiie?iaaiea n iauaeoaie DAO caeeth/aaony a nicaeaiee iauaeoiuo
ia?aiaiiuo e oi?aaeaiey eie, auciaa iaoiaeia iauaeoia e onoaiiaea eo
naienoa. Iai?eia?,
Dim DB As Database, WS As Workspace(“account.mdb”) ‘ Iauyaeaiey
ia?aiaiiuo
Set WS=DBEngine. Workspaces(0) ‘ I?aaiecoaony ?aai/ay iaeanoue
(eiaiiiaaiiue naain iieueciaaoaey).
account.mdb e i?enaiaiey nnueee ia iaa iauaeoiie ia?aiaiiie DB oeia
Database.
Set RS=DB.OpenRecordset(“Clients”) ‘ N iiiiuueth iaoiaea OpenRecordset
iauaeoa DB nicaeaaony iaai? caienae ia iniiaa oaaeeoeu Clients, nnueea
ia eioi?ue i?enaaeaaaony ia?aiaiiie RS oeia Recordset.
RS.Index=“ClientID” ‘ Naienoao Index iauaeoa RS i?enaaeaaaony
cia/aiea ClientID.
Nicaeaiea aacu aeaiiuo
Jet – yoi i?ioeann nicaeaiey e ii?aaeaeaiey iauaeoia aeinooia e
aeaiiui, eioi?ua niioaaonoaotho oaaeeoeai, iieyi, eiaeaenai e ioiioaieyi
no?oeoo?u iiaie aacu aeaiiuo.
Ionoue o?aaoaony nicaeaoue aeaeeia?aoe/aneoth aaco aeaiiuo Biblio.mdb,
ninoiyuoth ec 3-o oaaeeoe “Aaoi?u”(Authors), “Iacaaiey”(Titles),
“Ecaeaoaee”(Publishers), naycaiiuo iaaeaeo niaie neaaeothueie
ioiioaieyie:
Titles Authors
Publishers
Year Published Author
Name
ISBN
Company
AU_ID
Address
Iaiaoiaeeii nicaeaoue iauaeo Database , ii?aaeaeeoue aai eiae/aneoth
no?oeoo?o, aeiaaaea iauaeou TableDef e Field.
a ia?aiaiiua:
Dim AuTd As TableDef, TitTd As TableDef, PubTd As TableDef ‘
iauaeo ‘TableDef aeey eaaeaeie ec 3-o oaaeeoe
Dim AuFlds(2) As Field, TitFlds(5) As Field, PubFlds(10) As Field ‘
iauaeo Field
‘aeey eaaeaeiai iiey eaaeaeie oaaeeoeu
Dim AuIdx AS Index, TitIdx As Index, PubIdx As Index ‘ iauaeo Index aeey
‘eaaeaeiai eiaeaena eaaeaeie ec 3-o oaaeeoe
2.Ia iniiaa iaoiaea CreateDatabase iauaeoa Workspace nicaeaaony iiaay
aaca aeaiiuo:
Set Ws=DBEngine. Workspace(0)
eiinoaioa dbLangGeneral ii?aaeaeyao ycueiaoth aa?neth aacu aeaiiuo, a
dbVersion30- aaco aeaiiuo Jet aa?nee 3.0
:
Set TitTd=DB.CreateTableDef(“Titles”)
Set AuTd= DB.CreateTableDef(“Authors”)
Set PubTd= DB.CreateTableDef(“Publishers”)
:
Set AuFlds(0)=AuTd.CreateField(“AU_ID,dbLong)
‘ naeaeaoue iiea n/ao/eeii
AuFlds(0).Attributes=dbAutoIncrField
Set AuFlds(1)=AuTd.CreateField(“Author,dbText)
AuFlds(1)=50 ‘ aeeeia iiey
5.Eniieuecoy iaoiae Append aeiaaaeoue eaaeaeia iiea e aai oaaeeoea, a
eaaeaeoth oaaeeoeo – e aaca aeaiiuo:
DB.TableDefs.Append AuTd
6. Eniieuecoy iaoiae CreateIndex iauaeoa TableDef, nicaeaoue eiaeaenu
aeey eaaeaeie oaaeeoeu e onoaiiaeoue eo naienoaa. Iai?eia?. aeey
oaaeeoeu Authors:
Set AuIdx=AuTd.CreateIndex(“Au_ID”)
AuIdx.Primary=True ‘Ia?ae/iue eeth/
AuIdx.Unique=True ‘Oieeaeueiue eeth/
7. Eniieuecoy iaoiae CreateField iauaeoa Index, nicaeaoue iiey aeey
eaaeaeiai eiaeaeniiai iauaeoa:
Set NewFld=AuIdx.CreateField(“Au_ID”)
8. Aeiaaaeoue iiea e iauaeoo Index, a iauaeo Index e iauaeoo TableDef:
AuIdx.Fields.Append NewFld
AuTd.Indexes.Append AuIdx
Aiiaue nicaeaiiua iiey iauaeoa Index ia noaiiayony /anoueth iauaeoa
TableDef. Aianoa n oai ei aeaaony oi aea naiia naienoai Name, /oi e o
iiey iauaeoa TableDef, eioi?ia iie aeieaeiu eiaeaene?iaaoue. Naienoaa
Type e Size o yoeo iieae ia ii?aaeaeythony.
Naycuaaiea oaaeeoe
Nicaeaiea iauaeoia TableDef, eioi?ua niaea?aeao ia?ae/iue e aiaoiee
eeth/e, iicaieytho naycuaaoue caiene a iaeiie oaaeeoea n
niioaaonoaothueie caienyie a ae?oaie oaaeeoea, niaeanii iauei cia/aieyi
ia?ae/iiai/aiaoiaai eeth/ae. I?e aeiaaaeaiee eee oaeaeaiee caienae
aaaeii iiaeaea?aeeaaoue oae iacuaaaioth nnuei/ioth oeaeinoiinoue.
Nnuei/iay oeaeinoiinoue icia/aao, /oi aiaoiee eeth/ a ethaie
nnueathuaeny oaaeeoea anaaaea aeieaeai nnueaoueny ia aeinoiaa?ioth
caienue a aae?anoaiie oaaeeoea, niaea?aeauae ia?ae/iue eeth/. Aeey
iiaeaea?aeaiey nnuei/iie oeaeinoiinoe eniieuecoaony iauaeo Relation.
Aeiaaaeoue ioiioaiea e aaca aeaiiuo :
Relation
Relation n iiiiuueth iaoiaea .CreateRelation
Relation
Au_Tit.ForegnTable=“ Titles”
2. Nicaeaoue iiea, eioi?ia a ioiioaiee aoaeao ii?aaeaeyoue iauaa iiea
ia?ae/iiai/aiaoiaai eeth/a:
DimTempField As Field
n iiiiuueth iaoiaea CreateField
n iiiiuueth iaoiaea Append:
Au_Tit.Fields.Append TempField
Db.Relations..Append Au_Tit
.
I?ioeaaeo?a naycuaaiey oaaeeoeu aiaoiae aacu aeaiiuo iiaeiaia
ii?aaeaeaieth e nicaeaieth iiaie aioo?aiiae oaaeeoeu, ca eneeth/aieai
oiai, /oi i?e nicaeaiee iauaeoa TableDef iaiaoiaeeii ii?aaeaeeoue
naienoaa SourceTableName e Connect. E?iia oiai, aeey yoie oaaeeoeu
iaeuecy naycuaaiey nicaeaaaoue eee aeiaaaeyoue iiaua iauaeou Field e
Index.
Aeey naycuaaiey aiaoiae oaaeeoeu n aacie aeaiiuo iaiaoiaeeii:
Nicaeaoue aeey naycuaaaiie oaaeeoeu iiaue iauaeo TableDef, eniieuecoy
iaoiae CreateTableDef iauaeoa Database. Iacia/eoue oaaeeoea iiaia eiy
(naienoai Name). Iai?eia?, /oiau i?eniaaeeieoue oaaeeoeo Nustomers ec
aacu aeaiiuo Stocks.mdb e aaca aeaiiuo Biblio.mdb,iiaeii caienaoue:
Set NewTd=DB.CreateTableDef(“Customers”) ‘ I?aaeiieaaaaony , /oi aaca
aeaiiuo Biblio.mdb ioe?uoa iaoiaeii OpenDatabase e ae iacia/aia
ia?aiaiiay DB.
2. Onoaiiaeoue naienoaa SourceTableName e Connect iauaeoa TableDef:
NewTd. SourceTableName=“Customers”
NewTd. Connect=“;DATABASE=C:\Access\Stocks.mdb;”
3.Aeiaaaeoue iiaue iauaeo TableDef e aaca aeaiiuo:
DB.TableDefs.Append NewTd
Iiaeeoeeaoeey aacu aeaiiuo
I?ioeaaeo?u eciaiaiey aacu aeaiiuo iiaeiaiu aa nicaeaieth.
Eniieuecothony oa aea iaoiaeu Create e Append.
1. Aeey aeiaaaeaiey oaaeeoeu e aaca aeaiiuo iaiaoiaeeii aeiaaaeoue iiaue
iauaeo TableDef e nouanoaothuae eieeaeoeee TableDefs. Iai?eia?:
Dim NewTd As TableDef ‘ Nicaeaoue iiaue iauaeo TableDef
Dim NewFld As Field ‘Nicaeaoue iiaue iauaeo Field
Set Db=DBEngine. Workspace(0).OpenDatabase(“Biblio.mdb”)
Set NewTd=DB.CreateTableDef(“NewTable”)
Set NewFld= NewTd.CreateField(“NewField”,dbInteger)
NewTd.Fields.Append NewFld ‘aeiaaaeoue iiea e oaaeeoea
DB.TableDefs.Append NewTd ‘aeiaaaeoue oaaeeoeo e aaca aeaiiuo
Db.Close ‘Cae?uoue aaco aeaiiuo
1. Aeey aeiaaaeaiey iiey e oaaeeoea iaiaoiaeeii aeiaaaeoue iiaue iauaeo
Field e nouanoaothuae eieeaeoeee Fields
Dim Td As TableDef
Dim Fld As Field ‘Nicaeaoue iiaue iauaeo Field
Set Td=DB. TableDefs(“Authors”)
Set Fld= Td.CreateField(“NewField1”,dbText,30) ‘Nicaeaoue ia?aia iiaia
iiea
Td.Fields.Append Fld ‘aeiaaaeoue iiea e eieeaeoeee Fields
Set Fld= Td.CreateField(“NewField2”,dbText,20) ‘Nicaeaoue aoi?ia iiaia
iiea n iiiiuueth oie aea ia?aiaiiie
Td.Fields.Append Fld ‘aeiaaaeoue aua iaeei iauaeo e eieeaeoeee Fields
Db.Close ‘Cae?uoue aaco aeaiiuo
2. Aeey aeiaaaeaiey oaaeeoeu e aaca aeaiiuo iaiaoiaeeii aeiaaaeoue iiaue
iauaeo TableDef e nouanoaothuae eieeaeoeee TableDefs. Iai?eia?:
Dim NewTd As TableDef ‘ Nicaeaoue iiaue iauaeo TableDef
Dim NewFld As Field ‘Nicaeaoue iiaue iauaeo Field
Set Db=DBEngine. Workspace(0).OpenDatabase(“C:\Biblio.mdb”)
Set NewTd=DB.CreateTableDef(“NewTable”)
Set NewFld= NewTd.CreateField(“NewField”,dbInteger)
NewTd.Fields.Append NewFld ‘aeiaaaeoue iiea e oaaeeoea
DB.TableDefs.Append NewTd ‘aeiaaaeoue oaaeeoeo e aaca aeaiiuo
Db.Close ‘Cae?uoue aaco aeaiiuo
3. Aeey aeiaaaeaiey eiaeaena e oaaeeoea iaiaoiaeeii aeiaaaeoue iiaue
iauaeo Index e nouanoaothuae eieeaeoeee Indexes . Iai?eia?:
Set Db=DBEngine. Workspace(0).OpenDatabase(“C:\Biblio.mdb”)
Set Td=DB. TableDefs(“Authors”)
_Index”)
NewIdx.Unique=False
Set NewFld= NewIdx.CreateField(“Address”,)
NewIdx.Unique=False
NewIdx.Fields.Append NewFld ‘aeiaaaeoue iiea e iauaeoo Index
Td. Indexes.Append NewIdx ‘aeiaaaeoue iauaeo Index e TableDef
Db.Close ‘Cae?uoue aaco aeaiiuo
4. Aeey oaeaeaiey oaaeeoeu eniieuecoaony iaoiae Delete eieeaeoeee
TableDefs. Yoio iaoiae oaeaeyao ec oaaeeoeu ana iiey, eiaeaenu e
aeaiiua, niaea?aeaueany aioo?e oaaeeoeu. Iai?eia?:
Db.TableDefs.Delete “Authors”
5. Aeey oaeaeaiey iiey (iauaeoa Field) eniieuecoaony iaoiae Delete
iauaeoa TableDef.
Aeey oaeaeaiey eiaeaene?iaaiiiai iiey iaiaoiaeeii nia/aea oaeaeeoue
eiaeaen, a oaeaea nicaeaiiua iin?aaenoaii yoiai eiaeaena iauaeou
Relation. Iinea yoiai iiaeii aoaeao oaeaeeoue iauaeo Field eee iauaeo
TableDef, eioi?ue yaeyaony /anoueth ioiioaiey.
6. Aeey oaeaeaiey eiaeaena eniieuecoaony iaoiae Delete eieeaeoeee
TableDefs.
Iai?eia?:
_Index”.
Iaeuecy oaeaeyoue iauaeo Index, eioi?ue oi?ie?oao iauaeo Relation.
7. Aeey eciaiaiey iiey iaiaoiaeeii nicaeaoue iiaue iauaeo TableDef,
eioi?ue io?aaeaao o?aaoaiua eciaiaiey a iieyo, e caoai ia?aianoeoue
aeaiiua a iiaoth oaaeeoeo, oaeaeea noa?oth.
Iiaeeoeeaoeeth aacu aeaiiuo iiaeii oaeaea i?iaiaeeoue n iiiiuueth
niaoeeaeueiuo cai?inia SQL.
?aaioa n caienyie aacu aeaiiuo
?aaioa n caienyie aacu aeaiiuo(aeiaaaeaiea, oaeaeaiea, iiaeeoeeaoeey,
iiene, ni?oe?iaea) inouanoaeythony DAO iin?aaenoaii iauaeoia Recordset.
Iauaeo Recordset i?aaenoaaeyao caiene enoiaeiie oaaeeoeu eee caiene,
iieo/aaiua a ?acoeueoaoa auiieiaiey cai?ina. Nouanoaotho 5 oeiia
iauaeoia Recordset:
Iauaeo Recordset oeia table ?aaioaao n eieaeueiie oaaeeoeae aacu aeaiiuo
eee aaoiae aacu aeaiiuo, nicaeaiiie MS Jet. Yoio iauaeo iiaeii
eiaeaene?iaaoue, eniieuecoy eiaeaen, nicaeaiiue aeey enoiaeiie oaaeeoeu,
/oi iaiiiai onei?yao ni?oe?iaeo e iiene ii n?aaiaieth n ae?oaeie oeiaie
iauaeoia Recordset.
Iauaeo Recordset oeia dynaset (aeeiaie/aneee iaai?) nicaeaaony aeey
eieaeueiuo eee naycaiiuo oaaeeoe eee n ?acoeueoaoaie cai?inia.
Oaeoe/anee, yoi iaai? nnueie ia caiene iaeiie eee aieaa oaaeeoe. N
iiiiuueth dynaset iiaeii iieo/aoue e iiaeeoeoee?iaaoue aeaiiua aieaa,
/ai iaeiie oaaeeoeu, aeeth/ay naycaiiua oaaeeoeu ec ae?oaeo aac aeaiiuo.
Iaai? dynaset e aai enoiaeiua oaaeeoeu iiaeeoeoee?otho ae?oa ae?oaa.
Dynaset – iaeaieaa aeaeee e iiuiue oei iaai?a caienae, oioy iiene a ieo
?aaioaao ia oae auno?i, eae a neo/aa table.
Iauaeo Recordset oeia snapshot (iiiaioaeueiue nieiie) niaea?aeeo
oeene?iaaiioth eiieth aeaiiuo a ninoiyiee ia iiiaio nicaeaiey snapshot.
Snapshot, nicaeaiiue ia aaca enoi/ieea aeaiiuo MS Jet, ia iiaeao auoue
iaiiaeai. Snapshot o?aaoao iaiueoeo cao?ao ia?aaioee, /ai dynaset eee
table, e cai?inu a ieo auiieiythony auno?aa.
Iauaeo Recordset oeia forward- only (eenoaaiue nieiie, oieueei aia?aae),
iaania/eaaao iiaeiiiaeanoai ooieoeee snapshot. Ii i?aaeinoaaeyao iaiueoa
anaai aiciiaeiinoae, ii caoi naiia aunieia auno?iaeaenoaea. Ii ia
yaeyaony iaiiaeyaiui, e ii iicaieyao ia?aiauaoueny ii caienyi oieueei a
i?yiii iai?aaeaiee.
Iauaeo Recordset oeia dynamic – ?acoeueoe?othuee iaai? cai?ina iaeiie
eee ianeieueeeo enoiaeiuo oaaeeoe, a eioi?ii iiaeii aeiaaaeyoue,
eciaiyoue eee oaeaeyoue caiene.
Auai? oiai eee eiiai oeia iaai?a caienae caaeneo io oiai, eaeea ooieoeee
iaiaoiaeeii auiieieoue, ioaeii ee eciaiyoue eee i?inoi i?iniao?eaaoue
aeaiiua. Iau/ii Iauaeo Recordset oeia table ii/oe anaaaea iaania/eaaao
iaeaunooth yooaeoeaiinoue.
Nicaeaiea ia?aiauaiee RecordSet
Aeey yoiai eniieuecoaony iaoiae OpenRecordSet
Set rstNew = dbs.OpenRecordSet(“Customers”, dbs.Open RecordSet),
aaea rstNew – ia?aiaiiay, dbs.OpenRecordSet(“Customers”, dbs.Open
RecordSet) – nnueea ia iauaeo, aica?auaaiue iaoiaeii OpenRecordSet.
Yoio iaoiae aeinooiai ia oieei aeey iauaeoa Database, ii e Connection,
TableDef, QueryDef e nouanoaothueo iaai?ia RecordSet.
Set rstNew = qdf.OpenRecordSet
Iai?eia?, nicaeaaony iauaeo RecordSet ec nio?aiaiiiai a oaeouae AAe
cai?ina.
Dim dbs As Database, Rst As RecordSet
Set dbs=OpenDatabase (“Nwind.mdb”
[ Set rst = dbs.OpenRecordSet (“Nio?aiyao_Cai?in”)]
eee anee nio?aiaiea cai?ina ia nouanoaoao
Dim strQuerySQL As String
Set dbs=OpenDatabase (…
StrQuerySQL=“Select * From Products”_ & “Order by ProductName”
Set rst=dbs.OpenRecordSet (strQuerySQL)
Ia?aiauaiea ii iaai?o caienae
Iaoiaeu MoveFirst, MoveLast, MoveNext, MovePrevious – ia?aiauaao
oeacaoaeue.
Move [n]
Ia?aaeaeu iaai?a caienae ii?aaeaeyaony naienoaaie BOF e EOF, eiee/anoai
caienae naienoaii – RecordCount.
Iaeoe ii?aaeaeaiioth caienue a iaai?a iiaeii n iiiiuueth iaoiaea Seek
(aeey Table) e Find (dynaset, snapshop): FindFirst, FindLast, FindNext,
FindPrevious.
Iai?eia?
rstOrderDetails.Find “Order ID= ” & rstOrders.[Order ID] – aeey ia?aie
caiene a Orders iaeoe …. caienue a OrderDetails
rst Suppliers.Index=“CompanyName”
rst Suppliers.Seek “=” str CompanyNAme
If rst Suppliers. NoMatch Then …
(eniieuecoaony oaeouee eiaeaen oaaeeoeu, ii?aaeaeaiiie naienoaii Index).
Naienoai NoMatch eniieuecoaony aeey i?iaa?ee iaeaeaiiie caiene, e?eoa?ee
iienea.
Iinea nicaeaiey iauaeoa RecordSet oeia table eee dynaset a ia?aiaiiie
iiaeii oaeaaeyoue eee aeiaaaeyoue, iiaeeoeoee?iaaoue iiaua caiene
(Update, Delete, AddNew).
…. iiaeeoeeaoeee iaiiiai yooaeoeaiaa n iiiiuueth cai?inia SQL.
Dim dbs As DataBAse, qdfChangeTitles As QueryDef
Set dbs = Open Database (‘ Nwind.mbb)
Set qdfChangeTitles=dbs.Create QueryDef (“ “)
qdf ChangeTitles.SQL=“Update Employers” & “Where Title = ‘Aooa’”
Iinea ecaea/aiey caiene iiaeii ia?auaoueny e aa ioaeaeueiui iieyi /a?ac
eieeaeoeeth Fields iauaeoa RecordSet ii aai naienoao Name (eiy noieaoea
a oaaeeoee)
rst Employers.Fields (“LastName”)
eee rstEm.LastName
eee rstEm.Fields(0) – eiaeaenii a eieeaoeee
Oeiu aeaiiuo iauaeoa Field: dbChar, bdByte, dbDouble, dbInteger,
dbSingle, dbLong, dbText.
I?e ?aaioa n aeaiiuie Field eniieuecoaony aai naienoai Value.
Sub Change Title( )
rstEmployces.LastName.Value=strName
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=“Eii. i?aaeno.” Then
rstEmp.Edit
fldTitle=“Eii. aaaio”
rstEmp.Update
End If
rstEmp.MoveNext
Loop
rstEmp.Close
dbsSales.Close
End Sub
Nicaeaiea cai?inia
Iaoiaea CreateQueryDef:
Set cai?in = AAe.CreateQueryDef ([eiy] [, no?iea SQL])
– cai?in – iauaeoiay ia?aiaiiay, a eioi?uo aoaeao o?aieoueny nnueea ia
aiiaue nicaeaaaaiue iauaeo oeia QueryDef
– AAe – iauaeoiay ia?aiaiiay, o?aiyuay nnueeo ia iauaeo Database, a
eii?ii aoaeao o?aieoueny nicaeaaaaiue iauaeo QueryDef
– eiy – eiy cai?ina
– no?iea SQL – au?aaeaiea SQL, ….. iauaeo QueryDef
Iai?eia?,
Dim dbs As Database
Dim myqdf As QueryDef
SQL str = “Select * From Products”
SQL str = SQl str & “Where price >1000 and price
Нашли опечатку? Выделите и нажмите CTRL+Enter
