vb 数据库连接类.docVIP

vb 数据库连接类 本文由mornwoo贡献 dim goConnect As New DBConnect goConnect.dbProductType = 数据库产品类别(0:oracle;1:sql server;2,access) goConnect.dbProductVersion = 数据库产品版本 goConnect.dbServerName = 数据库服务器(计算机名或IP)，oralce,access不设置此项 goConnect.dbDataBaseName = oracle的net服务名，sql server的数据库名，access的含路径数据库名 goConnect.dbUserName = goConnect.dbPassWord = goConnect.OpenConnect（） 打开联接，成功返回 true **************** 名称 fun_ReturnValueNew 功能 取得查询语句中第一行第一列的数据 参数 sSql 查询语句,fun_ReturnValueNew 是返回值 ***************** **************** 名称 fun_GetMultiValue 功能 取得查询语句中第一行的数据 参数 sSql 查询语句,fun_GetMultiValue=1 ,表示取到数据，这时返回值分别是:goConnect.gcTmp(1),goConnect.gcTmp(2)，…… ***************** **************** 名称 fun_GetItem 作者　　 Morn Woo 于 2007.8.11 功能 取出全部第一个字段的值，形成一个字符串。 参数 sSql 查询语句 返回 生成的字符串 ***************** **************** 名称 Fun_NextVal 作者 Morn Woo 功能 获取序列的下一个值 参数 序列名 返回 序列的下一个值 ***************** **************** 名称 fun_ExeSqlNotNull 作者 Morn Woo 功能 检测语句查询的数据是否为空 参数 sSql,sql语句;bCheckType,0 检查查询的结果是否不为空，1 检查结果是否大于零 返回 真假 ***************** **************** 名称 Fun_SetSql 作者　　 morn Woo 功能 通用数据分页sql生成函数 参数 sTableName 数据源（表或视图或者查询语句）； oFlg 需要设定的表格对象; sWhereItem 查询的where条件表达式 sordby 排序字符串;iPage 察看的页码,默认 1;iPerPageRows 每页行数 默认30; lAllRows 用来返回总行数;lRows 用来返回当前页的起始行数,lPages 用来返回总页数 ***************** **************** 名称 fun_ReturnValueNew 功能 取得查询语句中第一行第一列的数据 参数 sSql 查询语句,fun_ReturnValueNew 是返回值 ***************** 名称 Fun_GetServerDate 作者　　 Morn Woo 于 2007.7.25 功能 获取服务器的日期YYYY-MM-DD 返回 服务器的当前时刻的时间 名称 Fun_GetServerTime 作者　　 Morn Woo 于 2007.7.25 功能 获取服务器的日期时间YYYY-MM-DD HH24:mi:SS 返回 服务器的当前时刻的日期时间 fun_GetTableFirstRow ’打开查询语句，取出第一行数据 ，取出成功返回真 fun_Field 取得fun_GetTableFirstRow获得的数据，参数是字段名 名称 fun_NotZero 作者　　 MornWoo2010816 功能 测定查询语句的