VBScript 轻松读写 Access 数据库210

Visual Basic Script (VBScript) 是一种轻量级的脚本语言，广泛用于自动化任务和创建动态网页。它具有出色的应用程序可扩展性，可以轻松处理 Microsoft Access 数据库操作。本文将深入探讨如何使用 VBScript 读写 Access 数据库，为您提供实用技巧和示例代码。

连接到 Access 数据库
' 创建 ADODB Connection 对象
Set oConn = CreateObject("")
' 设置连接字符串
= "Provider=.12.0;Data Source=C:path\to
' 打开连接

读取 Access 数据
' 创建 ADODB Recordset 对象
Set oRs = CreateObject("")
' 设置 SQL 查询字符串
sSQL = "SELECT * FROM TableName"
' 打开 Recordset 对象
sSQL, oConn
' 遍历 Recordset 并显示字段数据
Do While Not
("FieldName1").Value & ", " & _
("FieldName2").Value

Loop
' 关闭 Recordset 对象

插入数据到 Access
' 创建 ADODB Command 对象
Set oCmd = CreateObject("")
' 设置命令文本
= "INSERT INTO TableName (FieldName1, FieldName2) VALUES (?, ?)"
' 创建参数对象并设置参数值
Set oParam1 = ("FieldName1", adVarChar, adParamInput, 255)
= "Value1"
Set oParam2 = ("FieldName2", adInteger, adParamInput, 4)
= 10
' 关联参数对象
oParam1
oParam2
' 执行命令
, oConn
' 关闭 Command 对象

更新 Access 数据
' 创建 ADODB Command 对象
Set oCmd = CreateObject("")
' 设置命令文本
= "UPDATE TableName SET FieldName1 = ? WHERE FieldName2 = ?"
' 创建参数对象并设置参数值
Set oParam1 = ("FieldName1", adVarChar, adParamInput, 255)
= "Value1"
Set oParam2 = ("FieldName2", adInteger, adParamInput, 4)
= 10
' 关联参数对象
oParam1
oParam2
' 执行命令
, oConn
' 关闭 Command 对象

删除 Access 数据
' 创建 ADODB Command 对象
Set oCmd = CreateObject("")
' 设置命令文本
= "DELETE FROM TableName WHERE FieldName1 = ?"
' 创建参数对象并设置参数值
Set oParam1 = ("FieldName1", adVarChar, adParamInput, 255)
= "Value1"
' 关联参数对象
oParam1
' 执行命令
, oConn
' 关闭 Command 对象

关闭连接
' 关闭连接

' 释放对象
Set oConn = Nothing

注意事项* 确保使用正确的连接字符串来连接到您的 Access 数据库。
* 对于包含特殊字符的字段值，请使用 ADODB 参数化查询以防止 SQL 注入攻击。
* 在处理数据时，始终遵循良好的编程实践，例如错误处理和资源释放。
* VBScript 已被标记为过时，不再用于新开发。建议使用 JavaScript 或 VBScript 的替代品，例如 PowerShell。

2024-12-10

上一篇：VBScript 保留字：掌握核心语言构建块

下一篇：VBScript 中打印变量的全面指南