visual basic程序設(shè)計(jì)導(dǎo)學(xué)list14

習(xí)題VB學(xué)習(xí)版：VB的學(xué)習(xí)版可以使程序員方便地創(chuàng)建功能強(qiáng)大的MicrosoftWindows和WindowsNT的應(yīng)用程序。這個(gè)版本的VB包括所有內(nèi)部控件以及網(wǎng)專業(yè)版的所有特征，另外還包括了BackOffice工具，如SQLServer以及其他輔中文版”，在出現(xiàn)的下級(jí)菜單中選擇“MicrosoftVisualBasic6.0中文版”即可啟動(dòng)VB，主窗口：由標(biāo)題欄、菜單欄和工具欄組成，主要提供了用于開發(fā)VB程序的各習(xí)題PrivateSubCommmand1_Click()PrivateSubCommmand1_Click()End組織程序結(jié)構(gòu)，擴(kuò)展名為.bas。主要由代碼組成，聲明全局變量和一些PubicLabel1.Caption歡迎使用本系統(tǒng)EndLabel1.Caption慶祝中華人民共和國(guó)成立51周年"EndSubPrivateSubPrivateSubEndSubPrivateSubEndSubPrivateSubEndSubIfVal(Text2.Text)<>0EndIfEnd習(xí)題PrivateSubPrivateSubs=Val(Text1(0).Text)*Val(Text1(1).Text)+Val(Text1(4).Text)*Val(Text1(5).Text)MsgBox總金額為：Trim(Str(s)),0,計(jì)算結(jié)果"EndSubPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)i=Index+1Ifi>=6Theni=EndDimsAsIntegerDima,b,c,revsAsStrings=Val(Text1.Text)Ifs<100Ors>999ThenExita=Str(s\100):s1=s-Val(a)*b=Str(s1\10):s2=s1-Val(b)*c=revs=c+b+EndSub設(shè)計(jì)一個(gè)窗體，在其中放置4個(gè)標(biāo)簽（前三個(gè)使用Label1控件數(shù)組，后一個(gè)為PrivateSubPrivateSubDima,b,c,mAsa=b=Ifa<bThenIfb<cThenm=cElsem=bIfa<cThenm=cElsem=aEndIfLabel2.Caption最大數(shù)為：Str(m)EndSub設(shè)計(jì)一個(gè)窗體，在其中放置4個(gè)標(biāo)簽（前三個(gè)使用Label1控件數(shù)組，后一個(gè)為PrivateSubCommand1_Click()DimPrivateSubCommand1_Click()Dima,b,c,d,x1,x2Asa=b=c=d=b*b-4*a*cIfd>0Thenx1=(-b+Sqr(d))/(2*x2=(-b-Sqr(d))/(2*Label2.Captionx1="Trim(Str(x1))+"x2="ElseIfd=0Thenx1=-b/(2*EndIfEndPrivateSubPrivateSubDima,sAsSingleSelectCaseas=a*0.05s=20000*0.05+(a-20000)*CaseIs<s=20000*0.05+(30000-20000)*0.1+(a-30000)*Cases=20000*0.05+(30000-20000)*0.1+(60000-30000)*0.2+(a-60000)*EndEndSubPrivatePrivateSubDima,s,xAsSinglea=s=15*Int((a+14)/Case15x=Casex=Casex=Casex=x=20EndEndSubDimA(1ToFori=1To20ForEachxInIfx<60ThenPrintxEndDimA(1To10)Fori=1to10m=100:n=-Fori=1ToIfA[i]>nThenn=A[i]IfA[i]<mThenm=A[i]Print最大數(shù)";nPrint最小數(shù)EndDimn,c,i,jAsnInputBox("輸入一個(gè)正整數(shù)(小于10)",數(shù)據(jù)輸入Fori=0Ton-1c=1PrintTab(30-2*i);Forj=1Toc=c*(i-j+1)\jPrintc;;Dimstudname（5）AsString*8Dimmeasure(5,2)AsSinglestudname（1）王華studname（2）劉南studname（3）程功="尚結(jié)":studname（5）="張勝"measure(11)180.6:measure(1,2)measure(2,1)=180.4:measure(2,2)=measure(3,1)=179.6:measure(3,2)=measure(4,1)=170.9:measure(4,2)=measure(5,1)=168.2:measure(5,2)=FontName楷體_GB2312FontSize16:FontUnderlineTruePrintTab(7);"學(xué)生身高體重表"FontName宋體FontSize10Print"姓名";PrintTab(15);"";PrintTab(30);""FontUnderline=FalseFori=1To5PrintPrintTab(15);Format$(measure(i,1),high=high+measure(i,1)Weight=Weight+measure(i,2)Print"平均";PrintTab(15);Format$(high/5,PrintTab(30);Format$(Weight/5,"00.0")EndSubDims,iasIntegerEndPrivateSubDimn,s,iAsFori=1TonEndSubDimn,sAsIntegerEndSub習(xí)題-13 PrivateSubPrivateSubIfCheck1（1）AndCheck1（3）ThenEndIfEndIfIndex=1ThenEndIfEnd添加一個(gè)窗體，在其中放置一個(gè)文本框Text1和兩個(gè)框架（分別為Frame1和IfIndex=0ThenText1.FontName宋體EndIfEndIfIndex=0ThenEndIfEndDimDimaAsList1.AddItem("12")List1.AddItemList1.AddItemList1.AddItemList1.AddItemList1.AddItemList1.AddItemList2.AddItemList2.AddItemList2.AddItemList2.AddItemList2.AddItemList2.AddItemList2.AddItemEndSuba=Val(List1.Text)Endb=Val(List2.Text)List3.AddItemTrim(Str(a))+"*"+Trim(Str(b))+"="+Trim(Str(a*b))EndSubPrivateSubList3_Click()EndPrivateSubForm_Load()PrivateSubForm_Load()Combo1.AddItem重慶EndPrivateSubCombo1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13Then'按Enter鍵后判斷Fori=1ToIfCombo1.Text=Combo1.List(i)ThenExitSubCombo1.AddItem(Combo1.Text)EndIfEnd添加一個(gè)窗體，在其中放置一個(gè)圖片框ctur1和一個(gè)計(jì)時(shí)器Time1。在該圖片框中放置一個(gè)標(biāo)簽Labe1，其標(biāo)題為“學(xué)生管理系統(tǒng)”，字體為楷體、粗斜體，字體大小為Intervl100PrivatePrivateSubIfLabel1.Left-30>=Picture1.LeftThenLabel1.Left=Label1.Left-30Label1.Left=Picture1.Left+Picture1.Width-30EndIfEnd添加一個(gè)窗體，在其中放置3個(gè)標(biāo)簽（前兩個(gè)使用Label1控件數(shù)組，后一個(gè)為PrivateSubPrivateSubText1(1).TextInputBox$("設(shè)置響鈴時(shí)間(時(shí)間格式：時(shí):分:秒):",_"時(shí)間設(shè)置","00:01:01")EndText1(0).Text=TimeIfText1(1).Text=""ThenExitt=DateDiff("s",Text1(1).Text,IfAbs(t)5Then'5秒鐘以內(nèi)響鈴并提示信息Label2.Caption="時(shí)間到了！" EndIfEnd-1PrivateSubForm_Load()PrivateSubForm_Load()File1.Path=Dir1.PathFile1.Pattern="*.bmp"File1.VisibleFalseEndFile1.Path=Dir1.PathIfFile1.ListCount=0ThenExitm=IIf(File1.ListCount>26,26,Fori=0Tom–txt(i).TextLeft(File1.List(iLen(File1.List(i))4)img(i).Pictureimg(i).Picture=LoadPicture(Dir1.Path&"\"&File1.List(i))EndDir1.Path=Drive1.DriveEndSub添加一個(gè)窗體，在其中放置一個(gè)標(biāo)簽Label2、一個(gè)組合框Combo1和一個(gè)框架PrivatePrivateTypestudent'noAsIntegernameAsString*8sexAsString*2rqAsDateclassAsString*5EndTypeDimstud(1To10)Asstudent定義studentstud(1)no1:stud(1)name王華stud(1).sex男"stud(1)rq=#10/2/1980#:stud(1).class="99091"stud(2)no2:stud(2)name李強(qiáng)stud(2).sex男"stud(2)rq=#10/4/1981#:stud(2).class="99101"stud(3)no3:stud(3)name張麗stud(3).sex女"stud(3)rq=#3/2/1980#:stud(3).class="99091"stud(4)no4:stud(4)name汪洋stud(4).sex男"stud(4)rq=#1/5/1980#:stud(4).class="99101"stud(5)no5:stud(5)name江華stud(5).sex男"stud(5)rq=#3/10/1980#:stud(5).class="99091"stud(6)no6:stud(6)name李英stud(6).sex女"stud(6)rq=#6/2/1980#:stud(6).class="99101"stud(7)no7:stud(7)name胡軍stud(7).sex男"stud(7)rq=#10/9/1981#:stud(7).class="99091"stud(8)no8:stud(8)name劉馳stud(8).sex女"stud(8)rq=#5/2/1982#:stud(8).class="99101"stud(9)no9:stud(9)name宋仁stud(9).sex男"stud(9)rq=#8/3/1980#:stud(9).class="99101"stud(10)no10stud(10).name許兵stud(10).sex男"stud(10)rq=#11/8/1980#:stud(10).class="99091"Fori=1To10Combo1.AddItemstud(i)EndEndPrivateSubi=1 DoWhileVal(Combo1.Text)stud(i)i=i+1Ifi10ThenMsgBox沒有該學(xué)號(hào)的記錄0,信息提示"Text1(0).Text=stud(i)no'顯示找到的學(xué)生記錄Text1(1).Text=stud(i)nameText1(2).Text=stud(i).sexText1(3).Text=stud(i)rqEnd習(xí)題Caption=""Appearance=0ForeColor=vbRed:FontUnderline=TrueFontBoldTrue:FontSize16FontItalicTruePrintTab(6);"VB程序設(shè)計(jì)參考書"ForeColor=vbBlue:FontUnderline=FalseFontBold=False:FontSize=11:FontItalic=FalsePrint"1.龔沛曾等：VisualBasic程序設(shè)計(jì)教程"Print"3.段銀由等：VisualBasic程序設(shè)計(jì)基礎(chǔ)"Print"4.洪國(guó)勝：VisualBasic程序設(shè)計(jì)"EndPrivateSubfont1_Click()PrivateSubfont1_Click()EndPrivateSubfont2_Click()EndPrivateSubfont3_Click()EndPrivateSubfont4_Click()EndLabel1.FontSize=10EndLabel1.FontSize=14EndLabel1.FontSize=20EndLabel1.FontSize=26End5.3其界面設(shè)計(jì)與例5.4的表單相同，運(yùn)算菜單項(xiàng)名為op數(shù)組，即op(1)對(duì)應(yīng)的菜單項(xiàng)標(biāo)DimDivAsIntegerPrivateSubop_Click(IndexAsInteger)IfVal(Text2.Text)<>0ThenIfDiv=0ThenLoadop(4).Caption除法"op(4).Visible=TrueEndIfIfDiv=1ThenDiv=0IfIndex=4ThenExitSubEndIfEndCase1Case2Text3.Text=Val(Text1.Text)-Val(Text2.Text)Case3Case4EndSelectEndEnd5.4設(shè)計(jì)一個(gè)窗體，在其中放置一個(gè)文本框Text1，將其屬性Multiline設(shè)置為True。啟 ....復(fù)制....粘貼DimDimstrAsstr=Text1.SelTextEndPrivateSubStr1=Mid(Text1.Text,1,Str3=Mid(Text1.Text,Text1.SelStart+1,Len(Text1.Text))Text1.Text=Str1+str+Str3EndPrivateSubText1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenEndIfEnd習(xí)題FillColor=&H000000FF&白色FillColor=&H00FFFFFF&紅色PrivateSubForm_Paint()ForPrivateSubForm_Paint()Fori=1000To1Step–1Circle(1900,700+i),1000,vbRed,,,3/7Me.FillStyle=Me.FillColor=RGB(255,255,Circle(1900,700),1000,,,,3/EndPrivateSubPrivateSubx0=1500:y0=X1=2500:Y1=X2=4000:Y2=x3x3=600:y3=x4=400:y4=DrawStyle=DrawWidth=Line(x0,y0)-(X2,Line-(x3,Line-(x4,Line-(x0,Line-(x3,y3)DrawStyle=DrawWidth=Line-(X2,Y2)Line(X1,Y1)-(x4,DrawStyle=DrawWidth=Line(x0,y0)-(x0,(Y1+Y2)/EndConstpi=3.14159Constpi=3.14159Fori=300To1StepCircle(1900,1000+i),1000,vbRed,-pi/3,-pi/6,3/5Me.FillStyle=Me.FillColorRGB(255,255,255)Circle(1900,1000),1000,,-pi/3,-pi/6,3/5EndSubConstpi=Constpi=DimiAsSinglePicture1.ForeColor=vbRedPicture1.Scale(-2*pi,1)-(2*pi,-Picture1.CurrentX2*piPicture1.CurrentY=Fori=-2*piTo2*piStepPicture1.Linei,Cos(3*i)*Sin(5*i))EndConstpi=Constpi=PrivateSubdegreeInputBox("旋轉(zhuǎn)的角度Ifdegree<0Ordegree>360ThenExitSubm=Pic1.ScaleWidthd=degree*pi/Pic1.Scale(-m/2,m/2)-(m/2,-m/Pic2.Scale(-m/2,m/2)-(m/2,-m/2)Pic1.CurrentX=0Pic1.CurrentY=Fori=-m/2Tom/2Forj=-m/2Tom/2IfPic1.Point(i,j)=0x=i*Cos(d)-j*Sin(d)y=i*Sin(d)+j*Cos(d)Pic2.PSet(x,y)NextjEnd習(xí)題DimNoAsString*5DimNameAsString*10DimSexAsString*2DimDe1,De2,De3,AvgAsIntegerNo=Text1(0).TextName=De1=Val(Text1(2).Text)De2=Val(Text1(3).Text)De3=Val(Text1(4).Text)Avg=(De1+De2+De3)/3Write#1,No,Name,Sex,De1,De2,De3,AvgFori=0To4EndClose#1PrivateSubOpen"xs.dat"ForAppendAs#1EndSubB.19DimNoAsString*5DimNameAsString*10DimSexAsString*2DimDe1,De2,De3,AvgAsIntegerOpen"xs.dat"ForInputAs#2Text1.Text="學(xué)號(hào)姓名性別數(shù)學(xué)語文英語平均分"+Chr(13)+Chr(10)+_ DoUntilInput#2,No,Name,Sex,De1,De2,De3,AvgText1.Text=Text1.Text+Chr(13)+Chr(10)+_No+Name+Sex+""+Str(De1)+""+Str(De2)+""+Str(De3)+""+Str(Avg)EndSubEnd圖B.20PrivateTypestudentNoPrivateTypestudentNoAsString*5NameAsString*10SexAsString*2De1AsIntegerDe2AsDe3AsEndTypeDim AsStud.No=Text1(0).TextStud.Name=Text1(1).TextStud.SexIIf(Option1(0).Value,男女")Stud.De1=Val(Text1(2).Text)Stud.De2=Val(Text1(3).Text)Stud.De3=Val(Text1(4).Text)Stud.Avg=(De1+De2+De3)/3Put#1,,StudFori=0To4EndClose#1PrivateSubOpen"xs1.dat"ForRandomAs#1Len=Len(Stud)EndSubPrivateTypestudentNoPrivateTypestudentNoAsString*5NameAsString*10SexAsString*2De1AsIntegerDe2AsIntegerDe3AsIntegerAvgAsIntegerEndDimStudAsPrivateSubCommand1_Click()DimRecnum,totalrecAsIntegerRecnum=InputBox("輸入記錄號(hào)","輸入數(shù)據(jù)")Open"xs1.dat"ForRandomAs#2LenLen(Stud)totalrec=LOF（2）/IfIfRecnum<=0OrRecnum>totalrecThenExitSubGet#2,Recnum,StudText1(0).Text=Stud.NoOption1(0)IIf(Stud.Sex男True,False)Text1(2).Text=Stud.De1Text1(3).Text=Stud.De2Text1(4).Text=Stud.De3Close#2EndEnd習(xí)題PrivateSubCommand1_Click()PrivateSubCommand1_Click()Command2.Enabled=TrueEndDimStr1AsStringDimStr2AsStringDimStr3AsStr2=Str1=Mid(Text1.Text,1,Str3=Mid(Text1.Text,Text1.SelStart+1,Len(Text1.Text))Text1.Text=Str1+Str2+Str3EndPrivateSubForm_Load()EndPrivatePrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Label1.Caption="("+Trim(Str(X))+","+Trim(Str(Y))+")"EndFile1.Path=Dir1.PathEndDir1.Path=Drive1.DriveEndPrivateSubFile1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle, OnErrorResumeNextDimFnAsFn=Dir1.Path+"\"+File1.FileNameLabel1.Caption=FnEndSubPrivatePrivateSubImage1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)IfSource.Name="Picture1"ThenEndIfEndPrivatePrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)Label1.Caption=Chr(KeyCode)+"---"+Str(KeyCode)End設(shè)計(jì)一個(gè)窗體Form1，其中放置一個(gè)圖像控件image1，其Picture屬性設(shè)置為PrivatePrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)SelectCaseKeyCodeCaseImage1.Left=Image1.Left-IfImage1.Left<0ThenImage1.Left=0Case&H26Image1.Top=Image1.Top-IfImage1.Top<0ThenImage1.Top=0Case&H27Image1.Left=Image1.Left+IfIfImage1.Left+Image1.Width>=Form1.WidthThenImage1.Left=_Form1.Width-Image1.WidthCaseImage1.Top=Image1.Top+IfImage1.Top+Image1.Height+405>=Form1.HeightThen_Image1.Top=Form1.Height-2*Image1.HeightEndSub習(xí)題PublicPublicxAsPrivateSubClass_Initialize()EndPrivateSubClass_Terminate()Endx=x+1EndPrivateSubPrivateSubSetmyobject=NewClass1myobjectx1'觸發(fā)Initialize事件EndSub象的Initialize事件過程的執(zhí)行，出現(xiàn)一個(gè)信息框。當(dāng)執(zhí)行完“Printmyobject.x”語句，撤銷PublicsubstrAsStringPubliccountAscount=0EndDimiAsIntegerDimjAsIntegerDimkAsIntegerFori=1Toj=k=DoWhile(j<=Len(mainstr)Andk<=Len(substr)And_Mid$(mainstr,j,1)=Mid$(substr,k,1))j=j+k=k+1If(k=Len(substr)+1)Thencount=count+1EndPrivateSubMsgBox子串在主串中出現(xiàn)的次數(shù)：str(count),vbOKOnly,計(jì)算結(jié)果"EndSubPrivateSubPrivateSubSetmyobject=NewClass2myobject.substr=Trim(Text1.Text)EndPublicPublicfAsSinglePubliccAsSinglePublicSubtrans()c=(5/9)*(f-EndSetmyobject=NewClass3myobjectf=Val(Text1.Text)EndSubPrivateSizeStatusAs PropertyPropertyGetSizer()AsBooleanEndPropertyPropertyLetSizer(xAsBoolean)Ifx=FalseThenEndIfEndEndIfSizer=FalseThenPrint縮小窗體，Sizer="；IfSizer=TrueThenPrint"擴(kuò)大窗體，Sizer="；PrintxEndSubPrivateIsCenteredAs PublicPublicPropertyLetCenter(xAsBoolean)IfxEndIfEndPublicPropertyGetCenter()AsBooleanEndIfMe.Center=FalseEndIfIfMe.Center=TrueEndIfEndEndSubPrivatePrivateSubCommand3_Click()Me.Movet,lEnd習(xí)題 Jet數(shù)據(jù)庫。數(shù)據(jù)庫有Jet引擎直接生成和操作，不僅靈活而且速度快，MicrosoftISAM數(shù)據(jù)庫。索引順序訪問方法(ISAM)數(shù)據(jù)庫有幾種不同的形式，如Dbase，F(xiàn)oxPro，TextFiles和Paradox。在VB中可以生成和操作這些數(shù)據(jù)庫。 數(shù)據(jù)庫，如MicrosoftSQLServer，Oracle，Sybase等，VB可以使用任何支持ODBC就代表了數(shù)據(jù)庫系統(tǒng)的邏輯結(jié)構(gòu)。RDO是ODBCAPI的一個(gè)淺層界面接口，是專為訪問遠(yuǎn)Microsoft在OLEDBAPI之上，提供了一種面向?qū)ο蟆⑴c語言無關(guān)的應(yīng)用程序接口，這就是將OO數(shù)據(jù)的各種操作。O控件實(shí)現(xiàn)數(shù)據(jù)連接的關(guān)鍵屬性是onetionstrg和eordouce。其中onnetionstrng屬性指出了O控件和數(shù)據(jù)庫連接的連接字符串，通過這個(gè)連接字符串可以使D控件和OLEBovde（提供者）支持的數(shù)據(jù)庫連接；ReordSoure出了可以操作的數(shù)據(jù)來源，即記錄集的內(nèi)容可以是一張表、一個(gè)存儲(chǔ)過程或LBDataA控件是B60OLED的關(guān)系數(shù)據(jù)庫之外，還可以訪問包括郵件數(shù)據(jù)、ebM和MD技術(shù)將是MicrooA控件基礎(chǔ)之上的數(shù)據(jù)綁定成員常見的有Datait控件，DataCobo控件和aad控件等，而建立在a控件上的數(shù)據(jù)綁定成員常見的有DBidDBListDBComoD技術(shù)之上的。EndEndEndEndSubUnloadMeEnd設(shè)計(jì)一個(gè)窗體，在其中放置一個(gè)ADOData控件Adodc1，設(shè)置好數(shù)據(jù)源。然后添PrivatePrivateSubAdodc1_MoveComplete(ByValadReasonAsADODB.EventReasonEnum,_ByValpErrorAsADODB.Error,adStatusAsADODB.EventStatusEnum,_ByValpRecordsetAsAdodc1.Caption記錄號(hào)&Adodc1.Recordset.AbsolutePosition)&_"/"&Adodc1.Recordset.RecordCountEndPrivateSubCommand1_Click(IndexAsInteger)SelectCaseIndexCommand1(0).Caption="確定"Command1(1).Caption="取消"Command1(0).Caption="添加"Command1(1).Caption="編輯"Tenable(True)EndCommand1(0).Caption="確定"Command1(1).Caption="取消"Tenable(False)Command1(0).Caption="Command1(0).Caption="添加"Command1(1).Caption="編輯"Tenable(True)EndIfCase2'實(shí)現(xiàn)刪除功能EndSelectEndPrivateSubTenable(ByValsetvalueAsBoolean)DimxAsTextBoxForEachxInAdodc1.Enabled=setvalueEndPrivateSubText1_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13i=(Index+1)Mod5End習(xí)題在圖111MicrooftJetDBEngne不被其他對(duì)象所包含的數(shù)據(jù)訪問對(duì)象。它擁有一個(gè)名叫s的對(duì)象集合(集合的名稱總是所包含的對(duì)象名稱的復(fù)數(shù))，該對(duì)象集合包含一個(gè)或多個(gè)Workspce對(duì)象。每個(gè)e對(duì)象有一個(gè)s集合，該集合包含一個(gè)或多個(gè)e對(duì)象。每個(gè)e通過對(duì)O的對(duì)象引用和操作對(duì)象的方法和屬性可以完成數(shù)據(jù)庫的定義和數(shù)據(jù)庫操作功能。一般來講，數(shù)據(jù)庫定義通常都直接通過數(shù)據(jù)庫管理系統(tǒng)提供的可視化數(shù)據(jù)庫定義工具完成，主要通過A進(jìn)行數(shù)據(jù)庫表內(nèi)數(shù)據(jù)的查找、插入、刪除、修改和增加。PrivatePrivateSubForm_Load()DimDbAsDatabaseDimTbAsTableDefDimmyFieldAsFieldDimIdxAsIndexSetDbWs.CreateDatabase("E:\VB\sample",dbLangGeneral)SetTbDb.CreateTableDef("stud")SetmyFieldTb.CreateField("學(xué)號(hào)dbInteger)Tb.Fields.AppendmyFieldSetmyFieldTb.CreateField("姓名dbText,8)Tb.Fields.AppendmyFieldSetmyFieldTb.CreateField("性別dbText,2)Tb.Fields.AppendmyFieldSetmyFieldTb.CreateField("民族dbText,12)Tb.Fields.AppendmyFieldSetmyFieldTb.CreateField("班號(hào)dbTextSetIdxTb.CreateIndex("按學(xué)號(hào)索引")Tb.Indexes.AppendIdxDb.TableDefs.AppendTbEndPrivatePrivateSubCreateNewDatabase（DatabaseNameAsString）DimmywsAsWorkspaceDimmydbAsSetIfDir(DatabaseName)<>""ThenKillEndPrivatePrivateSubCreateTable(DatabaseNameAsString,TableNameAsString,_FieldCountAsInteger,FieldName()AsString,_FieldType()AsInteger,FieldLength()AsInteger)DimmyDbAsDatabaseDimmyFieldAsFieldFori=1ToIfFieldLength(i)=0EndmyDb.TableDefs.AppendmyTableEndPrivatePrivateSubAddNewRecord(DatabaseNameAsString,TableNameAsString,_FieldCountAsInteger,FieldName()AsString,_FieldValue()FieldValue()AsDimmyDbAsDatabaseFori=1toFieldCountEndDimmyDbAsDatabaseDimmyDbAsDatabasePrivateSubSetmyDb=Workspaces(0).OpenDatabase("e:\vb\student")SetmyRecsmyDb.OpenRecordset("select*from學(xué)生表")EndSubEndIfmyRecs.BOFThenExitSubEndIfEndIfmyRecs.EOFThenExitSubEndIfEndEndPrivateSubRecordDisplay()Text1(4).TextmyRecs.Fields("班號(hào)Text1(5).Text=str(myRecs.AbsolutePosition+1)EndSub習(xí)題第一種方法，通過執(zhí)行Connection對(duì)象的打開記錄集的方法創(chuàng)建一個(gè)ADO''引用ADOPrivateRsAsADODB.RecordsetPublicSubRecordQuery()SetConn=NewADODB.ConnectionSetRs=NewRecordsetConn.ConnectionStrin="DRIVER={MicrosoftAccessDriver(.mdb)};"&_SetRs=Conn.Execute("Select*FromEndSub''引用ADOPublicSubRecordQuery()SetRs=NewRecordsetConnString="DRIVER={MicrosoftAccessDriver(.mdb)};&_"DBQ=e:\vb\personmdb"Rs.0pen"Select*Fromperson",ConnStringEndSub如果提供者支持批更新，可以使提供者將多個(gè)記錄的更改存入緩存，然后使用PrivateRsAsADODB.RecordsetPrivateSubForm_Load()SetPrivateRsAsADODB.RecordsetPrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRs=NewRecordsetConn.OpenDSN=newstudent"'newstudent是studentmdbSetRs.ActiveConnection=ConnSetRs.ActiveConnection=ConnRs.CursorType=adOpenKeysetRs.OpenSelect*from學(xué)生表"Rs.Fields("學(xué)號(hào)EndSubPrivateRsAsADODB.RecordsetPrivateSubForm_Load()SetConn=NewADODB.ConnectionSetRs=NewRecordsetConn.OpenDSN=newstudent"'newstudent是studentmdb對(duì)應(yīng)的數(shù)據(jù)源SetRs.ActiveConnection=ConnRs.CursorType=adOpenKeysetRs.OpenSelectfromWhere學(xué)號(hào)='10'"IfRs.BOFThenMsgBox沒有10號(hào)的學(xué)生記錄EndIfEndPrivateRsAsADODB.RecordsetPrivateSubSetConn=NewSetRs=NewSetcomm=NewADODB.CommandConn.Cur