池盛龙的开发经验分享：写SQL插入更新语句,如何简洁代码，如何提高开发效率。

池盛龙

是否你平时写代码时，惯用手法是新增信息时写一段插入语句。如下图这样。或者是一行带过，有长又臭。
是否写完插入语句后，再像下面这样，写一遍插入语句

结果，维护起来时，内容多时，如果要修改，要去找第几行位置去修改语句。这种情况不知道大家有没有
起码我刚开始时，是这样写的。后来代码写多了，我感觉很费事，维护也不是很高效，所以我写一个函数，自创一个独特到方法来，偷懒
使用规范：
文本类型写法： 字段标题{W变量内容}|     如： "编号{W" & TextBox1.Text & "}|"
数值类型写法： 字段标题{S变量内容}|     如： "编号{S" & TextBox1.Text & "}|"
效果：

调用方法：
SQl = SQL_CHISHENGLONG("插入", VF, "客户档案") '生成插入语句
SQl = SQL_CHISHENGLONG("更新", VF, "客户档案") '生成更新语句

1. Function SQL_CHISHENGLONG(ByVal A As String, ByVal B As String, ByVal C As String) '自动生成插入，更新语句
   
2.        SQL_CHISHENGLONG = ""
   
3.         Dim SQ1 As  String
   
4.         Dim SQ2 As  String
   
5.         Select Case A
   
6.             Case "插入"
   
7.                 '解释语句
   
8.                 For X As Integer = 0 To UBound(Split(B, "}|")) - 1
   
9.                     Dim BT = Split(Split(B, "}|")(X), "{")(0) '标题
   
10.                     Dim NR = ""
    
11.                     If Split(B, "}|")(X) Like "*{W*" Then '判断是否为文本类型
    
12.                         NR = "'" & Split(Split(B, "}|")(X), "{W")(1) & "'" '内容
    
13.                     ElseIf Split(B, "}|")(X) Like "*{S*" Then '判断是否为数字类型
    
14.                         NR = Split(Split(B, "}|")(X), "{S")(1)  '内容
    
15.                     Else
    
16. 
    
17.                         Exit Function
    
18.                     End If
    
19.                     SQ1 = SQ1 & BT & ","
    
20.                     SQ2 = SQ2 & NR & ","
    
21.                 Next
    
22.                 '除去最后逗号
    
23.                 SQ1 = Left(SQ1, Len(SQ1) - 1)
    
24.                 SQ2 = Left(SQ2, Len(SQ2) - 1)
    
25.                 SQL_CHISHENGLONG= "INSERT INTO " & C & " ( " & SQ1 & ")VALUES (" & SQ2 & ")"
    
26.             Case "更新"
    
27.                 '解释语句
    
28.                 For X As Integer = 0 To UBound(Split(B, "}|")) - 1
    
29.                     Dim BT = Split(Split(B, "}|")(X), "{")(0) '标题
    
30.                     Dim NR = ""
    
31.                     If Split(B, "}|")(X) Like "*{W*" Then '判断是否为文本类型
    
32.                         NR = "'" & Split(Split(B, "}|")(X), "{W")(1) & "'" '内容
    
33.                     ElseIf Split(B, "}|")(X) Like "*{S*" Then '判断是否为数字类型
    
34.                         NR = Split(Split(B, "}|")(X), "{S")(1)  '内容
    
35.                     Else
    
36.                         Exit Function
    
37.                     End If
    
38.                     SQ1 = SQ1 & BT & "=" & NR & ","
    
39.                 Next
    
40.                 '除去最后逗号
    
41.                 SQ1 = Left(SQ1, Len(SQ1) - 1)
    
42.                 SQL_CHISHENGLONG= "UPDATE " & C & " SET " & SQ1
    
43.         End Select
    
44.     End Function

复制代码

如果对你有帮助请送小鲜花，谢谢大家

taller

另一个开发思路供参考

https://blog.csdn.net/taller_2000/article/details/79394981

xd3210

本人也摸索了一套类似的经验，就是直接读取字段类型，生成sql语句时，根据字段类型来决定字段值前后时否有分隔符或什么样的分隔符

池盛龙

xd3210 发表于 2020-11-9 13:26
本人也摸索了一套类似的经验，就是直接读取字段类型，生成sql语句时，根据字段类型来决定字段值前后时否有 ...

也可以， 你这种，只要代码争取写的越少，越清晰就好

jsgj2023

taller 发表于 2020-11-9 02:39
另一个开发思路供参考

https://blog.csdn.net/taller_2000/article/details/79394981

不知t版这个方案是否适用较长且复杂的sql语句生成?

microyip

最近，看楼主的进步帖子分享多了，不禁想在兄弟的地方卖花赞花香一下。
楼主不妨参考一下，看看有没有调整的空间

用类做自定义SQL读取函数及数组转置函数
http://club.excelhome.net/thread-1517858-1-1.html

池盛龙

microyip 发表于 2020-11-12 17:11
最近，看楼主的进步帖子分享多了，不禁想在兄弟的地方卖花赞花香一下。
楼主不妨参考一下，看看有没有调整 ...

你的也很好，我的方法是不要转置，这样查询结果的速度更快，只是多写一个根据标题获取所在列就可以了。因为考虑到，场景不一定全部都要显示全部结果。请看我方法贴做法：http://club.excelhome.net/thread-1562807-1-1.html

microyip

池盛龙 发表于 2020-11-12 17:26
你的也很好，我的方法是不要转置，这样查询结果的速度更快，只是多写一个根据标题获取所在列就可以了。因 ...

我的建议是做成类，方便调用。提出来，看看你有没有什么可调整的空间而已

池盛龙

microyip 发表于 2020-11-12 17:29
我的建议是做成类，方便调用。提出来，看看你有没有什么可调整的空间而已

你是说你的方法吗

yzxfelix

taller 发表于 2020-11-9 02:39
另一个开发思路供参考

https://blog.csdn.net/taller_2000/article/details/79394981

支持啊，好资料啊，提供另一种思路奥