读如何在VBA中编写含有变量的SQL语句而不易出错有感

fan0217

读红尘如烟帖子有感：
http://www.office-cn.net/thread-122658-1-1.html

提供另外一种方法，此方法在论坛以前发表过，老生常谈了。

先在模块中建一个函数，如下：

1. Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
   
2.    Dim strFind As String, strReplace As String, strTemp As String
   
3.    Dim i As Integer
   
4.    strTemp = expression
   
5.    For i = 0 To UBound(formatException)
   
6.         strFind = "{" & i & "}": strReplace = formatException(i)
   
7.         strTemp = Replace(strTemp, strFind, strReplace)
   
8.    Next
   
9.    ArrayFormat = strTemp
   
10. End Function

复制代码

然后开始编写含有变量的SQL语句：

1. Sub Test()
   
2.     Dim strSQL As String
   
3.     strSQL = "INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUE ('{0}', '{1}',#{2}#,'{3}')"
   
4.     strSQL = ArrayFormat(strSQL, "未审核", "Nickname", Now(), "No001")
   
5.     Debug.Print strSQL
   
6. End Sub

复制代码

运行，立即窗体显示：


INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUE ('未审核', 'Nickname',#2017/3/11 15:43:44#,'No001')



这样可很方便的实现SQL拼接字符串的功能。

zpy2

👍看着像.net的写法

netguestcn

功力不够，有点看不明白，先收藏，再研究、使用

tmtony

fans也来助阵了！
赞一个

roych

fans也来助阵了！
赞一个
不过语句应该是VALUES：

INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUE ('未审核', 'Nickname',#2017/3/11 15:43:44#,'No001')

INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUES ('未审核', 'Nickname',#2017/3/11 15:43:44#,'No001')

红尘如烟

哈哈，fan的是进阶版

fan0217

roych 发表于 2017-3-11 19:07
fans也来助阵了！
赞一个
不过语句应该是VALUES：

我搬的红尘如烟的代码，

a63521557

roych 发表于 2017-3-11 19:07
fans也来助阵了！
赞一个
不过语句应该是VALUES：

大赞！学习领会了。

再完善两语句：
Public Function ArrayFormat(expression As String, ParamArray formatException()) As String
应为：
Public Function ArrayFormat(ByVal expression As String, ParamArray formatException()) As String

strSQL = "INSERT INTO 凭证记录表 (状态,日期,制单人,制单时间,关联单号) VALUE ('{0}', '{1}',#{2}#,'{3}')"
应为
strSQL = "INSERT INTO 凭证记录表 (状态, 制单人, 制单时间, 关联单号) VALUES ('{0}', '{1}',#{2}#,'{3}')"

tmtony

各路大神都出来了！

youdm

感谢老师们的分享，辛苦了！