vb6.0连接远程sql数据库的模块以及使用实例

《vb6.0连接远程sql数据库的模块以及使用实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Vb6.0连接sql数据库的模块以及使用实例打开VB6.0,新建工程SQL_data,新建一个EXE，并添加一个模块。如图一：添加引用和部件（如下两图）蓝色的两个，是要选中打勾的。注意，一个是“引用”，一个是“部件”。             二：添加一个模块Data_Sql，并把图下面的复制粘贴到模块中。             '连接SQL的模块PublicconnAsADODB.ConnectionPublicrsAsADODB.RecordsetPublicaddFlagAsBoolean     '声明部分PublicFu

2、nctionOpenCn(ByValCipAsString,ByValusersAsString,ByValpwAsString)AsBoolean'连接模块填写数据库等信息DimmagAsStringOnErrorGoTostrerrmagSetconn=NewADODB.Connectionconn.ConnectionTimeout=25conn.Provider="sqloledb"conn.Properties("datasource").Value=Cip    '服务器的名字conn.Properties("initi

3、alcatalog").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=;InitialCatalog=pub

4、s;DataSource=127.0.0.1"   '如果不用这个模块也行可以，这一句便是常用的引擎。'conn.ConnectionString=sql              conn.OpenOpenCn=TrueIfconn.State=1ThenaddFlag=TrueExitFunctionstrerrmag:    mag="Datacan'tconnect"    CallMsgBox(mag,vbOKOnly,"Error:Dataconnect")    addFlag=False    ExitFunctio

5、n     '连接错误消息EndFunction'关闭数据库，释放连接PublicSubcloCn()OnErrorResumeNextIfconn.State<>adStateClosedThenconn.CloseSetconn=NothingEndSubPublicFunctionopenRs(ByValstrsqlAsString)AsBoolean     '连接数据库记录集DimmagAsStringDimrpyAsBooleanOnErrorGoTostrerrmag    Setrs=NewADODB.Records

6、et    IfaddFlag=FalseThenrpy=True    Withrs    .ActiveConnection=conn    .CursorLocation=adUseClient    .CursorType=adOpenKeyset    .LockType=adLockOptimistic    .Openstrsql    EndWith    addFlag=True    openRs=True    'End       '将记录集给rs    ExitFunctionstrerrmag:    m

7、ag="datanotconnect"    CallMsgBox(mag,vbOKOnly,"error:connect")    openRs=False    End    'ExitFunction'连接错误消息EndFunctionPublicSubcloRs()OnErrorResumeNextIfrs.State<>adStateClosedThenrs.CloneSetrs=Nothing'释放记录集EndSub把它放入到模块文件中，以备调用。三：下面两图是模块的代码图片和窗体的代码图片      PrivateSu

8、bCommand1_Click()a=Trim(Text1.Text)b=Trim(Text2.Text)c=Trim(Text3.Text)CallOpenCn(a,b,c)IfaddFlag=TrueThenMsgBox("OK"