zoukankan      html  css  js  c++  java
  • DELPHI 通用的数据记录复制过程

    //表名,关键字段名,单条内容的SQL语句,产生新记录的值
    function Tfrmdmmain.CopyTbale(const tablename, fileldname, swhere,
      newfileldstring: string): integer;
      var sql,sqlstring,sqlvalue,newsqlvalue:string;
       i:integer;

     begin
     sql := 'INSERT INTO [%s] (%s) VALUES(%s)';


      self.fykExecute.Close ;
      self.fykExecute.SQL.Text := swhere;
      self.fykExecute.Open ;
      //取得字段资料    ,注意这里进行字段类型的判断,及NULL的处理。针对SQLSERVER
      sqlstring:=StringReplace(Trim(fykExecute.FieldList.Text),   #13#10,   ',',   [rfReplaceAll]);
      for i := 0 to fykExecute.FieldCount -1 do
      begin
          if  fykExecute.Fields[i].FieldName =  fileldname then begin
               sqlvalue :=sqlvalue + newfileldstring +',';
          end else begin
            if  fykExecute.Fields[i].DataType in [ftString , ftDate, ftTime, ftDateTime, ftMemo, ftFmtMemo, ftWideString] then begin
             if  fykExecute.Fields[i].AsString <>'' then begin
                 sqlvalue :=sqlvalue +''''+ fykExecute.Fields[i].AsString +''',';
              end else begin
                 sqlvalue :=sqlvalue +'NULL'+',';
              end;
            end else begin

              if  fykExecute.Fields[i].AsString <>'' then begin
                 sqlvalue :=sqlvalue + fykExecute.Fields[i].AsString +',';
              end else begin
                 sqlvalue :=sqlvalue +'NULL'+',';
              end;

            end;

          end;

      end;

       newsqlvalue:= copy(sqlvalue,0,length(sqlvalue)-1)  ;
    //  showessage(sqlvalue);

      self.fykExecute.Close ;
      self.fykExecute.SQL.Text := format(sql,[tablename,sqlstring,newsqlvalue]);
      fykExecute.SQL.SaveToFile('C:\1.TXT');
      Resuntl :=  self.fykExecute.ExecSQL ;

    end;

  • 相关阅读:
    datepicker 日期连续选择(需要改源码)
    js 闭包 详解
    chorme模拟微信浏览器
    用phpmailer发邮件 中文乱码问题解决
    微信公众号-开发者-自定义菜单-CLICK事件处理
    微信公众号-开发者-自定义菜单
    腾讯创始人谈风投经验:这9种公司不能投
    微信公众号-个人开发者中心接口权限
    wamp Server2.5 配置 自定义目录
    amcharts 网页绘图插件
  • 原文地址:https://www.cnblogs.com/fuyingke/p/967478.html
Copyright © 2011-2022 走看看