使用Http通道,远程连接数据库技术说明.doc

数据库Http远程连接技术说明
7/28/2013
本人通过半年的努力，开发完成了此项技术

在当前流行的web浏览模式的情况下，仍然需要对客户端的个性化体验以及大批量数据的处理采用非web模式。数据库Http连接技术打包封装了internet数据库操作的各项功能，采用多层防护保护数据库，同时客户端兼容数据库局域网操作的adodb方式，可以满足internet大批量数据传送以及客户端个性化开发的要求。

一、数据库Http远程连接技术实现功能：
1. 用户能够像使用局域网数据库一样操作internet数据库。(适用各类数据库，如mysql, mssql server ,access等)
2. 数据库在internet上是屏蔽的，他是通过IIS服务，采用特定的Http管道与用户端建立连接。多道防护可以有效保障数据库的安全性。
3. 数据的发送接受采用分段技术，以整体虚拟，所需为实的方式满足用户的数据需求，适应了internet通讯的复杂环境。
4. 用户的局域网操作和internet操作集成在一起，以同一个组件和同样的指令实现，可以在2种操作之间随时切换。
5.服务端提供了aspx二次开发的接口。
6. 现有的C/S结构软件，使用数据库Http连接模块，可以增加internet操作功能。

二、与web service的关系（数据库Http远程连接技术简称Dbnet）
相同点：都是基于net framework以及IIS的架构，通过http通道实现数据通讯。
区别：
1. Web service以XML数据格式传送数据，具有通用标准，但数据的冗余度较大；Dbnet采用特定的数据结构，以stream的方法传送数据，数据较为精简。
2.Web service传送的是数据实体，Dbnet在数据量大的时候可以采用数据对象的虚拟化来传送数据（即传送数据对象的部分数据，但用户看到的是整个数据对象）。
3. Web service没有对数据库的操作功能有专门的定制；Dbnet定制了数据库操作的各项功能，用户端可以直接调用，同时还兼容adodb的局域网数据库的操作方法。
4. 客户端使用Web service，引用的是Web service对象，需进行编译；客户端使用DBnet组件对象，引用的是网址，不需要编译。

三、DBnet组件的主要对象（数据库Http远程连接技术简称Dbnet）

主要对象
功能与描述
Hpserver
运行在服务器iis上，采用Http协议，为远程用户与本地数据库建立起通讯连接。
以aspx程序引用Hpserve对象，客户端访问aspx页面，实现相互通讯。
DatabaseEx
操作功能可类似于adodb.connection
使用在客户端。数据库连接对象，可以连接局域网数据库，也可以与web服务上的aspx页面，从而访问internet数据库。
RecordsetEx
操作功能可类似于adodb.recordset,不能对数据集编辑。
使用在客户端。以DatabaseEx对象查询数据库，得到RecordsetEx记录集对象，数据集只读不能编辑。
RecordsetByteOpt

操作功能可类似于adodb.recordset，可以对数据集编辑。
使用在客户端。以DatabaseEx对象查询数据库，得到RecordsetByteOpt记录集对象。可以对该记录集进行新增，修改。处于internet通讯时，对含有大数据字段(image,bytes)的记录集需要采用小批量数据传送方式，用此对象获得。
HpFields
记录集所有字段的属性定义容器。
HpException
异常处理类，继续S.webException异常类

HpServer对象
运行在服务器iis上，采用Http协议，为远程用户与本地数据库建立起通讯连接。
以aspx程序引用Hpserve对象，客户端访问aspx页面，实现相互通讯。

