以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  订单系统中的函数问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184469)
--  作者：ycs5801
--  发布时间：2022/12/8 22:42:00
--  订单系统中的函数问题
       Dim dt As DataTable = Functions.Execute("数据库_执行Sql_返回表格","","sel ect top 1 * from {httpcase} where path=?","",e.Path) \'使用参数化查询,避免SQL注入

这句黄色部分是需要执行的函数，后边的是什么意思呢？这种格式在帮助中有介绍吗？
--  作者：有点蓝
--  发布时间：2022/12/8 22:55:00
--  
参考：http://www.foxtable.com/webhelp/topics/1486.htm
--  作者：ycs5801
--  发布时间：2022/12/9 10:42:00
--  

Dim connectname As String = Args(0) \'数据源名称

 

这是函数中具体执行的过程，这个第一个参数是数据源名称，但是这里 Dim dt As DataTable = Functions.Execute("数据库_执行Sql_返回表格","","sel ect top 1 * from {httpcase} where path=?","",e.Path)

黄色标记的地方是空，是什么意思？
--  作者：有点蓝
--  发布时间：2022/12/9 10:51:00
--  
内部表，不需要指定数据源
--  作者：ycs5801
--  发布时间：2022/12/9 11:46:00
--  

If Args.Length >= 3 Then
    Dim s As String = Args(2)
    If s Is Nothing Then s = ""
    If s.Contains("|1|") Then canedit  = True
    If s.Contains("|2|") Then isStoredProcedure = True
End If

 

问题1：上述代码中，if不需要以end if结尾吗？

问题2：Args(2)即第三个参数，还是空，什么时候会出现("|1|") 、("|2|")这种情况？
--  作者：有点蓝
--  发布时间：2022/12/9 11:55:00
--  
1、如果只有一行代码，不需要endif

If s Is Nothing Then s = ""
等同于
If s Is Nothing Then 
    s = ""
end if

2、比如返回的datatable需要编辑数据可以
Dim dt As DataTable = Functions.Execute("数据库_执行Sql_返回表格","","sel ect top 1 * from {httpcase} where path=?","|1|",e.Path)
--  作者：ycs5801
--  发布时间：2022/12/9 22:20:00
--  

通过ExecuteReader生成的表也可以增加数据并保存。
如果生成的表仅用于增加数据，那么就没有必要加载数据，生成一个空表即可，例如：

Dim cmd As new SQLCommand
cmd.ConnectionName = "数据源名称"
Dim dt As DataTable
cmd.CommandText = "Se lect * From {表A} Where [_Identify] Is null"  \'生成空表
dt = cmd.ExecuteReader(True) \'记得将参数设置为True
Dim dr As DataRow = dt.AddNew()
dr("第一列") = "Foxtable"
dt.Save()
DataTables("表A").Load() \'重新加载表A,看看值是否已经变化

 

这种生成空表然后保存，会不会把原来数据库中的表给覆盖掉？是实现了类似于“插入新值”的功能吗？
--  作者：有点蓝
--  发布时间：2022/12/10 9:06:00
--  
AddNew肯定是新增的，不可能会覆盖旧数据