with DM.qrBuy do
begin
Close;
sql.Clear;
sql.Add('insert into "' + tb_name + '" (bdate, c_code, s_code, bcount, lastprice, bprice, amount, buga) ');
sql.Add('values(:N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8)');
Parambyname('N1').AsDateTime:= dtBuy.Date;
Parambyname('N2').AsString:= txtcCode.Text;
Parambyname('N3').AsString:= txtsCode.Text;
Parambyname('N4').AsFloat:= txtCount.Value;
Parambyname('N5').AsCurrency:= find_lastprice;
Parambyname('N6').AsCurrency:= curPrice.Value;
Parambyname('N7').AsCurrency:= curAmount.Value;
Parambyname('N8').AsCurrency:= curBuga.Value;
end;
위의 문장에서 "Cannot perform this operation on a closed dataset"이란 에러가 납니다. select문이나 update에서는 별이상없이 수행이 되는데 말이죠.
이 에러의 정체를 알고 싶습니다.
소소을 전부 쓰신게 맞다면....
execSql이 빠진거 같네요...
그게 아니라면... ^^;
별로 도움이 되지 못한거 같네요...
그럼 이만...
박성훈 께서 말씀하시기를...
> with DM.qrBuy do
> begin
> Close;
> sql.Clear;
> sql.Add('insert into "' + tb_name + '" (bdate, c_code, s_code, bcount, lastprice, bprice, amount, buga) ');
> sql.Add('values(:N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8)');
> Parambyname('N1').AsDateTime:= dtBuy.Date;
> Parambyname('N2').AsString:= txtcCode.Text;
> Parambyname('N3').AsString:= txtsCode.Text;
> Parambyname('N4').AsFloat:= txtCount.Value;
> Parambyname('N5').AsCurrency:= find_lastprice;
> Parambyname('N6').AsCurrency:= curPrice.Value;
> Parambyname('N7').AsCurrency:= curAmount.Value;
> Parambyname('N8').AsCurrency:= curBuga.Value;
> end;
>
> 위의 문장에서 "Cannot perform this operation on a closed dataset"이란 에러가 납니다. select문이나 update에서는 별이상없이 수행이 되는데 말이죠.
> 이 에러의 정체를 알고 싶습니다.
>