属性
属性名称
类型
描述
BatchTraceTimeOut_millSecond
integer
客户端在执行数据库事务中，服务器等待客户端的响应时间，超过此数值，批处理事务失效（防止网络通讯产生异常），默认2分钟。单位：毫秒。
ConnectionString
String
与数据库连接的字符串。
字符串设置与ADODB. ConnectionString设置类似。
Connection
ADODB.Connection
只读，返回ADODB.Connection对象
CompressedData
integer
与客户端internet通讯时，是否采用数据压缩,以便减少数据流量。默认是不压缩。
0：不压缩；1：压缩。
CommandTimeout_second
integer
数据库命令超时时间。单位：秒
ConnectTimeout_second
integer
数据库连接超时时间。单位：秒
CursorLocationType
ADODB.CursorLocationEnum
枚举
数据库记录集的位置类型。
默认CursorLocationEnum.adUseServer
DefaultOneSendRecordCount_Comm
integer
对于普通记录集 ，单次向客户端发送的记录数量。最小10
DefaultOneSendRecordCount_Bytes
integer
对于含字段(bytes(),image)的大容量数据的记录集，单次向客户端发送的记录数量。最小3
DefaultRecordCacheSize_Comm
integer
打开普通记录集 ，一次读到内存中的记录数量
DefaultRecordCacheSize_Bytes
integer
打开含字段(bytes(),image)的大容量数据的记录集 ，一次读到内存中的记录数量
InternetUserPort
String
1.与客户端通讯的接口号，客户端的UserPort须与服务端的UserPort一致，才能连接。
2.接口号字符串最多12位，英文字母或者数字，只能在ASCII码范畴内。
IsClientLoginOk
Boolean
用户端的登录信息是否通过验证。
默认：true；不需要做自定义的验证。如果设定false；服务端可以调用事件ClientLogin，开发自定义验证函数。确认OK，再把IsClientLoginOk设定true。
IsEndTrans
Boolean
数据库事务状态。
False: 事务在进行中；True: 事物不在运行。
IsShowErrToFile
Boolean
异常是否写入日志文件。默认: False
IsShowErrMsgBox
Boolean
异常是否弹出消息框。默认: False
LinkDbType
emDbLinkType
枚举
连接的数据库类型。
emDbLinkType 枚举类:
SqlServerUsing = 0 OdbcUsing = 1
AccessUsing = 2 OracleUsing = 3
MySqlUsing = 4
LogFilePath
String
日志文件路径
LogFileName
String
日志文件名称
State
ADODB.ObjectStateEnum
枚举
当前与数据库联络的状态。i

方法
方法名称
特征
描述
RunClientRequest
功能
启动客户端应答程序
语法
Function RunClientRequest(ByVal objRequest As System.Web.HttpRequest, ByVal objResponse As System.Web.HttpResponse) As Boolean
参数
objRequest: 收到客户端信息的HttpRequest对象
objResponse: 向客户端发送信息的HttpResponse对象
返回
True: 执行成功
Flase:执行失败
OpenConn
功能
使用已经设置的连接字符串，连接数据库。
语法
Function OpenConn () As Boolean
参数

返回
1.True: 数据库连接成功
2.Flase:执行失败.
CloseConn
功能
关闭数据库连接
语法
Function CloseConn() As Boolean
参数

返回
1.True: 数据库连接已经关闭
2.Flase:执行失败.
Register
功能
注册使用
语法
Sub Register(ByVal ThisRegister As Object)
参数
ThisRegister:注册对象
返回

事件
事件名称
特征
描述
ErrHappened
功能
程序执行异常，引发异常处理事件
函数
Event ErrHappened(ByVal objException As Object, ByVal e As EventArgs)
参数
objException:继承System.Exception
e: 参数集
返回

ClientCommand
功能
服务器接收到的用户端自定义命令
语法
Event ClientCommand(ByVal CommandName As String, ByVal Parameter1 As String, ByVal Parameter2 As String, ByRef strReturnValue As String)
参数
CommandName: 接收到的用户端自定义命令号
Parameter1: 用户端自定义参数1
Parameter2: 用户端自定义参数2
strReturnValue: 服务端执行完事件，向用户端反馈的信息
返回
strReturnValue: 服务端执行完事件，向用户端反馈的信息
ClientLogin
功能
当IsClientLoginOk=false,用户登录是将引发此事件。服务器可根据接收到的用户登录信息开发自定义程序进行用户验证。验证成功，，引用此事件，可以自定义用户登录验证，进一步保障服务端的数据库安全。
语法
Event ClientLogin(ByVal UserNum As String, ByVal UserPassword As String, ByRef isClientLoginOk As Boolean)
参数
UserNum: 用户登录号
UserPassword: 用户登录密码
isClientLoginOk:用户信息验证的结果
返回
isClientLoginOk: 用户信息验证的结果。
返回 True: 程序自动设定IsClientLoginOk=true；
返回 False: 程序自动设定IsClientLoginOk=false。

