Access平台开发人员帮助 > 通用函数库 > 按功能 > 数据操作

函数说明

该函数可以执行SQL语句，是对Docmd.RunSQL进行封装，去掉操作提示。

函数原型

Public Function gf_RunSql(rstrSql As String) As Boolean

语法

gf_RunSql(rstrSql)

参考：gf_RunSql("Delete From tblTest Where FID = 5") '删除tblTest表的记录，条件为FID = 5

参数

参数名	必需/可选	数据类型	参数说明
strSql	必需	String	字符串表达式。要执行的SQL语句。

返回值

返回一个布尔值(Boolean)。若执行正常，返回True；反之，返回False。

示例

Sub subTest()

Dim strSQL As String '定义字符串变量，设置SQL语句

Dim blnValue As Boolean '定义布尔型变量，保存结果

strSql = "Update tblTest set FAge = '男' Where FName ='张三'" '修改记录

blnValue = gf_RunSql(rstrSql) '执行SQL语句

If blnValue = False Then Msgbox "执行有误"

End Sub

执行SQL语句（gf_RunSql函数）