oracle取数工具网盘,转：数据库sql取数工具

功能：从各种数据库中取数，通过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$]