欢迎来到天天文库
浏览记录
ID:10605501
大小:54.00 KB
页数:3页
时间:2018-07-07
《一个离线ado数据管理模块的实现》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、一个离线ADO数据管理模块的实现>>教育资源库OptionExplicitPublicpubAsNetemp_iAsInteger''连接数据库PublicSubGetConnect()OnErrorGoToerrorhandler:DimconstrAsStringIfNot(pub.State=0)Thenpub.CloseEndIfpub.CursorLocation=adUseClientpub.ConnectionTimeout=5pub.Open"Provider=sqlo
2、ledb;"_"Netp;_'指明采用IP+端口方式查找SqlServer"DataSource=172.17.21.125,1433;"_"InitialCatalog=hpdata;"_"UserID=user;"_"Passp;_"Encrypt=yes"pub.DefaultDatabase="hpdata"''!!!!!!!!!!!!!!!!ExitSuberrorhandler:DimmsgAsIntegermsg=MsgBox("连接时发生错误:"Err.NumberErr.
3、DescriptionErr.Source"请将此信息发至邮箱",vbOKOnly)EndSub''简单查询得到数据集////////////////////////////////////////////////////////PublicFunctionGetRS(sqlstrAsString)AsADODB.RecordsetOnErrorGoToerrorhandlerCallGetConnectSetGetRS=NeisticSetGetRS.ActiveConnection=N
4、othingpub.CloseExitFunctionerrorhandler:DimiAsIntegeri=MsgBox(sqlstr":::::::"Err.DescriptionErr.HelpContext,vbOKCancel)EndFunction'同步数据集PublicSubUpdateRS(RsAsADODB.Recordset,OptionalRequerryFlagAsInteger)CallGetConnectissing(RequerryFlag))AndReq
5、uerryFlag=1Then''改于2004年2月6日为修除历史记录本客户号查询的修改无法数据同步而设'.Requery12下一页>>>>这篇文章来自..,。'EndIf.ActiveConnection=NothingEndsgBox(strErr.NumberErr.DescriptionErr.Source,vbOKOnly)EndSub'执行无返回结果的sql语句PublicSubCnExecute(ByValQstrAsString,ByRefRecordNumberAsLong,Optional
6、QRsAsADODB.Recordset)'OnErrorGoToerrorhandlerCallGetConnectpub.ExecuteQstr,RecordNumber,adExecuteNoRecordsIfIsMissing(QRs)ThenQRs.ActiveConnection=pubQRs.RequeryQRs.ActiveConnection=NothingEndIfpub.Closeerrorhandler:temp_i=MsgBox(QstrErr.NumberE
7、rr.Description,vbOKOnly)EndSub上一页12>>>>这篇文章来自..,。
此文档下载收益归作者所有