谁能告诉我怎样把系统时间的值赋给一个记录的字段（在线等）

Question

程序中需要提取当前系统时间，并把它赋给数据表的searchtime字段，
procedure tform1.button1click(sender:tobject);
var
str:string;
begin
query1.SQL.Clear;
str:='update 学生信息 set searchtime='+formatdatetime('yyyy-mm-dd',now());  
query1.sql.Text:= str;
query1.prepared:=true;
query1.open;
end;

Answer 1

procedure tform1.button1click(sender:tobject);
var
str:string;
begin
query1.SQL.Clear;
str:='select * from 学生信息;  
query1.sql.Text:= str;
query1.prepared:=true;
query1.open;
while not query1.eof do
begin
query1.edit;
query1.fieldbyname('searchtime').asdatetime:=date;
query1.post;
query1.next;
end;
end;

Answer 2

多谢指点。可无法运行，说query1 can not modify a readonly dataset,怎么回事？

Answer 3

将query1的requestlive 的属性设为true,就可以了
谢谢楼上两位!:)