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

1、打开VB6.0,新建工程SQL_data，新建一个EXE，并添加一个模块。如图一：添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。注意，一个是引用”，一个是部件”。:添加一个模块Data_Sql，并把图下面的复制粘贴到模块中。蓿贸卩福块趣）併育工程出移瞬工移近诜置対底动QP丄程】庫性退L-.13糜加陽你®ft憑加m窗体（X）'昌各決昂T16曲廊）侯檯皱©f爵力口用尸握怦吐）臼濒加屈性页®恂焦加用尸文档也臨加文件迦tlOA)身打印电*可连按朗屈陪疵辿'连接SQL的模块PublicconnAsADODB.ConnectionPublicrsAsA

2、DODB.RecordsetPublicaddFlagAsBoolean'声明部分PublicFunctionOpenCn(ByVaiCipAsString,ByVaiusersAsString,ByVaipwAsString)AsBoolean'连接模块填写数据库等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource&quo

3、t;).Value=Cip'服务器的名字conn.Properties("initialcatalog").Value="pubs"'库名'conn.Properties("integratedsecurity").Value="SSPI"'登陆类型conn.Properties("userid").Value=users'SQL库名conn.Properties("password").Value=pw密码'sql="

4、;Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;password=;lnitialCatalog=pubs;DataSource="'如果不用这个模块也行可以，这一句便是常用的引擎。'conn.ConnectionString=sqlconn.OpenOpenCn=TrueIfconn.State=1ThenaddFlag=TrueExitFunctionstrerrmag:mag="Datacan'tconnect"CallMsgBox(mag,vbOKO

5、nly,"Error:Dataconnect")addFlag=FalseExitFunction'连接错误消息EndFunction'关闭数据库，释放连接PublicSubcloCn()OnErrorResumeNextIfconn.State<>adStateClosedThenconn.CloseSetconn=Nothing'连接数据库记录集EndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBooleanDimmagAsStringDimrpyAsBooleanOnErrorGoTo

6、strerrmagSetrs=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlEndWithaddFlag=TrueopenRs=True'End'将记录集给rsExitFunctionstrerrmag:mag="datanotconnect"CallMsgBox(mag,vbOKOnl

7、y,"error:connect")openRs=FalseEnd'ExitFunction'连接错误消息EndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.State<>adStateClosedThenrs.CloneSetrs=Nothing'释放记录集EndSub把它放入到模块文件中，以备调用。三：下面两图是模块的代码图片和窗体的代码图片w徐厂0倒私厂工艇厂禧式7矿调曲i厂运和®i査询tit飞啟卫厂工其i厂芥接程厚®迫十Ki61用）越瞬记1答決目冇色列湮OpenJC

8、njj'连接沉谢模块PublicconnAsADULlB.CeniiectiQTLFublicrsAsADQDBKecrdsetPublicaddKlaAs'声明部分onVR;连縣据库囱/FiiblirFnixtiM叶皿(3“&歹¥盘1口nh耳StririRyV辺tiepf昌A宅5triByVal讣虹：Dimm&gAsStringOnErrorGoTostrerrmagSetcorn-NewADODB.Cannectico<ml_CcnnecticuTimeftut=2Scoiu.Provider-sqlolcdbconn.Propertie(d

9、itasource17)Value-Cip，服勞器的名字conn.Froprti?(initid.catlDg).¥&Lie=pubs'库名bcohiltropertisCmtefratedsecurity).ViLu®=''登陆棗型ctnn.Frpertie:Cuserid),Val'ie-usersSQL名conn.Properties('pasEwsri).Value=pw'甕巧；siL-ProvidtrSQLOLIDB.1:PersistSecorityInfo=Fals«:Us«rID=s

10、&；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

11、.atn£a.r«C1ceThinaarmClau*Setmtn=nothingEikiSuliPublicFuiicticupenKsdyValstrsil扎sSUringXs电血DimmSLrjikgDimrpyAsBooleanPrivateSubC&mm&ndi2_Click0UnisadIndSubPrivateSubCommand1_Click()a=Trim(Textl.Text)b=Trim(Text2.Text)c=Trim(Text3.Text)CallOpenCn(a,b,c)IfaddFlag=TrueThenMsgBox("