VBA代码宝- 代码库商店

whf123456

我安装后找不到代码库，还有这里有个密码是什么？VBAproject密码

jhm1982

11qeqwrwerwrew

mxscgwh

正在学习中

jxwfz740724

先来看看，留个记号。

mxscgwh

谢谢！！！！！！！！！！！！！！！！！！

wk703

学习学习学习

shandongdxl

最近做数据库导表比较多，干脆自己封装了一个函数，相对来说感觉制表简单了很多，欢迎大家交流

1. Function SQLreturn(SQLlinkStr As String, SQLstr As String, KeyArr As Variant, RecordArr As Variant)
   
2.     '/******************************************/
   
3.     '/参数列表：

复制代码

以下是调用本函数的一个简单示例：

1. Sub test()
   
2.    
   
3.     '/******************************************/
   
4.     '/参数列表： 1.SQL连接字符串 SQLlinkStr
   
5.     '/2.SQL语句 SQLstr
   
6.     '/3.提取字段数组 KeyArr,必须为字符串数组，长度等于需要的关键字个数
   
7.     '/4.记录集数组 RecordArr,必须为二维数组
   
8.     '/
   
9.     '/功能说明：
   
10.     '/该函数是为了操作数据库，需要提供以上几个参数，返回值就是记录集数组，请自行选择写入单元格的地址
    
11.     '/所有参数都必须预定义类型
    
12.     '/*****************************************/
    
13.    
    
14.     Dim KeyArr(1 To 2) As Variant
    
15.     Dim RecordArr(1 To 30, 1 To 2) As Variant
    
16.     Dim SQLlinkStr As String
    
17.     Dim myStr As String
    
18.    
    
19.     SQLlinkStr = "Driver={Oracle in OraClient11g_home1};Dbq=数据库名称;Uid=用户名;Pwd=密码;"
    
20.     myStr = "select jzxh as 数量,kssj as 时间 from ys_mz_jzls  where jzzt = '9' and to_char(kssj, 'yyyymmdd') = '20190309' and ksdm in (142)"
    
21.    
    
22.     '和上面需要提取的关键字对应，设置关键字数组
    
23.     KeyArr(1) = "数量"
    
24.     KeyArr(2) = "时间"
    
25.    
    
26.     '缓存数组用于存储结果
    
27.     tmpArr = SQLreturn(SQLlinkStr, myStr, KeyArr, RecordArr)
    
28.    
    
29.     '写入时通过缓存数组的第一维长度确定填充的行数
    
30.     Sheet1.Range("A1:B" & UBound(tmpArr)) = tmpArr
    
31. End Sub

复制代码

这样代码就比单独写连接串啥的简洁了一些了，而且本函数通用性较好，虽然损失了一点点效率，不过更方便把自己的精力放到如何处理导出的数据上



如果对于VBA连接数据库有疑问的，可以看看我博客的专题文章：
Excel VBA连接各种数据库

350977106

学习，谢谢楼主分享！！！

sdkdzym

露个脸，加强学习

vbaxx

没基础，有兴趣，着急