一个离线ADO数据管理模块的实现
来源:互联网 发布:怎么打鼓谱软件 编辑:程序博客网 时间:2024/05/19 21:43
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数据管理模块的实现
- 利用VC和ADO接口编写一个dll模块实现对数据库数据的处理
- 利用VC和ADO接口编写一个dll模块实现对数据库数据的处理
- webDB 一个简单的数据管理
- ado.net实现一个简单的登陆
- 聊天服务器:Ejabberd 安装与离线转发模块的实现
- 一个不是很通用的数据管理类。
- 基于ArcGIS10.0和Oracle10g的空间数据管理平台四(C#开发)-通用数据管理模块
- 基于ArcGIS10.0和Oracle10g的空间数据管理平台四(C#开发)-通用数据管理模块
- Flex blazeds数据管理的实现和问题
- 元数据管理系统的研究与实现
- 元数据管理系统的研究与实现
- 离线地图的实现
- 一个动态内存管理模块的实现
- 一个简单的Linux内核模块实现
- 一个动态内存管理模块的实现
- 一个实现系统全局热键的模块
- asp.net中将Excel文件(.xls)绑定到DataGrid!
- ASP.NET上传图片时,产生预览
- Boost库在XP+Visual C++.net中的安装
- 动作!在构造函数之前及之后。。。
- CDHtmlDialog类的使用心得
- 一个离线ADO数据管理模块的实现
- 个人编程犯过的错误
- showModelessDialog()使用详解
- java 英文站点
- 增强的CHtmlView类,在视图里处理HTML元素事件和交换数据
- Use Conditional attribute in C#
- 解析HTML的类
- C++ Coding Standards:Summary of Summaries-编码风格
- 理解join- -