안녕하세요.
매번 질문만 하게 되네요.
with datamodule do
begin
sqlstr :='';
query1.Close;
query1.sql.clear;
sqlstr := 'select * from C'+xdat+' D,A'+xdat+' D1 ';
sqlstr := sqlstr + 'WHERE (D.PAN = D1.AN) and a_s is null ';
sqlstr := sqlstr + 'ORDER BY D.PAN, D1.AN';
query1.add(sqlstr);
query1.ExecSQL;
query1.RequestLive := true;
with datasource.DataSet do
begin
//{DataSet이 열람가능일때만 작업}
//if State = dsBrowse then
// exit;
First; //첫 레코드로 이동
while not Eof do
begin
Edit;
FieldByName('f1').Asstring := 'aa';
Post;
Next; //다음 레코드로
end; //end of while
end; //end of with
end; // end if with
위와같이 두 테이블을 조인 한 다음에 d1에 있는 필드를 d에 있는 필드값으로 수정을 하려고 하는데요. 에러가 발생합니다.( Cannot modify a read-only dataset )
또 다음과같은 작업을 할때에 위와같이 해야되는 것인지 조차 잘 모르겠습니다.
(위에서는 조건에 맞게 조인한다음 만들어진 테이블을 가지고 처음 레코드부터
끝 레코드까지 Looping하여 수정할 필드의 값을 주는형식입니다, select 문에서
바로 Update 문을 쓸수 없나요...)
선배님들의 많은 도움 부탁합니다.
db는 dbaseIII+를 사용합니다.
> 안녕하세요.
> 매번 질문만 하게 되네요.
>
> with datamodule do
> begin
> sqlstr :='';
> query1.Close;
> query1.sql.clear;
> sqlstr := 'select * from C'+xdat+' D,A'+xdat+' D1 ';
> sqlstr := sqlstr + 'WHERE (D.PAN = D1.AN) and a_s is null ';
> sqlstr := sqlstr + 'ORDER BY D.PAN, D1.AN';
> query1.add(sqlstr);
> query1.ExecSQL;
> query1.RequestLive := true;
>
> with datasource.DataSet do
> begin
> //{DataSet이 열람가능일때만 작업}
> //if State = dsBrowse then
> // exit;
> First; //첫 레코드로 이동
> while not Eof do
> begin
> Edit;
> FieldByName('f1').Asstring := 'aa';
> Post;
> Next; //다음 레코드로
> end; //end of while
> end; //end of with
> end; // end if with
>
> 위와같이 두 테이블을 조인 한 다음에 d1에 있는 필드를 d에 있는 필드값으로 수정을 하려고 하는데요. 에러가 발생합니다.( Cannot modify a read-only dataset )
> 또 다음과같은 작업을 할때에 위와같이 해야되는 것인지 조차 잘 모르겠습니다.
> (위에서는 조건에 맞게 조인한다음 만들어진 테이블을 가지고 처음 레코드부터
> 끝 레코드까지 Looping하여 수정할 필드의 값을 주는형식입니다, select 문에서
> 바로 Update 문을 쓸수 없나요...)
> 선배님들의 많은 도움 부탁합니다.
>
> db는 dbaseIII+를 사용합니다.
조인된 데이타는 수정불가하고 updateSQL를 사용해야 합니다!
>