안녕하세요 고수님들! ^^;

제가 지금 10초마다 Update 하는 프로그램을 짜고있는데,

잘 안되고 있습니다. (프로그램이 항상 돌면서 10초마다 업데이트 하는 프로그램입니다.)

소스는 아래와 같고요. 실행을 시키면 ..

'Project Project1.exe raised exception class ENoResultSet with message 'Error creating cursor handle'. Process stopped. Use Step or Run to continue.' 이런 에러가 납니다.

해결방법 꼭좀 알려주세요.



그럼 오늘도 즐거운 하루되세요.









unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Grids, DBGrids, Db, DBTables, ExtCtrls;



type

TForm1 = class(TForm)

Timer1: TTimer;

Database1: TDatabase;

Query1: TQuery;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

procedure FormCreate(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

Timer1.Enabled := True;

end;



procedure TForm1.Timer1Timer(Sender: TObject);

begin

Query1.Close;

Query1.Sql.Clear;

Query1.Sql.Add('update test01 set t_arg=26');

Query1.Sql.Add(' where t_id=:nu ');

Query1.ParamByName('nu').AsInteger :=4;

Query1.Open;

end;



end.