vbs 连接mysql数据库_VBS连接数据库操作

'转别人写的一份公共函数：)

' DATABASE公用函数

'

'###########################################################################################################

'###########################################################################################################

Dim objConnection                          'CONNECTION对象实例

Dim objRecordSet                                   'RECORDSET对象实例

Dim objCommand                                '命令对象实例

Dim strConnectionString                        '连接字符串

' ********************************************************************

' 函数说明：连接数据库;

' 参数说明：(1)strDBType(数据库类型：如ORACEL；DB2；SQL；ACCESS)

'           (2)strDBAlias(数据库别名)

'           (3)strUID(用户名)

'           (4)strPWD(密码)

'           (5)strIP(数据库IP地址：仅SQL SERVER 使用)

'           (6)strLocalHostName(本地主机名：仅SQL SERVER 使用)

'           (7)strDataSource(数据源：仅ACCESS使用；如d:\yysc.mdb)

' 返回结果：无

' 调用方法: ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)

' ********************************************************************

Sub ConnectDatabase(strDBType, strDBAlias, strUID, strPWD, strIP, strLocalHostName, strDataSource)

Set objConnection = CreateObject("ADODB.CONNECTION"                '1 - 建立CONNECTION对象的实例

Select Case UCase(Trim(strDBType))

C