DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: sheik8888
今日帖子: 35
在线用户: 29
导航: 论坛 -> 移动应用开发 斑竹:flyers,iamdream  
作者:
男 tp26021340 (锦) ▲▲▲▲▲ -
普通会员
2016/1/28 17:09:02
标题:
FDMemTable.Delta 转SQL语句脚本 提供参考 浏览:1720
加入我的收藏
楼主: procedure TForm2.btn4Click(Sender: TObject);
Var   sField,sValue:string;
  i,j:Integer;
  JO:TJSONOBject;
begin
  JO:=TJSONOBject.Create;
  sField:='';
  sValue:='';
  with mtbl_1.Delta.DataView do begin
    for I := 0 to Rows.Count-1 do  begin
      if Rows.ItemsI[i].RowState=TFDDatSRowState.rsInserted then begin

        for j := 0 to mtbl_1.Fields.Count-1 do begin
          sField:=sField+mtbl_1.Fields[J].FieldName+',';
          sValue:=sValue+VarToStr(Rows.ItemsI[i].GetValues(mtbl_1.Fields[J].FieldName)).QuotedString+',';
        end;
        JO.AddPair('SQL','Insert Into Person('+Copy(sField,1,Length(sField)-1)+')'+#13#10
          +' Values('+Copy(sValue,1,Length(sValue)-1)+')'+#13#10) ;
      end
      else if Rows.ItemsI[i].RowState in [TFDDatSRowState.rsModified,
        TFDDatSRowState.rsEditing] then
        JO.AddPair('SQL','Edit'+#13#10)
      else if Rows.ItemsI[i].RowState in [TFDDatSRowState.rsDeleted] then
        JO.AddPair('SQL','Delete'+#13#10);
    end;

  end;
  mmo1.Clear;
  mmo1.Lines.Add(JO.ToString);

end;


欢迎加入:Delphi XE10 分享 383675978群,讨论

。。。。。。。。。。
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
作者:
男 tp26021340 (锦) ▲▲▲▲▲ -
普通会员
2016/1/29 11:31:34
1楼:
TFDMemTable 数据转成SQL脚本更新  完成转换,可以通用了  

下载附件

欢迎加入:Delphi XE10 分享 383675978群,讨论
此帖子包含附件:tp26021340_2016129113134.txt 大小:6.5K
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533
作者:
男 bbnn38 (伟大的咸鱼) ▲▲▲▲△ -
注册会员
2018/7/1 12:49:48
2楼: 感谢!
----------------------------------------------
-
作者:
男 sxqwhxq (步惊云) ★☆☆☆☆ -
普通会员
2018/7/2 15:41:30
3楼: 看看
----------------------------------------------
-
作者:
男 ken_hsiao (ken) ▲▲▲▲▲ -
普通会员
2018/7/6 14:18:48
4楼: 如果有二进位栏位、图档之类的,是不是就不能使用了?
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行62.5毫秒 RSS