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

1、打开VB6.0，新建工程SQL_data,新建一个EXE,并添加一个模块。如图一：添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。注意，一个是引用”，一个是部件”。:添加一个模块Data_Sql,并把图下面的复制粘贴到模块中。Catalog=pubs;DataSource=如果不用这个模块也行可以，这一句便是常用的引conn.ConnectionString=sqlconn.OpenOpenCn=TrueIfconn.State=1ThenaddFlag=TrueExitFunctionstrerrmag:mag=DatacantconnectCallMsgBox(ma

2、g,vbOKOnly,Error:Dataconnect)addFlag=FalseExitFunction连接错误消息EndFunctionD 图表工具（I）外接程序窗口 5 帮助flx_工样 6225x6645日巴宜设置为启动e工程 1 届性值），遵加类模块（U） 闻添加用尸控件&）回添加属性页猫添加用尸文档添加文件他）一.昌打ER.v 可连接的国）隐藏 Qi）连接SQL的模块PublicconnAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicaddFlagAsBoolean声明部分PublicFunctionOpenCn(ByVa

3、lCipAsString,ByValusersAsString,ByValpwAsString)AsBoolean连接模块填写数据库等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider=sqloledbconn.Properties(datasource).Value=Cip服务器的名字conn.Properties(initialcatalog).Value=pubsconn.Properties(integratedsecurity).Va

4、lue=SSPIconn.Properties(userid).Value=usersSQL库名conn.Properties(password).Value=pw密码库名登陆类型sqlProvider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;password=;Initial囿9|亡IH工 程添加模块曲）修添加窗体电）口添加 MDI 窗体 d）保存工程红）移除工程 （K）P 后智沙区 1：！：！口，0关闭数据库，释放连接PublicSubcloCn()OnErrorResumeNextIfconn.StateadStateClosedTh

5、enconn.CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBooleanDimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmagSetrs=NewADODB.RecordsetIfaddFlag=FalseThenrpy=TrueWithrs.ActiveConnection=conn.CursorLocation=adUseClient.CursorType=adOpenKeyset.LockType=adLockOptimistic.OpenstrsqlE

6、ndWithaddFlag=TrueopenRs=TrueEnd将记录集给rsExitFunctionstrerrmag:mag=datanotconnectCallMsgBox(mag,vbOKOnly,error:connect)openRs=FalseEndExitFunction连接错误消息EndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.StateadStateClosedThenrs.CloneSetrs=Nothing释放记录集EndSub把它放入到模块文件中，以备调用。卜面两图是模块的代码图片和窗体的代码图片连接数据库记录集白亡太

7、。X 曾良露 CC.)|/囱圮 I 管火 E 行的列 32GB 用)，IOpeaCn|连接的说模块=PubliceaniiAsADQUB.CiukclioTiFubLiursAm 仙山艮 E*ordalFubliciddFlaaAsBD虱 ean声33?分PublicFucictionOpenCn(ByYaiCip 脑 StringyByVslusersAmStringyByVklpw 如：Dimm&gStringOnErrorGoTtstrerrmsgSttconn=Nm*ADODE.Coiukectionconn.CormectionTimeout=25conn.Provider-

8、vqlol 磨通”conn.PropertiesCdatfiSQUTCJ),Valu 电=Cip服务器的名字conn.Frcprtias(inititlwatalo 葭V4lua=pub*,库名,conn.Frcip4rtiesatedseciirityn).Value=SSPI,登陆类型conn.Properties(userid*),Value 二 gerxSQL 库名 conn.Propertiesfpasswori17).Value=pw密码I=Provii&r=SQLOLEI)B,1：FersistStcurilyInrt=FslEa：UEerTD=EaLpasEwcr( (

9、i=;Inconn.Connectionstring-sql 匚。血口 penOpanCn-TrueIcorm.Stta=1ThenLiJFlag=TruExitFunctionstrerrmag：mag=cantcwuiectCallMsgBox(jtacvbUKDnl 露ErrorRat牵 connect)addFlExitFunction连接错误消息EndFunctiflii关闭数据库.释放连接 PublicSubcloCn0OnError 旦5 士 N$xtIfcoMi.StateadSt 总 tClom 痛 dThenconn.CloseSetcom=NothinEndSdb皿Pub

10、licFunctionopenE(TyalstrsqlAsString)ksBaolean连接数据库记京一 DimmagAsString(DimrpyAsBoaleanTlJlJI+?.n 匕GC|E与囹的营CoBBUldlClickJPrivateSubConiinaiidl_Click0理=TrimCTextlLText)b 二 TrimCTextE.Text?c=TrimCText3.TextiCallUpenCnQ,瓦 c)Ifad 即=TrueThanMsgBos(：0IT)CallopenKsTselecl*fromjobf)SetEat&Gridl.DataScvirce=rsrs.d?seEndSubPrivateSubCommand2_Click0UnloadM 电EndSubPrivateSubCommand1_Click()a=Trim(Text1.Text)b=Trim(Text2.Text)Hc=Trim(Text3.Text)CallOpenCn(a,b,c)IfaddFlag=TrueThenMsgBox(OK)CallopenRs(sel