1、 procedure TForm1.Button1Click(Sender: TObject); var s:string; begin s:='select * from dtabe1 where f10>=00001'; with ADOQuery1 do begin close; sql.Clear; sql.Add(s); open; end; end; 2、 procedure TForm1.Button3Click(Sender: TObject); var s:string;
begin s:='update dtabe1 set f12=50.34'; with adoquery1 do begin close; sql.Clear; sql.Add(s); execsql; end; end; 我先执行第一个查询功能,正常,然后执行第二个修改功能,这时出现如下错误信息: Access violation at address 1F487CAB in module 'msado15.dll'.write of address 010D7018 不知其解,请哪位先生指教,谢谢!
可能是浮点操作错误,同意2楼。
----------------------------------------------
Function IThink(Boy,Girl : TPerson) : String; begin if Boy.钱 < 10W then Girl.Say(''滚!'') else begin if Girl.Anser = ''我愿意'' then Result := ''结婚'' else Result := IntToStr(88); end; 风过不折→百炼成尧 QQ: 7315910