vb連接sql數(shù)據(jù)庫的模塊以及使用實例

打開丫86.0，新建工程SQL_data,新建一個EXE,并添加一個模塊。如圖一:添加引用和部件(如下兩圖)藍(lán)色的兩個，是要選中打勾的。注意，一個是引用”，一個是部件”。打開丫86.0，新建工程SQL_data,新建一個EXE,并添加一個模塊。如圖一:添加引用和部件(如下兩圖)藍(lán)色的兩個，是要選中打勾的。注意，一個是引用”，一個是部件”?？丶蘒設(shè)計器I可插入對象IMicro&QftADDDataControl6.0(SF4)fQLEKB)定位：C：\WIHD0IFS\syst?m32\msftdQdc.ocx應(yīng)用囚」NicrosoftActiveXPluginv*嗣MicrosoftAgentControl20MicrosoftCalendarControl8-0MkcrosoftChartControl6,0(OLEDE)瀏覽?-r只顯示選定項⑤)fflicrosoftCommControl6.0HicrosuftCommon Control50Lo^Gri>dCtrlActiveXControlmoduleLu^Tit.rIk二tikj；Cij：it.iulrr-U邑MCilend4r1.0港愫踱M巨diaAddin1.0TypeLibraryfflicrosoftAccessIwrCedeControlS0icrosoftABOD4t.aControl6,0(5f4)JIIUlLIi瀏覽⑥Micr050ElDataGridControl6.0餌PS)(OLEOB)定位：C:\ffIHD0TS\syst?m32Xm￡dAtgrd.ocx應(yīng)用Q)設(shè)計器可插入對象MicrosoftDataRep?aterControl6.0(01MicrosoftDDSr只顯示選定項⑤)ABODataControl6.0(SF4)*HicrosoftHicy?softControl2.0JIIUlLIi瀏覽⑥Micr050ElDataGridControl6.0餌PS)(OLEOB)定位：C:\ffIHD0TS\syst?m32Xm￡dAtgrd.ocx應(yīng)用Q)設(shè)計器可插入對象MicrosoftDataRep?aterControl6.0(01MicrosoftDDSr只顯示選定項⑤)ABODataControl6.0(SF4)*HicrosoftHicy?softControl2.0fflicrosoftCalendwControl8.0MicrosoftChartControl6.C(OLEDS)MicrosoftCommC*>ntr!?15DMicrosoft.Common ControlB.0￡HicrosoftDataB&undGridCentral5.0k柜便白1匕超JDataBoundListControls6.CMicrosoftDit^ListControls6.0(OLEDEMierosJEticrosoftDitaGi-idContiol:添加一個模塊 口@土@_5口1,并把圖下面的復(fù)制粘貼到模塊中。'昌各決昂T16一11五詵置文寸底動QP±程】廛性退L-.伊育工程出

移瞬工移近■lOA)一11五詵置文寸底動QP±程】廛性退L-.伊育工程出

移瞬工移近■lOA)(y、蓿貿(mào)口福塊趣）身打印電〕…曲廊）侯槨皺?f爵力口用尸握怦吐）臼瀕加屈性頁?恂焦加用尸文檔也」陶加文件迦…'連接SQL的模塊*可連按朗屈

陪疵辿PublicconnAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicaddFlagAsBoolean'聲明部分PublicFunctionOpenCn(ByVaiCipAsString,ByVaiusersAsString,ByVaipwAsString)AsPublicFunctionOpenCn(ByVaiCipAsString,ByVaiusersAsString,ByVaipwAsString)AsBoolean'連接模塊填寫數(shù)據(jù)庫等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'服務(wù)器的名字conn.Properties("initialcatalog").Value="pubs"'庫名'conn.Properties("integratedsecurity").Value="SSPI"'登陸類型conn.Properties("userid").Value=users'SQL庫名conn.Properties("password").Value=pw密碼'sql="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;password=;lnitialCatalog二pubs;DataSource=〃'如果不用這個模塊也行可以，這一句便是常用的引擎。'conn.ConnectionString=sqlconn.OpenOpenCn=TrueIfconn.State=1ThenaddFlag=TrueExitFunctionstrerrmag:mag=〃Datacan'tconnect〃CallMsgBox(mag,vbOKOnly,〃Error:Dataconnect〃)addFlag=FalseExitFunction'連接錯誤消息EndFunction'關(guān)閉數(shù)據(jù)庫，釋放連接PublicSubcloCn()OnErrorResumeNextIfconn.State<>adStateClosedThenconn.CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBoolean'連接數(shù)據(jù)庫記錄集DimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=True'End'將記錄集給rsExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnly,"error:connect")openRs=FalseEnd'ExitFunction'連接錯誤消息EndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.State<>adStateClosedThenrs.CloneSetrs=Nothing'釋放記錄集EndSub把它放入到模塊文件中，以備調(diào)用。三：下面兩圖是模塊的代碼圖片和窗體的代碼圖片迫十Ki越瞬記1答決目有色列湮61迫十Ki越瞬記1答決目有色列湮61用）▼OpenJCnJJ'連接沉謝模塊PublicconnAsADULlB.CeniiectiQTLFublicrsAsADQDBKec^rdsetPublic料配如。,葉皿(3"&歹￥盤.1聲明部耳分Strir/RyV以TIePF昌A宅5triByVal訃虹：Dimm&gAsStringOnErrorGoTostrerrmagSetcorn-NewADODB.CannectiCO<ML_CcnnecticuTimeftut=2Soncoiu\.Provider-sqlolcdbconn.Propertie(ditasource*)Value-Cip,服勞器的名字conn.Froprti?(initid.catIDg).￥&Lie=pubs '庫名bcohiltroperti飛Cmtefratedsecurity).ViLu?= ' '登陸素型 ■ctnn.Frpertie:Cuserid),Val'ie-users飛QL八名conn.Properties('pasEwsri).ValueV=pw'^巧 R；siL-ProvidtrSQLOLIDB.1:PersistSecorityInfo二Fals?:Us?rID=s&；vaisword=:Incomi.Coiai?cti4nStifin￡=sqlCOtui.OjenOpenCn=Truel￡c?nz..St二iIXftnd通dFldg-Tru?E):itFtnctionstrerrnag：m謔-"Tacdtconnect"CallWsgEoxvbONOnlyZrror.Dtaconnectr)aciFlag=ExitFundion'連接詰誤消息EndFunction■■關(guān)閉型據(jù)庫，木睪煎炷接FnblicSuhcloCnOOnErrorRe莒tui百NextT￡canr.atn￡》a.r?C1ceThinaarmClau*Setmtn=nothingEikiSuliPublicFuiicticu^penKsdyValstrsil扎sSUring〕Xs電血DimmSLrjikgDimrpyAsBooleanPrivateSubC&mm&ndi2_Click0UnisadIndSubPrivateSubCommand1_Click()a=Trim(Textl.Text)b=Trim(Text2.Text) ;連臬系據(jù)庫囪/?，苣?弟"v-七丁嗎mme>ii■零r固qsr營fCMHudl 二|[ciTekj'PrivateSubCommandl_C1ick0a"Trim(TextLText)b=Trin(Text2-Text)c=Trin*Clext3.Text)CallOpenCn(a,b,c)I￡addJlag二TrueThen弧儂oh「OK")CallopenRsC*select*fr。司jobs")SetDat^Gridl.DataSource-rs