VBScript连接数据库函数封装

Kayer9328

已于 2023-04-01 11:49:27 修改

阅读量289

点赞数

分类专栏：数据库技术文章标签：数据库 oracle sqlserver

于 2023-04-01 00:10:28 首次发布

本文链接：https://blog.csdn.net/Kayer_Y/article/details/129890452

版权

本文介绍了如何使用VBScript封装数据库操作函数，包括初始化数据库、查询、删除、添加和更新记录，支持Access、Oracle、Excel和SQL Server。

摘要由CSDN通过智能技术生成

本文记录了通过VBScript语言将ADO连接Access、Oracle、Excel、SQL Server数据库封装成函数，便于以后调用，对数据库进行增、删、改、查。

1 函数封装

1.1 初始化数据库

'初始化数据库
'参数：数据库类型（Oracle, Access, Excel）, 实例名，数据库名， 密码，数据源
'Oracle数据库无需填写最后一个参数，Access数据库只需填写最后一个参数
'返回：登录状态，1-成功，0-失败
Function InitDateBase(ByVal dbType, ByVal dbServer, ByVal dbUID, ByVal dbPwd, ByVal dbSource)
	Set oConn = CreateObject("ADODB.Connection")
	Select Case UCase(dbType)
		Case "ORACLE"
			oConn.ConnectionString = "Driver={Microsoft ODBC for Oracle}; Server=" & dbServer & ";UID = " & dbUID & ";Pwd = " & dbPwd
			oConn.Open
		Case "SQLSERVER"
			oConn.ConnectionString = "Driver={ODBC Driver 17 for SQL Server};Server= " & dbServer &" ;Database=" & dbSource & ";UID=" & dbUID & ";pwd=" & dbPwd & ";"
			oConn.Open
		Case "ACCESS"
			oConn.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & dbSource
			oConn.Open
		Case "EXCLE"
			IsHeader = "YES"
			oConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;

最低0.47元/天解锁文章