关于插入记录问题??????请教??

Question

点插入按纽
procedure TForm1.Button1Click(Sender: TObject);
begin
adotable2.Open;
adotable2.InsertRecord([nil,dbedit3.text,datetimepicker3.date,edit2.Text]);
DBEdit3Change(Sender);
end;procedure TForm1.DBEdit3Change(Sender: TObject);
begin
//////////////////////设备保养///////////////////////////
adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.ConnectionString:=('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=zysb.mdb;Persist Security Info=False');
adoquery2.sql.add(' select date as 日期,bynr as 保养内容');
adoquery2.sql.add(' from byjl');
adoquery2.sql.add(' where byjl.sbid='''+dbedit3.text+''' order by date');
adoquery2.open;
datasource3.DataSet:=adoquery2;
adoquery2.open;
end;
运行过后,结果不能马上显示,好象有延时,要多刷新几次才可以.
请各位专家帮忙给我看看哪里出错了.

Answer 1

这样写法不习惯。ding 不习惯：不是使用一个公共的连接对象、 而且Change 事件里这样的写法。