vbs链接数据库操作说明
3星 · 超过75%的资源 需积分: 31 108 浏览量
2011-03-07
16:18:23
上传
评论
收藏 20KB DOCX 举报 
数据库连接
采用 ADO 连接数据库的方式，建立应用程序和数据库的连接。具体代码如下：
Set Cnn = CreateObject("ADODB.Connection")
Public Sub DBConnect(ByVal iniFile)
On error resume Next
Dim StrCon,rel
Dim DBType,DBServer,DBUser,DBPass,DBName
'从配置文件中获取数据库类型，Server
名，用户名，用户密码，数据库名
DBType = ZxINI_ReadNodeValue(iniFile, "Database", "DBType")
DBServer = ZxINI_ReadNodeValue(iniFile, "Database", "DBServer")
DBUser = ZxINI_ReadNodeValue(iniFile, "Database", "DBUser")
DBPass = ZxINI_ReadNodeValue(iniFile, "Database", "DBPass")
DBName = ZxINI_ReadNodeValue(iniFile, "Database", "DBName")
Select Case DBType
Case 0 'Sql Server
StrCon = "Provider=MSDASQL;Driver={SQL
Server};Server="&DBServer&";Database="&DBName&";Uid="&DBUser&";Pwd="&DBPass&";
"
Case 1 'Oracle
StrCon = "Provider=MSDAORA.1;Data
Source="&DBServer&";Password="&DBPass&";User ID="&DBUser&";Persist Security
Info=True"
Case 2 'Sybase
StrCon = "Driver={SYBASE SYSTEM
11};Srvr="&DBServer&";Uid="&DBUser&";Pwd="&DBPass&";Database="&DBName&";"
Case 3 'Access
StrCon = "Driver={Microsoft Access Driver
(*.mdb)};Dbq="&DBName&";Uid="&DBUser&";Pwd="&DBPass&";"
End Select
资源评论
hongyanghu2017-08-18非常感谢分享，文档中内容的介绍不是太详尽。
