안녕하세요 김동원입니다...



당연히 안될수 밖에 없네요..

현재 Query1을 Select문으로 Open한 상태에서

SQL문에 다시 내용을 추가 한다는 것은 불가능한 일입니다.

또한 추가가 된다해도 제대로 실행 된다는게 만무하고요..

BatchMove를 사용하시는게 좋을듯 싶네요..

예로...

var

tbTemp: TTable;

begin

with Query1 do

begin

Active := false;

SQL.clear;

SQL.Add('Select order_date,account_num,code,sum(trade_amount)');

SQL.Add('From tblorderstatus_con');

SQL.Add('Where trade_type="2" ');

SQL.Add('Group By order_date,account_num,code');

Active := True;

end;

if( Not(Query1.Bof and Query1.Eof) )then

begin

tbTemp := TTable.Create(Application);

try

tbTemp.Active := false;

tbTemp.DatabaseName := ...........

tbTemp.TableName := sample;

tbTemp.Active := true;

tbTemp.BatchMove( Query1, batAppend );

finally

tbTemp.Free;

end;

end;



end;



도움이 되셨기를...



델파이초보 wrote:

> 델파이 초보데요....

> 저 좀 도와주세요...초보라 넘 힘들군요....

> 제목 그대로 입니다..

> 소스를 올려 드릴께요.. 이런 방법이 맞는지도 모르겠고..어째든 부탁드립니다

> with query1 do begin

> close;

> sql.clear;

> sql.Add('select order_date,account_num,code,sum(trade_amount)');

> sql.add('from tblorderstatus_con');

> sql.add('where trade_type="2" ');

> sql.add('group by order_date,account_num,code');

> open;

> sql.add('insert into sample');

> sql.add('date,accountnum,code,sulang');

> sql.add('values order_date,account_num,code,sum of trade_amount');

> sql.add('from tblorderstatus_con');

> end;

김동원님 정말 감사드립니다...

이것때문에 얼마나 고생했는지 모릅니다...

다시 한번 감사드리고요...

지송하지만 한가지만 더 여쭤 볼게요...

소스는 다음과 같음...

procedure tform1.table_ref(date,name,code :string;amount:integer);

var

temp,rec,sum:integer;

begin

with query1 do begin

close;

sql.add('select order_date,account_num,code,trade_amount,trade_price');

sql.add('from tblorderstatus_con');

sql.add('where order_date=s_date and');

sql.add('where account_num=s_name and');

sql.add('where account_num=s_name ');

open;

end;

query1.First;

sum:=0;

while not query1.eof do begin

temp:=query1.fieldbyname('trade_amount').asinteger;

if sum= amount then begin

rec:=query1.recordcount;

break;

end

else begin

sum:=sum+temp;

next;

end;

end;



end;

델파이초보 wrote:

>

> 김동원님 정말 감사드립니다...

> 이것때문에 얼마나 고생했는지 모릅니다...

> 다시 한번 감사드리고요...

> 지송하지만 한가지만 더 여쭤 볼게요...

> 소스는 다음과 같음...

> procedure tform1.table_ref(date,name,code :string;amount:integer);

> var

> temp,rec,sum:integer;

> begin

> with query1 do begin

> close;

> sql.add('select order_date,account_num,code,trade_amount,trade_price');

> sql.add('from tblorderstatus_con');

> sql.add('where order_date=s_date and');

> sql.add('where account_num=s_name and');

> sql.add('where account_num=s_name ');

> open;

> end;

> query1.First;

> sum:=0;

> while not query1.eof do begin

> temp:=query1.fieldbyname('trade_amount').asinteger;

> if sum= amount then begin

> rec:=query1.recordcount;

> break;

> end

> else begin

> sum:=sum+temp;

> next;

> end;

> end;

>

> end;



Query 문이 상당히 이상하군여...



sql.add('select order_date,account_num,code,trade_amount,trade_price');

sql.add('from tblorderstatus_con');

sql.add('where order_date=s_date and');

sql.add('where account_num=s_name and'); <-- 여기의 where

sql.add('where account_num=s_name '); <-- 여기의 where는 모져..



sql.add('select order_date,account_num,code,trade_amount,trade_price');

sql.add('from tblorderstatus_con');

sql.add('where order_date=s_date ');

sql.add('and account_num=s_name ');

sql.add('and account_num=s_name ');



sql만드는 부분을 다시 공부해보세여...

그렇게 어렵지 않은디...

델파이초보 wrote:

>

> 김동원님 정말 감사드립니다...

> 이것때문에 얼마나 고생했는지 모릅니다...

> 다시 한번 감사드리고요...

> 지송하지만 한가지만 더 여쭤 볼게요...

> 소스는 다음과 같음...

> procedure tform1.table_ref(date,name,code :string;amount:integer);

> var

> temp,rec,sum:integer;

> begin

> with query1 do begin

> close;

> sql.add('select order_date,account_num,code,trade_amount,trade_price');

> sql.add('from tblorderstatus_con');

> sql.add('where order_date=s_date and');

> sql.add('where account_num=s_name and');

> sql.add('where account_num=s_name ');

> open;

> end;

> query1.First;

> sum:=0;

> while not query1.eof do begin

> temp:=query1.fieldbyname('trade_amount').asinteger;

> if sum= amount then begin

> rec:=query1.recordcount;

> break;

> end

> else begin

> sum:=sum+temp;

> next;

> end;

> end;

>

> end;



에공.. 쿼리문을 잘못 옮기신게 아닌지요?

sql.add('select order_date,account_num,code,trade_amount,trade_price');

sql.add('from tblorderstatus_con');

sql.add('where order_date=s_date ');

sql.add('and account_num=s_name ');



그거 말구 에러는 없는거 같네요..