一个离线ado数据管理模块的实现

《一个离线ado数据管理模块的实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一个离线ADO数据管理模块的实现>>教育资源库OptionExplicitPublicpubAsNetemp_iAsInteger''连接数据库PublicSubGetConnect()OnErrorGoToerrorhandler:DimconstrAsStringIfNot(pub.State=0)Thenpub.CloseEndIfpub.CursorLocation=adUseClientpub.ConnectionTimeout=5pub.Open"Provider=sqlo

2、ledb;"_"Netp;_'指明采用IP+端口方式查找SqlServer"DataSource=172.17.21.125,1433;"_"InitialCatalog=hpdata;"_"UserID=user;"_"Passp;_"Encrypt=yes"pub.DefaultDatabase="hpdata"''!!!!!!!!!!!!!!!!ExitSuberrorhandler:DimmsgAsIntegermsg=MsgBox("连接时发生错误:"Err.NumberErr.

3、DescriptionErr.Source"请将此信息发至邮箱",vbOKOnly)EndSub''简单查询得到数据集////////////////////////////////////////////////////////PublicFunctionGetRS(sqlstrAsString)AsADODB.RecordsetOnErrorGoToerrorhandlerCallGetConnectSetGetRS=NeisticSetGetRS.ActiveConnection=N

4、othingpub.CloseExitFunctionerrorhandler:DimiAsIntegeri=MsgBox(sqlstr":::::::"Err.DescriptionErr.HelpContext,vbOKCancel)EndFunction'同步数据集PublicSubUpdateRS(RsAsADODB.Recordset,OptionalRequerryFlagAsInteger)CallGetConnectissing(RequerryFlag))AndReq

5、uerryFlag=1Then''改于2004年2月6日为修除历史记录本客户号查询的修改无法数据同步而设'.Requery12下一页>>>>这篇文章来自..，。'EndIf.ActiveConnection=NothingEndsgBox(strErr.NumberErr.DescriptionErr.Source,vbOKOnly)EndSub'执行无返回结果的sql语句PublicSubCnExecute(ByValQstrAsString,ByRefRecordNumberAsLong,Optional

6、QRsAsADODB.Recordset)'OnErrorGoToerrorhandlerCallGetConnectpub.ExecuteQstr,RecordNumber,adExecuteNoRecordsIfIsMissing(QRs)ThenQRs.ActiveConnection=pubQRs.RequeryQRs.ActiveConnection=NothingEndIfpub.Closeerrorhandler:temp_i=MsgBox(QstrErr.NumberE

7、rr.Description,vbOKOnly)EndSub上一页12>>>>这篇文章来自..，。