用DBE组个,我添加数据时是用以下代码,但是要是更新数据时,代码得怎么写呢。用的是BDE的组件。谢谢先! with dm.qyliushui do
       begin
      Close;
      SQL.Clear;
      SQL.Add('Insert Into sblsb(id,lslx,ywrq,je)');
      SQL.Add('Values (:p0,:p1,:p2,:p3)');
      parambyname('p0').value:=Trim(yhbh.Text);
      parambyname('p1').value:=Trim(lslx.Text);
      parambyname('p2').value:=ywrq.Date;
      parambyname('p3').value:=Trim(je.Text);
      ExecSQL;
      end;
     showmessage('数据添加成功!');
end;

解决方案 »

  1.   

    with dm.qyliushui do
    begin
      dm.qyliushui.checkbrowsemode ;
      if dm.qyliushui.changecount>0 then
        dm.qyliushui.applyupdate(0);end
      

  2.   

    看不懂,能解释一下嘛?我的问题可能是没有表达清楚,更正一下:我用BDE,想要类似以上代码类型的一段修改记录数据的代码参考,谢谢!
      

  3.   


    with dm.qyliushui do
    begin
      Close;
      SQL.Clear;
      SQL.Add(select * from sblsb where id=xxxx);
      ExecSQL;
      Edit;
      FieldByName('slx').value := xxxx;
      FieldByName('je').value :=xxxx;
      Post;
      ApplyUpdates(0);
    end;大概是这样。
      

  4.   

    var
      sqlt:string;
    begin
      sqlt:='Insert Into sblsb(id,lslx,ywrq,je)values('''+yhbh.Text+''','''+lslx.Text+''','''+FormatDateTime('yyyy-MM-dd',ywrq.Date)+''','''+je.Text+''')';
    这里就不写了。。错的应该是你那日期写入的问题。
    .....
    SQL.Add(sqlt)
    .....
    end;
      

  5.   

    with dm.qyliushui do
           begin
          Close;
          SQL.Clear;
          SQL.Add('Insert Into sblsb(id,lslx,ywrq,je)');
          SQL.Add('Values (:p0,:p1,:p2,:p3)');
          parambyname('p0').value:=Trim(yhbh.Text);
          parambyname('p1').value:=Trim(lslx.Text);
          parambyname('p2').value:=FormatDateTime(yyyy-MM-dd,ywrq.Date);
          parambyname('p3').value:=Trim(je.Text);
          ExecSQL;
          end;
         showmessage('数据添加成功!');
    end;这样试一下!
      

  6.   

    with dm.qyliushui do
           begin
          Close;
          SQL.Clear;
          SQL.Add(update sblsb set lslx=,:p1,ywrq=,:p2,je=,:p3');
          SQL.Add('where   id=:p0');
          parambyname('p0').value:=Trim(yhbh.Text);
          parambyname('p1').value:=Trim(lslx.Text);
          parambyname('p2').value:=FormatDateTime(yyyy-MM-dd,ywrq.Date);
          parambyname('p3').value:=Trim(je.Text);
          ExecSQL;
          end;
         showmessage('数据修改成功!');
    end;楼主好象要的是这个吧?