<!--CodeS-->
With Query1 do begin
Close;
SQL.Clear;
SQL.Add('Select Sa_Cust,Sa_JuruAmt+Sa_JabAmt as CustReceipt ');
SQL.Add('from Sa020sm ');
SQL.Add('Where Sa_Year = :edtDate ');
SQL.Add('and Sa_Cust = :Cust ');
SQL.Add('Order by Sa_Cust ');
ParamByName('edtDate').AsString := edtYear.Text + edtMonth.Text + edtDay.Text;
ParamByName('Cust').AsString := QryBuyCust.FieldbyName('Sa_Cust').AsString;
Open;
ShowMessage(FloatToStr(FieldbyName('CustReceipt').AsFloat));
QryInputBuyCust.Close;
QryInputBuyCust.SQL.Clear;
QryInputBuyCust.SQL.Add('Update TempTbl Set ');
QryInputBuyCust.SQL.Add('CustReceipt = :CustReceipt ');
QryInputBuyCust.SQL.Add('Where CustCode = :CustCode ');
==> QryInputBuyCust.ParamByName('CustReceipt').AsString := FieldbyName
('CustReceipt').AsString;
QryInputBuyCust.ParamByName('CustCode').AsString := QryBuyCust.FieldbyName
('Sa_Cust').AsString;
QryInputBuyCust.ExecSQL;
end;
<!--CodeE-->
위와 같이 했을때 ==> 부분에서 조건식의 데이터 형식이 일치하지 않는다고 나옵니다..
그래서 Select문에서 Select Sa_JabAmt만 남기고도 해보아도 마찬가지의 에러가 뜹니다.
거의 같은형식으로 해서 다른문장은 넘어갔는데..
다른 부분은 Group by로 위의 Select문을 묶은것은 에러가 나지 않습니다.
그래서 이것도 혹시 몰라 Group by로 묶어봤지만 역시나 같은에러가...
Sa_Cust : String
CustReceipt : Double
인데요
DB는 MS Access이고 툴은 델파이 7입니다..
고수님들의 답을 기다려봅니다....
2. > ==> QryInputBuyCust.ParamByName('CustReceipt').AsString := FieldbyName
2에서 형변환이 제대로 되지 않은것 같습니다.