var strSQL: String; begin strSQL := 'insert into worker (user,password,attr) values ('''+ls_user+''','''+ls_pass+''','''+ls_attr+''')'; with ADOQuery1 do begin close; sql.Clear ; SQL.Add(strSQL); execSQL; end ; end;
可以用如下的语句检索: with ADOQuery1 do begin close; sql.Clear ; // SQL.Add(select from worker where user=:ls_ur'); // Parameters.Parambyname('ls_ur').Value:=ls_user; open; end ; 不报错也可以得到结果.. 可是一插入报上面的错误
ADOQuery1.Parambyname('ls_pw').Value:=ls_pass
ADOQuery1.Parambyname('ls_at').Value:=ls_attr;
ADOQuery1.Parambyname('ls_pw').Value:=ls_pass;
ADOQuery1.Parambyname('ls_at').Value:=ls_attr;
楼上的第二句漏了";"
^_^
strSQL: String;
begin
strSQL := 'insert into worker (user,password,attr) values ('''+ls_user+''','''+ls_pass+''','''+ls_attr+''')'; with ADOQuery1 do
begin
close;
sql.Clear ;
SQL.Add(strSQL);
execSQL;
end ;
end;
TO:hongyou(鸿猷) 这样的语句能通过吗??ADOQuery1.Parambyname('ls_ur').Value:=ls_user;
ADOQuery1.Parambyname('ls_pw').Value:=ls_pass;
ADOQuery1.Parambyname('ls_at').Value:=ls_attr;
ls_attr:integer型的,这样写不行
with ADOQuery1 do
begin
close;
sql.Clear ; //
SQL.Add(select from worker where user=:ls_ur'); //
Parameters.Parambyname('ls_ur').Value:=ls_user;
open;
end ;
不报错也可以得到结果..
可是一插入报上面的错误