有关query插入数据的问题.(50分)

X

xyt

Unregistered / Unconfirmed
GUEST, unregistred user!
本人运用sql 向business表插入3条记录
语句如下:
定义过程 procedure selectfrom;
procedure tform1.selectfrom(sender:tobject);
begin
query1.close;
query1.sql.add('select * from business');
query1.open;
end;

插入键button1的语句如下
procedure TForm1.Button1Click(Sender: TObject);
var
machstr,ownername:string;
valuestr:string;
begin
query1.Close;
query1.sql.clear;
query1.sql.add('insert into business(machname,owner,value)values');
machstr:=edtmchname.text;
ownername:=edtowner.text;
valuestr:=trim(edtvalue.text);
machstr:='('''+machstr+''','+''''+ownername+''''+','+valuestr+')';
query1.sql.add(machstr);
query1.execsql;
selectfrom(sender);
end;

运行可通过,当我输入值machstr,ownername,valuestr,按下插入键
时出现 project project1.exe raised exception class edbengineerron
with message 'invalid use of keyword token:value)values
('intel 133','xyt',20000) line numver:1',process stopped
use step or run to contiune
望各位高手不啬指教。


 
machstr:='('+''''+machstr+''''+','+''''+ownername+''''+','+''''+valuestr+''''+')';
 
value 是保留字,你可以取另外的名字作为字段名
 
多人接受答案了。
 

Similar threads

顶部