读如何在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拼接字符串的功能。

fan0217

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

我搬的红尘如烟的代码，