例12-3.mht

系统的介绍了vb的书籍,学vb的到这来.

si-font-family:
"Times New Roman"'>&#9314;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#22312;&#8220;&=
#36890;&#29992;&#8221;&#36873;&#39033;&#21345;&#20013;&#65292;&#36873;&#253=
21;&#8220;&#20351;&#29992;&#36830;&#25509;&#23383;&#31526;&#20018;&#8221;&#=
21518;&#21333;&#20987;&#8220;&#29983;&#25104;&#8221;&#25353;&#38062;&#65292=
;&#25171;&#24320;&#8220;&#25968;&#25454;&#38142;&#25509;&#23646;&#24615;&#8=
221;&#23545;&#35805;&#26694;&#65292;&#22312;&#20854;&#20013;&#21487;&#20197=
;&#35774;&#32622;</span><span
lang=3DEN-US>ADO</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25511;&#20214;=
&#30340;</span><span
class=3DSpellE><span lang=3DEN-US>ConnectionString</span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#23646;&#24615;&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9315;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#22312;&#8220;&=
#25968;&#25454;&#38142;&#25509;&#23646;&#24615;&#8221;&#23545;&#35805;&#266=
94;&#30340;&#8220;&#25552;&#20379;&#32773;&#8221;&#36873;&#39033;&#21345;&#=
20013;&#65292;&#36873;&#25321;&#36866;&#24403;&#30340;</span><span
lang=3DEN-US>OLE DB</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#30340;&#25552;=
&#20379;&#32773;&#65288;&#26412;<span
class=3DGramE>&#20363;&#36873;&#25321;</span>&#20102;</span><span lang=3DEN=
-US>Microsoft
Jet 3.51 OLE DB Provider</span><span style=3D'font-family:SimSun;mso-ascii-=
font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65289;&#12290;=
</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9316;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#21333;&#20987;=
&#8220;&#19979;&#19968;&#27493;&#8221;&#25353;&#38062;&#65292;&#36827;&#208=
37;&#8220;&#25968;&#25454;&#38142;&#25509;&#23646;&#24615;&#8221;&#23545;&#=
35805;&#26694;&#22312;&#20854;&#20013;&#36873;&#25321;&#38656;&#35201;&#203=
51;&#29992;&#30340;&#25968;&#25454;&#24211;&#25991;&#20214;&#65288;&#26412;=
<span
class=3DGramE>&#20363;&#36873;&#25321;</span>&#20102;&#21069;&#38754;&#2431=
4;&#31435;&#30340;&#8220;&#25104;&#32489;&#31649;&#29702;</span><span
lang=3DEN-US>.<span class=3DSpellE>mdb</span></span><span style=3D'font-fam=
ily:SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Ro=
man"'>&#8221;&#65289;&#65292;&#28982;&#21518;&#21333;&#20987;&#8220;&#27979=
;&#35797;&#36830;&#25509;&#8221;&#25353;&#38062;&#65292;&#39564;&#35777;&#3=
6830;&#25509;&#30340;&#27491;&#30830;&#24615;&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9317;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#22312;&#8220;&=
#39640;&#32423;&#8221;&#36873;&#39033;&#21345;&#20013;&#65292;&#21487;&#201=
97;&#35774;&#32622;&#35775;&#38382;&#26435;&#38480;&#12290;&#22312;&#8220;&=
#25152;&#26377;&#8221;&#36873;&#39033;&#21345;&#20013;&#21487;&#20197;&#265=
97;&#30475;&#12289;&#32534;&#36753;&#29983;&#25104;&#30340;&#36830;&#25509;=
&#23383;&#31526;&#20018;&#30340;&#25152;&#26377;&#20869;&#23481;&#65292;&#2=
2914;&#22270;</span><span
lang=3DEN-US>12-19</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;&#21333;&#20987;&#8220;&#30830;&#23450;&#8221;&#25353;&#38062;&#234=
36;&#25104;</span><span
class=3DSpellE><span lang=3DEN-US>ConnectionString</span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#23646;&#24615;&#30340;&#35774;&#32622;&#12290;</span><=
/p>

<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><!--[if gte vml 1]><v:shape
 id=3D"_x0000_i1026" type=3D"#_x0000_t75" style=3D'width:147pt;height:142.8=
pt'
 o:allowoverlap=3D"f">
 <v:imagedata src=3D"file2563.files/image006.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D196 height=3D190
src=3D"file2563.files/image007.jpg" v:shapes=3D"_x0000_i1026"><![endif]></s=
pan></p>

<h6><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roma=
n";
mso-hansi-font-family:Roman'>&#22270;</span><span lang=3DEN-US>12-19<span
style=3D'mso-spacerun:yes'>&nbsp; </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#2596=
8;&#25454;&#38142;&#25509;&#23646;&#24615;&#30340;&#8220;&#25152;&#26377;&#=
8221;&#36873;&#39033;&#21345;</span></h6>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9318;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#22312;&#8220;&=
#23646;&#24615;&#39029;&#8221;&#23545;&#35805;&#26694;&#30340;&#8220;&#3576=
0;&#24405;&#28304;&#8221;&#36873;&#39033;&#21345;&#20013;&#65292;&#35774;&#=
32622;</span><span
class=3DSpellE><span lang=3DEN-US>CommandType</span></span><span style=3D'f=
ont-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#20026;</span><span
lang=3DEN-US>2</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#65288;&#34920;&#31867;&#22411;&#=
65289;&#65292;&#35774;&#32622;&#25511;&#20214;&#30340;</span><span
class=3DSpellE><span lang=3DEN-US>RecordSource</span></span><span style=3D'=
font-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#23646;&#24615;&#20026;&#8220;&#25104;&#32489;&#8221;&#34920;=
&#65292;&#22914;&#22270;</span><span
lang=3DEN-US>12-20</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;&#22312;&#8220;&#36523;&#20221;&#39564;&#35777;&#8221;&#36873;&#390=
33;&#21345;&#20013;&#21487;&#20197;&#35774;&#32622;&#25511;&#20214;&#30340;=
</span><span
class=3DSpellE><span lang=3DEN-US>UserName</span></span><span style=3D'font=
-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#23646;&#24615;&#21644;</span><span
lang=3DEN-US>Password</span><span style=3D'font-family:SimSun;mso-ascii-fon=
t-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#23646;&#24615;=
&#65292;&#22914;&#22270;</span><span
lang=3DEN-US>12-21</span><span style=3D'font-family:SimSun;mso-ascii-font-f=
amily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25152;&#31034;=
&#12290;</span></p>

