denggang1981-CSDN博客

原创 VBA bmp

VBA读写bmp文件

2022-06-12 14:33:04 237

原创 getRecordArray

Private Function getRecordArray(dbConn As DbConnection, newStartRow As Long) As Variant()'Recordset偐傜僙儖揬傝晅偗梡偺2師尦攝楍傪嶌惉'varchar(max)偺僼傿乕儖僪懳墳斉 Dim recArray() As Variant '2師尦攝楍(楍丄峴) Di

2016-02-08 20:29:59 237

原创 RakuTypeTableRecordItem.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuTypeTableRecordItem"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId =

2016-01-01 12:35:47 198

原创 RakuTypeTableRecord.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuTypeTableRecord"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = Fal

2016-01-01 12:35:15 156

原创 RakuTypeTableColumn.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuTypeTableColumn"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = Fal

2016-01-01 12:34:45 161

原创 RakuTypeTable.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuTypeTable"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = FalseAt

2016-01-01 12:34:15 158

原创 RakuTableManger.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuTableManger"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = False

2016-01-01 12:33:36 106

原创 RakuConnection.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuConnection"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = FalseA

2016-01-01 12:33:00 158

原创 RakuArrayTable.cls

VERSION 1.0 CLASSBEGIN MultiUse = -1 'TrueENDAttribute VB_Name = "RakuArrayTable"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = FalseA

2016-01-01 12:32:24 192

原创 RakuUtility.bas

Attribute VB_Name = "RakuUtility"Public Function ActiveShtCellVal(ByVal rowIdx As Integer, ByVal colIdx As Integer) ActiveShtCellVal = Trim(ActiveSheet.cells(rowIdx, colIdx))End Function

2016-01-01 12:30:13 176

原创 RakuCommn.bas

Attribute VB_Name = "RakuCommn"Public Const PYMN_UT_SI_TOOL_USE_DIV = "SI"Public Const CONFIG_SHT_NAME = "tool-config"Public Const RTN_OK = 1Public Const RTN_NG = 8Public Const ForReading =

2016-01-01 12:29:06 221

DBExcelTool

一个共享软件，安装该工具后，可以通过Excel直接查询，添加，删除，更新Oracle等数据库里的数据。是基础数据维护，测试数据制作，测试证据取得便利工具。

2014-06-08

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人