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

1、打開VB6.0，新建工程SQL_data,新建一個EXE,并添加一個模塊。如圖一：添加引用和部件（如下兩圖）藍色的兩個，是要選中打勾的。注意，一個是引用”，一個是部件”。:添加一個模塊Data_Sql,并把圖下面的復(fù)制粘貼到模塊中。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日巴宜設(shè)置為啟動e工程 1 屆性值），遵加類模塊（U） 聞添加用尸控件&）回添加屬性頁貓?zhí)砑佑檬臋n添加文件他）一.昌打ER.v 可連接的國）隱藏 Qi）連接SQL的模塊PublicconnAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicaddFlagAsBoolean聲明部分PublicFunctionOpenCn(ByVa

3、lCipAsString,ByValusersAsString,ByValpwAsString)AsBoolean連接模塊填寫數(shù)據(jù)庫等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider=sqloledbconn.Properties(datasource).Value=Cip服務(wù)器的名字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 后智沙區(qū) 1：?。?！口，0關(guān)閉數(shù)據(jù)庫，釋放連接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把它放入到模塊文件中，以備調(diào)用。卜面兩圖是模塊的代碼圖片和窗體的代碼圖片連接數(shù)據(jù)庫記錄集白亡太

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服務(wù)器的名字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關(guān)閉數(shù)據(jù)庫.釋放連接 PublicSubcloCn0OnError 旦5 士 N$xtIfcoMi.StateadSt 總 tClom 痛 dThenconn.CloseSetcom=NothinEndSdb皿Pub

10、licFunctionopenE(TyalstrsqlAsString)ksBaolean連接數(shù)據(jù)庫記京一 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