vbs 连接oracle 数据库,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..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行，最后一个就是我们需要的，