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

原创 2005年05月19日 08:37:00

Option Explicit
Public pubcn As New ADODB.Connection
Dim temp_i As Integer
''连接数据库
Public Sub GetConnect()
   
    On Error GoTo errorhandler:
    Dim constr As String
    If Not (pubcn.State = 0) Then
        pubcn.Close
    End If
       
    pubcn.CursorLocation = adUseClient
    pubcn.ConnectionTimeout = 5
    pubcn.Open "Provider=sqloledb;" & _
           "Network Library=DBMSSOCN;" & _'指明采用IP+端口方式查找Sql Server
           "Data Source=172.17.21.125,1433;" & _
           "Initial Catalog=hpdata;" & _
           "User ID=user;" & _
           "Password=password;" & _
           "Encrypt=yes"
          
    pubcn.DefaultDatabase = "hpdata" ''!!!!!!!!!!!!!!!!
    Exit Sub
errorhandler:
    Dim msg As Integer
    msg = MsgBox("连接时发生错误:" & Err.Number & Err.Description & Err.Source & "请将此信息发至邮箱", vbOKOnly)

End Sub

''简单查询得到数据集////////////////////////////////////////////////////////
Public Function GetRS(sqlstr As String) As ADODB.Recordset
   
    On Error GoTo errorhandler
    Call GetConnect
   
    Set GetRS = New ADODB.Recordset
   
    GetRS.Open sqlstr, pubcn, adOpenStatic, adLockOptimistic
   
    Set GetRS.ActiveConnection = Nothing
   
    pubcn.Close
    Exit Function
errorhandler:
    Dim i As Integer
    i = MsgBox(sqlstr & ":::::::" & Err.Description & Err.HelpContext, vbOKCancel)

End Function
'同步数据集
Public Sub UpdateRS(Rs As ADODB.Recordset, Optional RequerryFlag As Integer)
    Call GetConnect
   
    With Rs
        .ActiveConnection = pubcn
        .Update
        'If (Not IsMissing(RequerryFlag)) And RequerryFlag = 1 Then ''改于2004年2月6日为修除历史记录本客户号查询的修改无法数据同步而设
           ' .Requery
        'End If
        .ActiveConnection = Nothing
    End With
       
    pubcn.Close

End Sub
'执行带有参数对象的查询得到数据集
Public Sub GetRSFromCmd(Cmd As ADODB.Command, str As String, Rs As ADODB.Recordset)
   
    On Error GoTo errorhandler
    Call GetConnect
    If Not (Cmd.State = adStateClosed) Then
        Cmd.Cancel
        Cmd.ActiveConnection = Nothing
    End If
    With Cmd
        .ActiveConnection = pubcn
        .CommandTimeout = 5
        .CommandType = adCmdText
        .CommandText = str
    End With
    If Not (Rs.State = 0) Then
        Rs.Close
    End If
    Rs.Open Cmd, , adOpenStatic, adLockOptimistic
  
    Rs.ActiveConnection = Nothing
   
    With Cmd
        .ActiveConnection = Nothing
    End With
    pubcn.Close
    Exit Sub
errorhandler:
    temp_i = MsgBox(str & Err.Number & Err.Description & Err.Source, vbOKOnly)
   
End Sub

       '执行无返回结果的sql语句      

Public Sub CnExecute(ByVal Qstr As String, ByRef RecordNumber As Long, Optional QRs As ADODB.Recordset)
    'On Error GoTo errorhandler
   
    Call GetConnect
    pubcn.Execute Qstr, RecordNumber, adExecuteNoRecords
   
    If IsMissing(QRs) Then
    QRs.ActiveConnection = pubcn
    QRs.Requery
    QRs.ActiveConnection = Nothing
    End If
    pubcn.Close
errorhandler:
   temp_i = MsgBox(Qstr & Err.Number & Err.Description, vbOKOnly)

End Sub

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

一个离线ADO数据管理模块的实现     选择自 jaopen 的 Blog 关键字  一个离线ADO数据管理模块的实现出处    Option Explici...
  • skyremember
  • skyremember
  • 2009年02月22日 12:03
  • 546

如何在App中实现IM功能之三快速实现离线消息推送模块——箭扣科技Arrownock

如何在App中实现IM功能 之三 快速实现离线消息推送模块   推送是社交功能里最常见的功能之一,许多使用IM++平台的开发者都会用到,本节我们将为大家带来如何使用IM++平台快速实现离线推送。 使用...
  • nigelxuxuxu
  • nigelxuxuxu
  • 2015年10月27日 10:59
  • 1675

Node.js第三方模块的离线安装

最近学习下Node.js的开发,不知道在企业应用中,大家希望Node.js能够解决一个怎样的问题?我这边的项目是已经现成一个C/S架构的.net开发的项目,现在希望能够开发对应得B/S版本,同时我有个...
  • laofuzhou_1977
  • laofuzhou_1977
  • 2013年12月06日 09:10
  • 5847

建立ADO的详细步骤

直接通过ADO操作Access数据库   ADO(Active Data Object,活动数据对象)实际上是一种基于COM(组件对象模型)的自动化接口(IDispatch)技术,并以OLE DB(对...
  • grassfox
  • grassfox
  • 2006年08月07日 14:35
  • 668

C++之MFC数据管理类CArray与CPtrList

MFC的数组类可以存放任何数据类型,MFC数组类创建的对象可以根据需要动态地增大或减小,数组的起始下标是0,而上限可以是固定的,也可以随着元素的增加而增加,数组在内存中的地址仍然是连续分配的。在使用之...
  • cqhaotian
  • cqhaotian
  • 2017年08月28日 21:54
  • 228

【分享】一个通用强大的主数据管理系统(架构设计讲解及源码下载)

转载  http://www.cnblogs.com/kudy/archive/2011/11/07/2237802.html 这篇文章要讲主数据管理系统(Master Data M...
  • y19910825
  • y19910825
  • 2016年12月16日 17:21
  • 473

百度地图离线API开发(真正的离线开发)

公司现在做的一个项目本来用的是google离线地图,但是发现谷歌的地图数据很久没更新数据了,中国的城市发展这么快,好多地方地图和现实都对不上了。发现百度地图数据更新挺快的(呵呵,毕竟是国产的吗),最后...
  • dkm8873
  • dkm8873
  • 2015年11月03日 18:02
  • 8177

大型信息化建设标准基础数据管理平台【商业版,铜墙铁壁】

整合公司3个网站后台管理子系统的经验总结 - 实现多系统的单点登录(ASP.NET + ASP) 2012-12-05 21:49 by 通用C#系统架构, 1010 阅读, 5 评论, 收...
  • zkn_CS_DN_2013
  • zkn_CS_DN_2013
  • 2013年11月26日 10:05
  • 1346

com组件介绍(com组件包含ADO)

ADO一直就是一个COM组件。 因为ADO是COM的,所以C++用的ADO和VB用的ADO是一个东西,不会说这个ADO的版本是C++的那个ADO是VB的这类。 采用面向对象的设计方法我们可以很容...
  • THISISPAN
  • THISISPAN
  • 2012年04月02日 12:09
  • 1111

HTML5离线功应用能详解

简介: Web2.0 技术鼓励个人的参与,每个人都是 Web 内容的撰写者。如果 Web 应用能够提供离线的功能,让用户在没有网络的地方(例如飞机上)和时候(网络坏了),也能进行内容撰写,等到有网络的...
  • it_man
  • it_man
  • 2013年03月07日 10:12
  • 4460
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个离线ADO数据管理模块的实现
举报原因:
原因补充:

(最多只允许输入30个字)