以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [分享]数据保存时的Sql语句合成函数  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53006)

--  作者:逛逛
--  发布时间:2014/6/27 12:01:00
--  [分享]数据保存时的Sql语句合成函数

 用于表格数据保存时,使用Sql语句直接保存的时候,自动生成 删除,新增,修改语句

 

 


图片点击可在新窗口打开查看此主题相关图片如下:jdfw.gif
图片点击可在新窗口打开查看

 

 

测试命令

 

Dim strlist As  List(Of String)  = Functions.Execute("sql提取函数",Tables("客户"),"客户","ID","ID","客户ID|客户名称|日期列|_shishi|逻辑列","客户ID|客户名称|日期列|_shishi|逻辑列",1)

If strlist.count = 0 Then Return  Nothing

Dim sql As String
Dim cmd As New SQLCommand
cmd.C
Dim Count As Integer = 0

For Each s As String In strlist
    cmd.CommandText = s
    Count += cmd.ExecuteNonQuery()
    Output.show(s)
Next

Tables("客户").DataTable.BaseTable.AcceptChanges()   \'提交修改
Tables("客户").DataTable.Load             \'刷新表
Output.show("影响了" & Count & "行")

 

 

 


以下内容只有回复后才可以浏览


--  作者:Bin
--  发布时间:2014/6/27 12:02:00
--  
顶!~图片点击可在新窗口打开查看
--  作者:有点甜
--  发布时间:2014/6/27 12:03:00
--  
 这种好。。。
--  作者:lihe60
--  发布时间:2014/6/27 12:09:00
--  
vb
--  作者:telek
--  发布时间:2014/6/27 13:09:00
--  

ok

 


--  作者:lsy
--  发布时间:2014/6/27 13:52:00
--  
好,学习SQL的捷径。
--  作者:qq121454970
--  发布时间:2014/6/27 13:55:00
--  
看看
--  作者:jaegea
--  发布时间:2014/6/27 14:17:00
--  
學習SQL
--  作者:jspta
--  发布时间:2014/6/27 14:44:00
--  
学习下
--  作者:baoxyang
--  发布时间:2014/6/27 15:05:00
--  

学习下,谢分享!