DataBaseEx对象
操作功能可类似于adodb.connection。
使用在客户端。数据库连接对象，可以连接局域网数据库，也可以与web服务上的aspx页面，从而访问internet数据库。

属性.
属性
类型
描述
ConnectionString
String
与局域网数据库连接的字符串。
字符串设置与ADODB. ConnectionString设置一样。
在internet连接时，此项不起作用。
Connection
ADODB.Connection
ADODB.Connection对象。
在internet连接时， 返回nothing。
ConnectTimeout_second
integer
局域网数据库连接超时时间。单位：秒。
在internet连接时，此项不起作用。
CommandTimeout_second
integer
局域网数据库命令超时时间。单位：秒。
在internet连接时，此项不起作用。
CursorLocationType
ADODB.CursorLocationEnum
局域网数据库初始化记录集的游标类型。
默认adUseServer
在internet连接时，此项不起作用。
DefaultRecordCacheSize
integer
打开记录集，一次读到内存中的数量.
1.局域网CursorLocationType= adUseServer时，此项有效。
2.局域网CursorLocationType= adUseClient时,记录全部读到用户端，此项不起作用。
3.在internet通讯时，此项不起作用。
InternetUrl
String
连接的网页地址，在Internet连接时使用。
局域网通讯时，此项不起作用。
InternetUserPort
String
1.与web通讯的接口号，客户端的UserPort须与服务端的UserPort一致，才能连接。
2.接口号字符串最多12位，英文字母或者数字，在ASCII码范畴内，不允许有中文字符。
3.采用internet的通讯方式时，需要设置此接口号。局域网通讯时，此项不起作用。
InternetSessionTimeOut_minute
integer
客户端响应的失效时间。如超过失效时间向服务端发送信息，服务端将重新建立客户对象。失效时间不能大于服务端session的失效时间，在Internet连接时使用。
局域网通讯时，此项不起作用。
InternetRequestTimeOut_millsecond
integer
请求发出的最长响应时间，超出退出请求，单位：毫秒
局域网通讯时，此项不起作用。
IsEndTrans
Boolean
数据库批处理事务状态.
False:事务在进行中；True：事物不在运行。
IsShowErrMsgBox
boolean
出现异常时，是否弹出消息提示画面。
多为程序开发调试时使用。
默认：false
IsShowErrToFile
Boolean
异常是否写入文件
默认:false
LinkCommucationType
CommucationType
枚举
数据库通讯方式，选择采用局域网方式或者internet方式。
CommucationType枚举类:
LanCommucation = 0
InternetCommucation = 1
LinkDbType
emDbLinkType
枚举

连接的数据库类型
emDbLinkType枚举类:
SqlServerUsing = 0
OdbcUsing = 1
AccessUsing = 2
OracleUsing = 3
MySqlUsing = 4
LogFilePath
String
日志文件路径
LogFileName
String
日志文件名称
Number
integer
自动产生的编号，每个连接对象的编号不一样。
State
ADODB.ObjectStateEnum
当前数据库操作状态。
在internet连接时，此项不起作用。

