-
- VBS 连接oracle
Dim Cnn
Dim Rst
Dim strCnn
StrCnn="Provider=MSDAORA.1;User ID=loan;Password=loan;Data Source=orcl;Persist Security Info=False"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
'查看是否连接成功，成功状态值为1
'msgbox Conn.state
If Cnn.State = 0 Then
msgbox "连接数据库失败"
else
msgbox "连接数据库成功"
End If
Set Rst =CreateObject("ADODB.Recordset")
'Rst.open "update user_info set user_status='5' where user_email='278213098@qq.com'",Cnn
Rst.open "select user_id,user_email from user_info where user_email like 'luyong%' and user_status='1'",Cnn
i=1
While not Rst.eof '//循环取出DB里面的数据并导到Global table里面
dim1=Rst("user_id").value
dim2=Rst("user_email").value
'DataTable.GlobalSheet.SetCurrentRow(i)
'DataTable("AA",dtGlobalSheet)=dim1
'DataTable("BB",dtGlobalSheet)=dim2
MsgBox(dim1)
i=i+1
Rst.movenext
wend
'
'Rst.close '关闭记录集
'Set Rst=nothing '释放对象
'cnn.close '关闭连接
'Set cnn=nothing '释放对象
红色连接串有udl文件产生
创建连接数据库字符串的方法如下
1、新建个空的文本文件，然后重命名为test.udl
2、双击打开test.udl，在Provider中选择要连接的数据库对应的供应商，比如SqlServer数据库就选Microsoft OLE DB Provider for SQL Server
3、点击Next或者上面的Connection标签，在DataSource中输入数据库服务器的网络名称(或IP)，并输入登录数据库的用户名和密码，注意保存密码上打勾
4、点击 Test Connection，若测试通过，则点OK退出该udl文件
5、右键点击test.udl，选择用记事本打开，有没发现你要写的连接字符串已经乖乖躺在那里了~赶紧Ctrl+C,Ctrl+V吧~
.
之前我还碰到test.udl 打不开，系统提示选择打开方式，查了一下，需要注册这个
regsvr32 "C:\Program Files\Common Files\System\Ole DB\oledb32.dll"
- VBS连接mysql
Dim Cnn
Dim Rst
Dim strCnn
StrCnn="Provider=MSDASQL.1;Persist Security Info=True;Extended Properties='Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123456;DATABASE=first;PORT=3306'"
Set Cnn = CreateObject("ADODB.Connection")
Cnn.Open strCnn
'查看是否连接成功，成功状态值为1
'msgbox Conn.state
If Cnn.State = 0 Then
msgbox "连接数据库失败"
else
msgbox "连接数据库成功"
End If
Set Rst =CreateObject("ADODB.Recordset")
'Rst.open "select qq,status from qq",Cnn
i=1
While not Rst.eof '//循环取出DB里面的数据并导到Global table里面
dim1=Rst("qq").value
dim2=Rst("status").value
MsgBox(dim1)
i=i+1
Rst.movenext
wend
'
Rst.close '关闭记录集
Set Rst=nothing '释放对象
cnn.close '关闭连接
Set cnn=nothing '释放对象
其中连接串是参考：http://blog.csdn.net/zyq5945/article/details/5486393
这里用的是udl通过数据源来访问mysql的，因为udl本身没有提供连接mysql的方式
首先你正确安装了MYSQL的数据库驱动程序（mysql-connector-odbc-5.1.6-win32.msi ）
1.在桌面上新建一个空的文本文件mysql.txt,重命名为mysql.udl；
2.双击这个mysql.udl文件，打开“数据库连接属性”对话框，在“提供程序”页选择”Micrsoft Ole DB Provider for ODBC Drivers“，
点击下一步；
3.在“连接”页的,"指定数据源"选择"使用连接字符串"；
4.点击“编译”，弹出“选择数据源”，在“文件数据源”页中点击”新建“，在创建新数据源选择MYSQL的驱动程序”MySQL ODBC 5.1 Driver"；
5.点击“下一步”，点击"浏览",在”另存为“对话框中文件名称写入“mysql",点击”下一步“，点击”完成“；
6.在"MySQL Connnettor/ODBC Data Source Configuration"对话框中按需求（如下图）；
（实际上4/5/6步创建了一个数据源，如果原本已经存在mysql的数据源，直接选择原有的数据源也可以）
7.点击“Test”，看连接是否成功，连接成功会有个”Connenction successful“提示框，需要更详细的设置点击“Details”，点击”OK“，设置完成；
8.返回“数据库连接属性”对话框，点击“测试连接”，成功的话就是我们要的连接字符串。
有关udl文件的补充学习，baidu之
udl(Universal Data Link)是通用数据连接文件，使用通用数据链接 (UDL) 文件来保存连接字符串。 使用 UDL 文件存储数据库连接的方式和使用“ODBC 数据源名称 (DSN)”非常相似。UDL 文件存储 OLE DB 连接信息，例如提供程序、用户名、密码和其他选项。用存储在该 UDL 文件中的信息可以打开 ADO 连接，从而允许管理员在需要的情况下更改它，并且避免了打开注册表或者使用 ODBC。
有关创建见上文。
用文本方式打开后的格式
[oledb]
; Everything after this line is an OLE DB initstring
Provider=MSDASQL.1;Persist Security Info=True;Extended Properties="Driver=MySQL ODBC 5.1 Driver;SERVER=localhost;UID=root;PWD=123456;DATABASE=first;PORT=3306"
注意上面实际上是3行，最后一个就是我们需要的，
本文转自hcy's workbench博客园博客，原文链接：http://www.cnblogs.com/alterhu/archive/2012/02/20/2360094.html，如需转载请自行联系原作者。
