【数据库SQL取数工具】，用SQL脚本查询数据库直接输出到EXCEL

lizi007

功能：从各种数据库中取数，通过SQL脚本查询出数据，将数据直接输出到EXCEL。也可以直接中从EXCEL中取数。

环境要求：安装了相应数据库的客户端。

技能要求：会写基本的SQL脚本。不会的参考雪山飞狐的帖子《从零开始学习SQL(图文教程) 》，http://club.excelhome.net/thread-1061487-1-1.html

链接字符串语法如下：参考向東的帖子，http://club.excelhome.net/thread-441436-1-1.html

ODBC Driver for Text
lcConnectionString = "Driver={Microsoft Text Driver (*.txt;*.csv)};" & "DBQ=路径\文件;" & "Extensions=asc,csv,tab,txt;" & "Persist Security info=False"

ODBC Driver for Access
lcConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & "DBQ=路径\文件.mdb;" & "Uid=Admin;" & "Pdw=;"

ODBC Driver for Oracle
lcConnectionString = "Driver={Microsoft ODBC for Oracle};" & "Server=OracleServer.world;" & "Uid=myUsername;" & "Pwd=myPassword;"

ODBC Driver for SQL Server
lcConnectionString = "Driver={SQL Server};" & "Server=MyServerName;" & "Database=MyDarabaseName;" & "Uid=myUsername;" & "Pwd=myPassword;"

ODBC Driver for dBASE
lcConnectionString = "Driver={Microsoft dBASE Driver (*.dbf)};" & "Driverid=227;" & "DBQ=路径\文件;"

ODBC Driver for mySQL
lcConnectionString = "Driver={mySQL};" & "Server=MyServerName;" & "Option=16834;" & "Database=mydb;"

ODBC Driver for Sybase
lcConnectionString = "Driver={SYBASE SYSTEM 11};" & "Srvr=MyServerName;" & "Uid=myUsername;" & "Pwd=myPassword;"

ODBC Driver for Sybase SQL Anywhere
lcConnectionString = "Driver=Sybase SQL Anywhere 5.0;" & "DefaultDir=路径\;" & "Dbf=路径\文件名.db;" & "Uid=myUsername;" & "Pwd=myPassword;" & "Dns="""";"

ODBC Driver for VisualFoxPro
lcConnectionString = "Driver={Microsoft Visual Foxpro Driver};" & "SourceType=DBC;" & "SourceDBC=路径\文件.dbc;" & "Exclusive=No;"

ODBC Driver for AS/400
lcConnectionString = "Driver={Client Access ODBC Driver (32-bit)};" & "System=myAS400;" & "Uid=myUsername;" & "Pwd=myPassword;"

ODBC Driver for Paradox
lcConnectionString = "Driver={Microsoft Paradox Driver (*.db)};" & "Driverid=538;" & "Fil=Paradox 5.X;" & "DefaultDir=路径\; & "Dbq=路径\;" & "CollatingSequence=ASCII;"

EXCEL
"Driver={Microsoft Excel Driver (*.xls)};DBQ=" + ActiveWorkbook.FullName
Driver={Microsoft Excel Driver (*.xls)};DBQ=
select * from [sheet2$]


截图：


点击工具栏加载项按钮

打开查询界面，输入链接字符串和SQL语句，点查询按钮

数据输出到EXCEL中

DATA链接用于打开链接设置和SQL代码集

在LINK表中，维护数据库链接字符串

在CODE_SET表中，维护SQL脚本

CODE_SET链接用于打开代码集窗口

在代码集窗口中可以查看和选择相应的SQL代码，就是前面那个CODE_SET表中维护的SQL代码

CLEAR_CODE命令用于清除SQL CODE文本框中的文本，方便重新输入SQL脚本

加号用于将字符串链接添加到LINK表中，减号用于将LINK表中的与窗体上相同的字符删除，Default用于将窗体上的链接字符串设置为默认的字符串，下次打开时载入默认字符串

EXCEL SQL用户查询EXCEL中的数据，相当于将EXCEL中的表当做数据库中的表进行查询


数据库取数工具.rar (27.53 KB, 下载次数: 485)

2015-4-13 11:48 上传

点击文件名下载附件
数据库取数工具

lizi007

截图有点货不对版，不好意思。现在发帖太麻烦的，不想重新截图了，请见谅。但不影响功能的使用。望大侠们提出宝贵意见。

rzz8118

不错，感谢分享，能举例说明更好了

yzxfelix

收藏了回头学下