一个离线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

基于ArcGIS10.0和Oracle10g的空间数据管理平台二(C#开发)-登录功能模块

我的新浪微博:http://weibo.com/freshairbrucewoo。        欢迎大家相互交流,共同提高技术。         上一篇文章把整个系统的框架和功能简单介绍了一下,...

一个数据管理菜单带窗口

  • 2014年01月03日 01:07
  • 23KB
  • 下载

c#做的一个实用性的数据管理工具

  • 2014年10月30日 21:43
  • 3.49MB
  • 下载

webDB 一个简单的数据管理

随着Internet的迅速发展,非凡是World Wide Web的出现和广泛使用,使人们通过Internet发布、搜索、获取信息变得更加轻易和方便。而作为存放和处理大量数据的数据库同Web的结合,更...

一个小型数据管理系统

  • 2008年12月30日 21:33
  • 1.69MB
  • 下载

建立一个全数据管理的分析平台,该如何落实?

数据管理平台可以通过报表或者BI模块来搭建,站在项目实施的角度,可以从技术也业务两个层面来考虑。本文主要讲述了如何建立一个全数据管理的分析平台。...
  • c_trek
  • c_trek
  • 2017年03月23日 09:29
  • 2424
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个离线ADO数据管理模块的实现
举报原因:
原因补充:

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