方法
方法名称
特征
描述
BeginTrans
功能
开始事务，后续命令逐个执行
语法
Function BeginTrans(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 事务开启成功
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException,不会返回执行结果。
BeginTrans_InternetSql
功能
开始事务，后续命令可以批次执行
局域网连接时，等同BeginTrans；Internet连接时，后续命令可以批次执行，以减少与服务端的通讯次数。
语法
Function BeginTrans_InternetSql(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选,默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 事务开启成功
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
CloseConn
功能
断开数据库的通讯连接
语法
Function CloseConn(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 连接关闭成功
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
ConncetSQ
功能
使用传入的连接字符串 ，建立数据库通讯连接。
在internet连接时，此项不起作用。
语法
Function ConncetSQ(ByVal strConn As String, Optional ByVal isThrowExp As DBnet.ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
1.strConn: 连接字符串，方式类似于Adodb.Connection. ConnectionString
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 连接成功
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
CommitTrans
功能
事务确认执行，完成后关闭事务。必须与BeginTrans配套使用。
语法
Function CommitTrans(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True:事务执行完成
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
CommitTrans_InternetSql
功能
事务全部执行，完成后关闭事务。必须与BeginTrans_InternetSql配套使用。
语法
Public Function CommitTrans_InternetSql(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 事务命令全部通过验证并完成执行.
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
Execute
功能
1.执行一条SQL语句对数据库的操作，如 insert, update, delete
语法
Function Execute(ByVal strSql As String, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 命令执行成功.
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
Execute_Array
重载
功能
1.同时处理多个SQL执行命令(单次最多4个sql文),
2.在internet操作时，多个SQL命令一起执行,可以减少通讯次数。
语法
Execute_Array(ByVal strSql0 As String, ByVal strSql1 As String, Optional ByVal strSql2 As String = "", Optional ByVal strSql3 As String = "", Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
strSql0: 一条SQL语句
strSql1: 一条SQL语句
strSql2: 可选，一条SQL语句
strSql3: 可选， 一条SQL语句
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 命令执行成功.
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
Execute_Array
重载

功能
1.同时处理多个SQL执行命令(单次sql语句数量没有限制)
2.在internet操作时，多个SQL命令一起执行,可以减少通讯次数。
语法
Function Execute_Array(ByVal arrSql() As String, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
arrSql(): SQL语句数组，数组下限从0开始
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 命令执行成功.
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
Execute_Array_WholeBatch
重载
功能
1.整个事务一次提交单独完整运行，已经包含（beginTrans ,SQL语句和CommitTrans命令）,最多包括4个SQL语句. 如果SQL语句验证失败,自动执行Rollback.
2.在internet操作时,整个事务一次发送提交执行,可以减少通讯次数.
语法
Function Execute_Array_WholeBatch(ByVal strSql_0 As String, ByVal strSql_1 As String, Optional ByVal strSql_2 As String = "", Optional ByVal strSql_3 As String = "", Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
strSql0: 一条SQL语句
strSql1: 一条SQL语句
strSql2: 可选，一条SQL语句
strSql3: 可选，一条SQL语句
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 命令执行成功.
2.参数isThrowExp= NoThrow，执行失败做Rollback处理，返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败做Rollback处理，抛出异常类HpException，不会返回执行结果。
Execute_Array_WholeBatch
重载
功能
1.整个事务一次提交单独完整运行，已经包含（beginTrans ,SQL语句和CommitTrans命令）,采用SQL数组，可以包括无数个SQL语句. 如果SQL语句验证失败,自动执行Rollback.
2.在internet操作时,整个事务一次发送提交执行,可以减少通讯次数.
语法
Function Execute_Array_WholeBatch(ByVal arrSql() As String, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
arrSql(): SQL语句数组，数组下限从0开始
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 命令执行成功.
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
ExecuteEx
功能
执行SQL语句对数据库的操作，如 select ,返回RecordsetEx数据集对象
语法
Function ExecuteEx(ByVal strSql As String, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As RecordsetEx
参数
strSql: ‘select’ SQL语句
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.执行成功, 返回RecordsetEx数据集对象。
2.参数isThrowExp= NoThrow，执行失败返回nothing，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
ExecuteEx_Array

功能
1.使用多个sql文,同时获取多个RecordsetEx()数据集对象. 单次最多5个sql文
2.返回RecordsetEx()数组
3.在internet操作时, 一次获取多个数据集, 减少通讯次数。
语法
Function ExecuteEx_Array(ByVal strSql0 As String, ByVal strSql1 As String, Optional ByVal strSql2 As String = "", Optional ByVal strSql3 As String = "", Optional ByVal strSql4 As String = "", Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As RecordsetEx()
参数
arrSql(): SQL语句数组，数组下限从0开始
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.执行成功，返回RecordsetEx()数据集对象数组，数组下限从0开始。
2.参数isThrowExp= NoThrow，执行失败返回nothing，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
ExecuteExBinary
功能
1.执行SQL语句对数据库的操作，如 select ,返回RecordByteOpt数据集对象。
2.需要对含有字段（byte() ,image）的数据库表单进行新增、修改时，由于无法采用SQL语句，采用此对象进行数据表记录的新增、修改。
3.对于存在字段（byte() ,image）,有大容量数据的记录集，在internet操作时，为防止网络堵塞，可采用此命令获取记录集；在局域网操作时，此命令等同ExecuteEx的作用
语法
ExecuteExBinary(ByVal strSql As String, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As RecordByteOpt
参数
strSql: ‘select’ SQL语句
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.执行成功，返回RecordByteOpt数据集对象。
2.参数isThrowExp= NoThrow，执行失败返回nothing，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
GetLastErr
功能
程序出现异常后，得到HpException异常对象
语法
Function GetLastErr() As HpException
参数

返回
异常类HpException
Internet_SetUserLogin
功能
可选项。 Internet通讯时，为了提高安全等级，用户登录信息绑定到数据库连接对象，在服务器端开发自定义程序进行用户登录认证。
语法
Sub Internet_SetUserLogin(ByVal UserNum As String, ByVal UserPassword As String)
参数
UserNum: 用户号
UserPassword: 用户密码
返回
Boolean
Internet_SetServeUserCmd
功能
在开发自定义的程序时使用。用户向服务器端发出自定义命令。服务器端可开发自定义程序来响应用户的命令。
语法
Function Internet_SetCommandToServer(ByVal CommdName As String, ByVal Parameter1 As String, ByVal Parameter2 As String) As String
参数
CommdName:自定义的命令名称
Parameter1: 向服务端传送的参数1
Parameter2: 向服务端传送的参数2
返回
服务端处理的结果
OpenConn
功能
使用已经设置的连接字符串，建立数据库通讯连接
语法
Function OpenConn(Optional ByVal isThrowExp As DBnet.ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 连接成功
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
OpenSchema
功能
从提供者中获取数据库的纲要信息,例如显示数据库的所有Tables，返回RecordsetEx数据集对象
语法
Function OpenSchema(ByVal enmType As ADODB.SchemaEnum, Optional ByVal Restrictions As Object = Nothing, Optional ByVal SchemaID As Object = Nothing, Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As RecordsetEx
参数
enmType: 所要运行的纲要查询类型ADODB.SchemaEnum
Restrictions: 可选, 指出每个QueryType选项的查询限制条件数组
SchemaID: 可选，定义提供者纲要查询的GUID。如果QueryType设置为adSchemaProviderSpecific，则需要该参数，否则不使用它。
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.执行成功，返回RecordsetEx数据集对象。
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
RollbackTrans
功能
事务取消
语法
Function RollbackTrans(Optional ByVal isThrow As ThrowExp = ThrowExp.ThrowErr) As Boolean
参数
isThrowExp: 可选，默认值(ThrowErr)，程序出现异常会抛出。
返回
1.True: 事务命令全部取消
2.参数isThrowExp= NoThrow，执行失败返回Flase，异常信息可用函数GetLasetErr获取。
3.参数isThrowExp= ThrowErr，执行失败抛出异常类HpException，不会返回执行结果。
TransPartSend_Internet
功能
事务操作过程中，把前面的命令集中在一起提交验证。
必须在BeginTrans_InternetSql 和CommitTrans_InternetSql中间使用，否则无效。
语法
Function TracePartSend_Internet(Optional ByVal isThrow As Throw