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='[e-mail]'",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行，最后一個就是我們需要的，