大虾请教用SQL查询数据库中的字段能不能替换(50分)

  • 主题发起人 主题发起人 LJYY20000102
  • 开始时间 开始时间
L

LJYY20000102

Unregistered / Unconfirmed
GUEST, unregistred user!
如表名为 cbjsd123zhz 里面有字段CY_1,CY_2,CY_,CY_,CY_.....CY_2为数值型

var
fcpbh:string;
fcpxm:string;
FHHBH:STRING;
FCPMC:STRING;
FWGPBCLXHSL:STRING;
FWGPBCLXHJE:STRING;
fJHCBSL:real;
fJHCBje:real;
XCV:string;
XXYY1:integer;
begin
//动态判断将该月成本增加到该月字段中去
XXYY1:=STRTOINT(YYY);
case XXYY1 of
1: XCV:='1';
2: XCV:='2';
3: XCV:='3';
4: XCV:='4';
5: XCV:='5';
6: XCV:='6';
7: XCV:='7';
8: XCV:='8';
9: XCV:='9';
10: XCV:='10';
11: XCV:='11';
12: XCV:='12';
END;
FWGPBCLXHSL:='JHCBSL_'+XCV;
FWGPBCLXHJE:='JHCBJE_'+XCV;
ADOQuery3.SQL.Add('update cbjsd123zhz set '
+' ('''+FWGPBCLXHSL+''')='+FloatToStr(fJHCBSL)+',('''+FWGPBCLXHJE+''')='+FloatToStr(fJHCBje)+' where'
+' cpbh='''+fcpbh+''' and Cpxm='''+FCpxm+''' and CpMC='''+FCpMC+''' AND HHBH='''+FHHBH+'''') ;
ADOQuery3.execsql;
----------------------------------------------
 
作为字段名使用不用加前后'号:
ADOQuery3.SQL.Add('update cbjsd123zhz set '+FWGPBCLXHSL+'='+FloatToStr(fJHCBSL)+','+FWGPBCLXHJE+'='+FloatToStr(fJHCBje)+' where'
+' cpbh='''+fcpbh+''' and Cpxm='''+FCpxm+''' and CpMC='''+FCpMC+''' AND HHBH='''+FHHBH+'''') ;
 
接受答案了.
 

Similar threads

后退
顶部