运行以下程序时老是出现"在SQL语句结尾之后找到字符",请问这是什么原因啊?
procedure TForm1.BitBtn4Click(Sender: TObject);
var
year,month,day:word;
begin
decodedate(now,year,month,day);
if ADOConnection1.Connected=true then
begin
form7.ShowModal;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('update 基本信息表 set 年龄='+inttostr(year)+'-出生年;');
ADOQuery2.SQL.Add('update 基本信息表 set 患病年龄='+inttostr(year)+'-初次发现患高血压的年;');
ADOQuery2.SQL.Add('update 基本信息表 set 体重指数=体重/(身高*身高);');
ADOQuery2.SQL.Add('update 基本信息表 set 体表面积=0.0057*身高+0.0121*体重+0.0882 where 性别=true;');
ADOQuery2.SQL.Add('update 基本信息表 set 体表面积=0.0073*身高+0.0127*体重-0.2106 where 性别=false;');
ADOQuery2.ExecSQL;
end;
end;
谢谢!!
procedure TForm1.BitBtn4Click(Sender: TObject);
var
year,month,day:word;
begin
decodedate(now,year,month,day);
if ADOConnection1.Connected=true then
begin
form7.ShowModal;
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('update 基本信息表 set 年龄='+inttostr(year)+'-出生年;');
ADOQuery2.SQL.Add('update 基本信息表 set 患病年龄='+inttostr(year)+'-初次发现患高血压的年;');
ADOQuery2.SQL.Add('update 基本信息表 set 体重指数=体重/(身高*身高);');
ADOQuery2.SQL.Add('update 基本信息表 set 体表面积=0.0057*身高+0.0121*体重+0.0882 where 性别=true;');
ADOQuery2.SQL.Add('update 基本信息表 set 体表面积=0.0073*身高+0.0127*体重-0.2106 where 性别=false;');
ADOQuery2.ExecSQL;
end;
end;
谢谢!!
解决方案 »
- 用6位数字控制6个控件的颜色
- 问两个关于TWebBrowser的问题:
- 关于用delphi7的dbExpress连接MySQL的问题 求教各位高人,小弟急呀!!!!!!!!
- richedit.lines.add(半个字符)出错如何处理
- 高手请,有点麻烦?
- 如何产生一个无重复数的随即数组?
- 我想在image中,通过反走样画一条直线,请问如何写代码呢?
- delphi 界面
- 特急!一个sql语句的问题!
- 救救小妹啊,用Delphi开发dialogic 的接口[不是高手和帅哥的不要进来]
- 恳求各位大下,关于分布式系统的问题100分,不够再加
- 急、急、急:怎样判断某个字符串里面是数字还是字符?不好意思只有10分了
都要execsql;
再sql.clear
sql.add
ADOQuery2.SQL.Add('update 基本信息表 set 年龄='+inttostr(year)+'-出生年,');
ADOQuery2.SQL.Add('患病年龄='+inttostr(year)+'-初次发现患高血压的年,');
ADOQuery2.SQL.Add('体重指数=体重/(身高*身高),');
ADOQuery2.SQL.Add('体表面积=0.0057*身高+0.0121*体重+0.0882 where 性别=true;');
ADOQuery2..open;
....