加入收藏 | 设为首页 | 会员中心 | 我要投稿 衡阳站长网 (https://www.0734zz.cn/)- 数据集成、设备管理、备份、数据加密、智能搜索!
当前位置: 首页 > 站长学院 > MsSql教程 > 正文

SQL语句中的全局变量

发布时间:2021-02-27 12:24:28 所属栏目:MsSql教程 来源:网络整理
导读:我在VBA中有以下代码: Dim strSQL As StringstrSQL = "UPDATE Workstations SET MID = newvalue WHERE MID = tempvalue"DoCmd.RunSQL strSQL newvalue和tempvalue都是全局变量,并且已经设置了值.语法明智,这有意义吗?还是我错过了引号? 解决方法 试试这个

我在VBA中有以下代码:

Dim strSQL As String
strSQL = "UPDATE Workstations SET MID = newvalue WHERE MID = tempvalue"
DoCmd.RunSQL strSQL

newvalue和tempvalue都是全局变量,并且已经设置了值.语法明智,这有意义吗?还是我错过了引号?

解决方法

试试这个:

如果MID是数字:

Dim strSQL As String
strSQL = "UPDATE Workstations SET [MID] = " & newvalue & " WHERE [MID] = " & tempvalue
DoCmd.RunSQL strSQL

如果MID是字符串(如果newvalue / tempvalue不包含单引号’):

Dim strSQL As String
strSQL = "UPDATE Workstations SET [MID] = '" & newvalue & "' WHERE [MID] = '" & tempvalue & "'"
DoCmd.RunSQL strSQL

如果MID是字符串(如果newvalue / tempvalue包含单引号’如newvalue =“Mike’s car”):

Dim strSQL As String
strSQL = "UPDATE Workstations SET [MID] = '" & Replace(newvalue,"'","''") & "' WHERE [MID] = '" & Replace(tempvalue,"''") & "'"
DoCmd.RunSQL strSQL

如果MID是日期:

Dim strSQL As String
strSQL = "UPDATE Workstations SET [MID] = #" & newvalue & "# WHERE [MID] = #" & tempvalue & "#"
DoCmd.RunSQL strSQL

感谢@HansUp在评论中指出,那

MID is the name of a function,so it would be safer to bracket or alias that field name in the SQL statement: SET [MID]

(编辑:衡阳站长网)

【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!

    热点阅读