想必大家都很喜欢用word打字，用excel进行计算和规划，用powerpoint作幻灯片进行展示…，但是这只用到了office系列产品的很少的一部分功能。据调查，绝大部分用户只用到了office产品的20%的功能，很少有人注意到visual basic for application。 实际上，熟悉掌握vba的功能可以使你的工作事半功倍，尤其对会计、金融等专业来说，作出一套好的宏，几乎可以作到一劳永逸！最近，autocad中也加入了vba的功能，这不能不说这是一个趋势！
vba的功能决不只是让病毒制造者用来制造麻烦的，vba能被用来制造病毒的同时也正说明了其功能的强大与易用！利用ado对象，可以很方便的进行数据库操作！下面就是一个简单的数据交换的例子：
由于ado对象不直接支持mysql,所以必须先安装myodbc, 后者也是一个免费产品，在www.mysql.org上有下载，安装好了myodbc, 就可以在odbc数据源管理中配置一个数据源名称，把它指向你想连接的mysql数据库。代码如下：
sub connectmysql()
'通过myodbc去连接mysql数据库，并将microsoft sql server 7
'的数据转进mysql中
dim sconnect as string, ssql as string, i as long
dim cnmssql as new adodb.connection
dim cnmysql as new adodb.connection
'声明并创建对象 连接
dim rs as new adodb.recordset '声明并创建对象 记录集
dim cm as new adodb.command '声明并创建对象 命令
sconnect = "dsn=mysql1" '指定mysql的数据源名称
cnmysql.open sconnect '连接到 mysql
sconnect="provider=sqloledb.1;persist security info=false;user id=sa;pwd=123456;initial catalog=softdown;data source=ntserver"
'连接到 ms sql server 7
cnmssql.open sconnect
'ssql = "create table softinfo (softnum smallint,softname varchar(70),softdesc blob," & _
"softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _
"softdown smallint(4))" '创建新的mysql数据表语句
ssql = "select * from softinfo order by softnum"
rs.open ssql, cnmssql, 1, 1
while not rs.eof
ssql = "insert into softinfo values (" & trim(rs(0).value) & ",'" & trim(rs(1).value) & _
"','" & trim(rs(2).value) & "','" & trim(rs(3).value) & "','" & trim(rs(4).value) & _
"','" & trim(rs(5).value) & "'," & trim(rs(6).value) & "," & trim(rs(7).value) & ")"
cm.activeconnection = cnmysql
cm.commandtype = adcmdtext
cm.commandtext = ssql
cm.execute
rs.movenext
wend
rs.close
set rs = nothing
cnmysql.close
set cnmysql = nothing
cnmssql.close
set cnmssql = nothing
end sub
好了，想必大家对vba有所了解了，同样，如果要在工作表中引用mysql中的数据也是同样的简单，一旦宏作好了，想生成报表的话，用户要作的工作只是点一下鼠标就行了，利用excel进行二次开发，效率可以超过任何用户自行开发的报表系统,因为我们站在microsoft这个巨人的肩膀上！
转载 奥索
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
