欢迎来到天天文库
浏览记录
ID:10551282
大小: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=sqloledb;"_"Netp;_'
2、指明采用IP+端口方式查找SqlServer"DataSource=172.17.21.125,1433;"_"InitialCatalog=hpdata;"_"UserID=user;"_"Passp;_"Encrypt=yes"pub.DefaultDatabase="hpdata"''!!!!!!!!!!!!!!!!ExitSuberrorhandler:DimmsgAsIntegermsg=MsgBox("连接时发生错误:"Err.NumberErr.DescriptionErr.Source"请将此信息发至
3、邮箱",vbOKOnly)EndSub''简单查询得到数据集////////////////////////////////////////////////////////PublicFunctionGetRS(sqlstrAsString)AsADODB.RecordsetOnErrorGoToerrorhandlerCallGetConnectSetGetRS=NeisticSetGetRS.ActiveConnection=Nothingpub.CloseExitFunctionerrorh
4、andler:DimiAsIntegeri=MsgBox(sqlstr":::::::"Err.DescriptionErr.HelpContext,vbOKCancel)EndFunction'同步数据集PublicSubUpdateRS(RsAsADODB.Recordset,OptionalRequerryFlagAsInteger)CallGetConnectissing(RequerryFlag))AndRequerryFlag=1Then''改于2004年2月6日为修除历史记录本客户号查询的修改无法数据同步而设
5、'.Requery12下一页>>>>这篇文章来自..,。'EndIf.ActiveConnection=NothingEndsgBox(strErr.NumberErr.DescriptionErr.Source,vbOKOnly)EndSub'执行无返回结果的sql语句PublicSubCnExecute(ByValQstrAsString,ByRefRecordNumberAsLong,OptionalQRsAsADODB.Recordset)'OnErrorGoToerrorhandlerCallGetConnect
6、pub.ExecuteQstr,RecordNumber,adExecuteNoRecordsIfIsMissing(QRs)ThenQRs.ActiveConnection=pubQRs.RequeryQRs.ActiveConnection=NothingEndIfpub.Closeerrorhandler:temp_i=MsgBox(QstrErr.NumberErr.Description,vbOKOnly)EndSub上一页12>>>>这篇文章来自..,。
此文档下载收益归作者所有