BySamHuggill
Introduction
Afewdaysago,IstartedanewprojectthathandlesalargedatabasecontainingHTMLcodeforacompletewebsite.Theprojecthastoallowthewebmastersofthewebsiteviewallupdatesmadetothesite,whentheyweremadeandbywhom.Theycanalsoeditthepagesonthesite,andautomaticallyuploadthem.
ThisprojectrequirestheuseofafairlylargedatabasethatneedstobeaccessedbymanypeoplefromdifferentPCs.IdecidedtouseSQLServerasthebackendtotheproject,butthismeantthatIcouldn注释：tuseDAOtoconnecttoit!Whatapain!
So,IdecideditwasabouttimeIstartedtolearnADO.ItookaquickglancearoundonthenetatmyusualVBsites,butfoundlittleornohelpformeonADO.
Well,asweprideourselveshereatVBSquareonaddingoriginalcontent,IdecidedIwouldwriteanarticleonusingADO.
ThisarticleisonlyreallytogetyoustartedonADO,andonlydiscussestheconnectionandrecordsetobjects.TherearemanymorefeaturesofADOthatyouwillneedtolookintobeforeyoutakeonaprojectusingADO.
Connectingtolocalandexternaldatabases
WithADO,youcanbuildallyourcodearoundalocaldatabaseandthen,veryeasilychangeonelineofcodethatwillallowyoutoaccessadatabaseonaSQLServer.
Thethingthattookmeawhiletofigureout,washowtoconnecttoadatabase.WithDAO,youusetheOpenDatabasecommandpassingthepathofthedatabaseasoneofthearguements.ButwithADO,youneedtobuildaconnectionstring.Toconnecttoalocaldatabase,usethefollowingconnectionstring:
ConnectionString="Provider=Microsoft.JET.OLEDB.3.51;DataSource=c:\mydb.mdb"
Thatmayseemabitcumbersome,butthisflexibilityprovidesyouwiththemeanstoconnecttoalmostanydatabaseinanyformatanywhere.ThefollowingconnectionstringisusedtoconnecttoaSQLSeverdatabasenamed注释：people注释：:
ConnectionString="driver=[SQLServer];uid=admin;server=myserver;database=people"
SwitchfromDAOtoADO
BySamHuggill
UsingtheConnectionObject
TheConnectionobjectisthebasefromwhichalmostallADOfunctionsderivefrom.Youcanusethisobjecttocarryoutmostoftheactionsperformedinthesamplecode,usingSQLstatements.E.g.
mCN.Execute"DELETEFROMPeopleWHEREID=1"
Iwon注释：tgointoanydetailaboutusingSQLstatements,buttheMSDNhassomeinfoonthem.
TheconnectionobjectreturnsarecordsetobjectifyouusetheExecutemehtod.YoucanusethistocreateaDLLanduseCOMtogetthecontentsofarecordset.e.g.
PublicSubGetRecordSet()AsADODB.Recordset
GetRecordSet=mCN.Execute("SELECT*FROMPeople")
EndSub
Thismeansthatyoucancentralizeallyoudatabasecodeintoonecomponent,preferablyaDLL.
UsingtheRecordsetObject
InADO,theRecordsetobjectisverysimilartotheDAORecordsetobject.Thismakesthingsaloteasierwhenportingyourcode,althoughyouwillneedtodeviseafewworkaroundstoovercomeafewmissingfeatures.
Forexample,whenyouinsertarecord,butneedtostoreitsID(AutoNumber)valueinthesameaction,youwouldnormallyusethiscodeinDAO:
Withrs
.AddNew
.Fields("Name").value=sNewValue
.Update
.Bookmark=.Lastmodified
m_intRcdID=.Fields("ID").value
.Close
EndWith
TheADORecordsetobjectdoesnotexposeaLastModifiedorLastUpdatedproperty,soweneedtousethefollowingworkaround:
Withrs
.AddNew
.Fields("Name").value=sNewValue
.Update
.Requery
.MoveLast
m_intRcdID=.Fields("ID").value
.Close
EndWith
Afterupdatingtherecordset(whichyoudon注释：tneedtodoifyouaremovingtoanotherrecord,asADOautomaticallyupdateschangesmadewhenyoumoverecords)youneedtorefreshtherecordsetusingtheRequerymethod.Thenyouneedtomovetothelastrecord,whichistheoneyouhavejustadded.Now,justextracttheIDvalueandstoreitinamembervariable.
SampleApplication
TohelpyoumovefromDAOtoADO,IhavemadeasimilarsampleapplicationasIdidfortheBeginningDatabasesarticle.Thesampleoffersthesefeatures:
Addingnewrecords
Deletingrecords
Updatingrecords
Gettingrecorddata
Itisaverysimpledemo,butshouldhelpyoutounderstandthebasics.ItusethelatestversionofADO,version2.1.SeethesectionatthebottomfordownloadingtheADOLibrariesandthesampleapplcation.
Togetthesampleapplicationtowork,startanewStandardEXEProjectandaddareferencetotheMicrosoftActiveXDataObjects2.1Library(Project,References).Addfourcommandbuttons(cmdAdd,cmdDelete,cmdGet,cmdSave)andthreetextboxes(txtNotes,txtURL,txtName).Copy/pastethefollowingcodeintotheform:
OptionExplicit
注释：PrivatereferencestotheADO2.1ObjectLibrary
PrivatemCNAsConnection
PrivatemRSAsNewRecordset
注释：InternalreferencetothecurrentrecordsIDvalue
PrivatemintRcdIDAsInteger
PrivateSubcmdAbout_Click()
frmAbout.ShowvbModal
EndSub
PrivateSubcmdAdd_Click()
AddRecord
EndSub
PrivateSubcmdClose_Click()
UnloadMe
EndSub
PrivateSubOpenConnection(strPathAsString)
注释：Closeanopenconnection
IfNot(mCNIsNothing)Then
mCN.Close
SetmCN=Nothing
EndIf
注释：Createanewconnection
SetmCN=NewConnection
WithmCN
注释：ToconnecttoaSQLServer,usethefollowingline:
注释：.ConnectionString="driver=[SQLServer];uid=admin;server=mysrv;database=site"
注释：Forthisexample,wewillbeconnectingtoalocaldatabase
.ConnectionString="Provider=Microsoft.JET.OLEDB.3.51;DataSource="&strPath
.CursorLocation=adUseClient
.Open
EndWith
EndSub
PrivateSubAddRecord()
注释：Addanewrecordusingtherecordsetobject
注释：Couldbedoneusingtheconnectionobject
mRS.Open"SELECT*FROMPeople",mCN,adOpenKeyset,adLockOptimistic
WithmRS
.AddNew
.Fields("Name").Value=txtName.Text
.Fields("URL").Value=txtURL.Text
.Fields("Notes").Value=txtNotes.Text
注释：Afterupdatingtherecordset,weneedtorefreshit,andthenmovetothe
注释：endtogetthenewestrecord.Wecanthenretrievethenewrecord注释：sid
.Update
.Requery
.MoveLast
mintRcdID=.Fields("ID").Value
.Close
EndWith
EndSub
PrivateSubDeleteRecord()
注释：Deletearecordandclearthetextboxes
mRS.Open"SELECT*FROMPeopleWHEREID="&mintRcdID,mCN,adOpenKeyset,adLockOptimistic
mRS.Delete
mRS.Close
txtName.Text=""
txtURL.Text=""
txtNotes.Text=""
EndSub
PrivateSubGetInfo()
注释：GetthedataforarecordbasedonitsIDvalue
mRS.Open"SELECT*FROMPeopleWHEREID="&
mintRcdID,mCN,adOpenKeyset,adLockOptimistic
WithmRS
txtName.Text=.Fields("Name").Value
txtURL.Text=.Fields("URL").Value
txtNotes.Text=.Fields("Notes").Value
.Close
EndWith
EndSub
PrivateSubUpdateRecord()
注释：Updatearecord注释：svalues
mRS.Open"SELECT*FROMPeopleWHEREID="&mintRcdID,mCN,adOpenKeyset,adLockOptimistic
WithmRS
.Fields("Name").Value=txtName.Text
.Fields("URL").Value=txtURL.Text
.Fields("Notes").Value=txtNotes.Text
.Update
.Close
EndWith
EndSub
PrivateSubcmdDelete_Click()
DeleteRecord
EndSub
PrivateSubcmdGet_Click()
注释：Asktheuserwhichrecordshouldberetrievedandgetthedata
注释：forthatrecord
mintRcdID=Val(InputBox$("EnterIDofrecord:",App.Title,"1"))
GetInfo
EndSub
PrivateSubcmdSave_Click()
UpdateRecord
EndSub
PrivateSubForm_Load()
OpenConnectionApp.Path&"\people.mdb"
EndSub
PrivateSubForm_Unload(CancelAsInteger)
IfNot(mRSIsNothing)Then
SetmRS=Nothing
EndIf
IfNot(mCNIsNothing)Then
mCN.Close
SetmCN=Nothing
EndIf
EndSub->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
