VBS连接数据库—oracle mysql的连接方式，测试可用

• • 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行，最后一个就是我们需要的，