一个离线ADO数据管理模块的实现
来源:互联网 发布:windowsxp仿mac桌面 编辑:程序博客网 时间:2024/06/05 10:17
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
技术的渠道
http://dev.csdn.net/article/70/70220.shtm
- 一个离线ADO数据管理模块的实现
- 一个离线ADO数据管理模块的实现
- 利用VC和ADO接口编写一个dll模块实现对数据库数据的处理
- 利用VC和ADO接口编写一个dll模块实现对数据库数据的处理
- webDB 一个简单的数据管理
- ado.net实现一个简单的登陆
- 聊天服务器:Ejabberd 安装与离线转发模块的实现
- 一个不是很通用的数据管理类。
- 基于ArcGIS10.0和Oracle10g的空间数据管理平台四(C#开发)-通用数据管理模块
- 基于ArcGIS10.0和Oracle10g的空间数据管理平台四(C#开发)-通用数据管理模块
- Flex blazeds数据管理的实现和问题
- 元数据管理系统的研究与实现
- 元数据管理系统的研究与实现
- 离线地图的实现
- 一个动态内存管理模块的实现
- 一个简单的Linux内核模块实现
- 一个动态内存管理模块的实现
- 一个实现系统全局热键的模块
- What's clustered index of sql server
- SQL数值类型的一些整理,小TIP.[更新中...]
- 在交叠区域产生文明--谈过程化、对象化
- 捕获异常
- PHP ZipArchive::extractTo()函数.zip文件目录遍历漏洞
- 一个离线ADO数据管理模块的实现
- myeclipse的快捷方式
- OpenSUSE 内核编译教程 (kernel 2.6.x)
- 实现 iSCSI Initiator 的两种方法
- 翻了翻Dreaming in Code
- c++模板
- 直译聊斋.晚霞
- 如何CodeBlocks+wxWidgets+MinGW+STLPort
- Debian / Ubuntu Linux Connect to an iSCSI Volume