<p class=3DMsoNormal align=3Dcenter style=3D'text-align:center'><span lang=
=3DEN-US><!--[if gte vml 1]><v:shape
 id=3D"_x0000_i1027" type=3D"#_x0000_t75" style=3D'width:143.4pt;height:95.=
4pt'>
 <v:imagedata src=3D"file2563.files/image008.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D191 height=3D127
src=3D"file2563.files/image009.gif" v:shapes=3D"_x0000_i1027"><![endif]><sp=
an
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span><!--[if gt=
e vml 1]><v:shape
 id=3D"_x0000_i1028" type=3D"#_x0000_t75" style=3D'width:143.4pt;height:95.=
4pt'>
 <v:imagedata src=3D"file2563.files/image010.png" o:title=3D""/>
</v:shape><![endif]--><![if !vml]><img width=3D191 height=3D127
src=3D"file2563.files/image011.gif" v:shapes=3D"_x0000_i1028"><![endif]></s=
pan></p>

<h6><span style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roma=
n";
mso-hansi-font-family:Roman'>&#22270;</span><span lang=3DEN-US>12-20<span
style=3D'mso-spacerun:yes'>&nbsp; </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#8220=
;&#35760;&#24405;&#28304;&#8221;&#36873;&#39033;&#21345;</span><span
lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</span></span><span style=3D'font-family:SimSun;mso-ascii-font-family:"Time=
s New Roman";
mso-hansi-font-family:Roman'>&#22270;</span><span lang=3DEN-US>12-21<span
style=3D'mso-spacerun:yes'>&nbsp; </span></span><span style=3D'font-family:=
SimSun;
mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:Roman'>&#8220=
;&#36523;&#20221;&#39564;&#35777;&#8221;&#36873;&#39033;&#21345;</span></h6>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span></span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#9319;</span> <span style=3D'font-family:SimSun;mso-asc=
ii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#22312;</span><=
span
lang=3DEN-US>ADO</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25511;&#20214;=
&#30340;&#23646;&#24615;&#35774;&#32622;&#23436;&#27605;&#21518;&#65292;&#3=
5774;&#32622;</span><span
lang=3DEN-US>4</span><span style=3D'font-family:SimSun;mso-ascii-font-famil=
y:"Times New Roman";
mso-hansi-font-family:"Times New Roman"'>&#20010;&#25991;&#26412;&#26694;&#=
30340;</span><span
class=3DSpellE><span lang=3DEN-US>DataSource</span></span><span style=3D'fo=
nt-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#23646;&#24615;&#20026;</span><span
lang=3DEN-US>ADO</span><span style=3D'font-family:SimSun;mso-ascii-font-fam=
ily:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#25511;&#20214;=
&#65288;</span><span
lang=3DEN-US>Adodc1</span><span style=3D'font-family:SimSun;mso-ascii-font-=
family:
"Times New Roman";mso-hansi-font-family:"Times New Roman"'>&#65289;&#65292;=
</span><span
class=3DSpellE><span lang=3DEN-US>DataField</span></span><span style=3D'fon=
t-family:
SimSun;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times=
 New Roman"'>&#23646;&#24615;&#20998;&#21035;&#20026;&#8220;&#23398;&#21495=
;&#8221;&#12289;&#8220;&#22995;&#21517;&#8221;&#12289;&#8220;&#24635;&#2099=
8;&#8221;&#21644;&#8220;&#24179;&#22343;&#20998;&#8221;&#65288;&#20998;&#21=
035;&#32465;&#23450;&#21040;&#30456;&#24212;&#30340;&#23383;&#27573;&#65289=
;&#12290;</span></p>

<p class=3DMsoNormal><span lang=3DEN-US><span
style=3D'mso-spacerun:yes'>&nbsp;&nbsp;&nbsp; </span>(3) </span><span
style=3D'font-family:SimSun;mso-ascii-font-family:"Times New Roman";mso-han=
si-font-family:
"Times New Roman"'>&#32534;&#20889;&#31243;&#24207;&#20195;&#30721;</span><=
/p>

<p class=3DMsoNormal style=3D'text-indent:21.6pt'><b style=3D'mso-bidi-font=
-weight:
normal'><span lang=3DEN-US style=3D'font-size:9.0pt;mso-bidi-font-size:10.0=
pt'>Private
Sub Text1_<span class=3DGramE>Change()</span><o:p></o:p></span></b></p>

<p class=3DMsoNormal style=3D'text-indent:21.6pt'><span lang=3DEN-US
style=3D'font-size:9.0pt;mso-bidi-font-size:10.0pt'><span
style=3D'mso-spacerun:yes'>&nbsp; </span>a =3D
Adodc1.Recordset.AbsolutePosition<span style=3D'mso-spacerun:yes'>&nbsp;&nb=
sp;
</span><span style=3D'mso-tab-count:4'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nb=