procedure TForm4.Button4Click(Sender: TObject);
begin
with Query1 do begin
query1.close;
sql.clear;
sql.add('select * from exam');
sql.add('where year="'+edit1.text +'" and subject ="'+edit2.text +'" ');
open;
end;
end;
procedure TForm4.Button1Click(Sender: TObject);
begin
with Query2 do begin
query2.close;
sql.clear;
sql.add('insert into exam '); <---- 이 인서트가 잘 안되서 cursor
error handlingdl 안됩니다.
sql.add('values (" '+edit3.text+'","'+edit4.text+'","'+edit5.text+'")');
open;
end;
<-update sql 을 사용하지 않았는데 query는 read only 라고 하는 말을 어디서
들은 것 같은데 ...? 많은 분의 답장 바랍니다.
> procedure TForm4.Button4Click(Sender: TObject);
> begin
> with Query1 do begin
> query1.close;
> sql.clear;
> sql.add('select * from exam');
> sql.add('where year="'+edit1.text +'" and subject ="'+edit2.text +'" ');
> open;
> end;
> end;
>
>
>
>
> procedure TForm4.Button1Click(Sender: TObject);
> begin
> with Query2 do begin
> query2.close;
> sql.clear;
> sql.add('insert into exam '); <---- 이 인서트가 잘 안되서 cursor
> error handlingdl 안됩니다.
> sql.add('values (" '+edit3.text+'","'+edit4.text+'","'+edit5.text+'")');
> open;
> end;
>
> <-update sql 을 사용하지 않았는데 query는 read only 라고 하는 말을 어디서
> 들은 것 같은데 ...? 많은 분의 답장 바랍니다.
>
제가 보기에는 다음 부분이 잘못된거 같군요..
procedure TForm4.Button1Click(Sender: TObject);
begin
with Query2 do begin
query2.close;
sql.clear;
sql.add('insert into exam ');
sql.add('values ("
'+edit3.text+'","'+edit4.text+'","'+edit5.text+'")');
open; <-- 이부분이 잘못됐군요.. ExecSql을 사용해야..
end;
end;
Insert, Update, Delete를 사용할 경우 Open이 아니라 ExecSql을 사용해야 됩니다..