vb连接sql数据库的模块以及使用实例

打开丫86.0，新建工程SQL_data,新建一个EXE,并添加一个模块。如图一:添加引用和部件(如下两图)蓝色的两个，是要选中打勾的。注意，一个是引用”，一个是部件”。打开丫86.0，新建工程SQL_data,新建一个EXE,并添加一个模块。如图一:添加引用和部件(如下两图)蓝色的两个，是要选中打勾的。注意，一个是引用”，一个是部件”。控件I设计器I可插入对象IMicro&QftADDDataControl6.0(SF4)fQLEKB)定位：C：\WIHD0IFS\syst«m32\msftdQdc.ocx应用囚」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应用Q)设计器可插入对象MicrosoftDataRep«aterControl6.0(01MicrosoftDDSr只显示选定项⑤)ABODataControl6.0(SF4)*HicrosoftHicy«softControl2.0JIIUlLIi浏览⑥Micr050ElDataGridControl6.0饵PS)(OLEOB)定位：C:\ffIHD0TS\syst«m32Xm£dAtgrd.ocx应用Q)设计器可插入对象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,并把图下面的复制粘贴到模块中。'昌各决昂T16一11五诜置文寸底动QP±程】廛性退L-.伊育工程出

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

移瞬工移近■lOA)(y、蓿贸口福块趣）身打印电〕…曲廊）侯椁皱©f爵力口用尸握怦吐）臼濒加屈性页®恂焦加用尸文档也」陶加文件迦…'连接SQL的模块*可连按朗屈

陪疵辿PublicconnAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicaddFlagAsBoolean'声明部分PublicFunctionOpenCn(ByVaiCipAsString,ByVaiusersAsString,ByVaipwAsString)AsPublicFunctionOpenCn(ByVaiCipAsString,ByVaiusersAsString,ByVaipwAsString)AsBoolean'连接模块填写数据库等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip'服务器的名字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'关闭数据库，释放连接PublicSubcloCn()OnErrorResumeNextIfconn.State<>adStateClosedThenconn.CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBoolean'连接数据库记录集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把它放入到模块文件中，以备调用。三：下面两图是模块的代码图片和窗体的代码图片迫十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■■关闭型据库，木睾煎炷接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) ;连臬系据库囱/•，苣।弟"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