Q&A

  • Select할때 데이터가 딱 하나만 나와요...
음..데이타를 저장한 다음에..
프로그램을 종료했다가 다시 실행하면
데이타값이 딱 한개만 나오거든요..
저장을 했으니까 다나와야 하는데..
왜그런지 암만 봐도 잘 모르겠어요..
소스는요..
.
var
    SQLString,SearchDate : String;
begin
    SearchRowCnt := 0;

    SearchDate := FormatDateTime('YYYY-MM-DD',OrderDate.Date);

//    DM.ADOCon.BeginTrans;
    with DM.Query do
    begin
        Close;
        SQL.Clear;
        SQLString :='select a.*, b.item_name, c.buy_name';
        SQLString := SQLString +' from tb_layin a, bas_item b, bas_buy c';
        SQLString := SQLString + ' where a.item_code=b.item_code and a.buyer_code=c.buy_code and buying_date=:buying_date';
        SQL.Add( SQLString);
        Parameters.ParamByName('BUYING_Date').Value := SearchDate;

        Open;
        While NOT EOF do
        begin
            Inc(SearchRowCnt);
            SearchGrid.Cells[0,SearchRowCnt] := FieldByName('Buying_ID').AsString;
            SearchGrid.Cells[1,SearchRowCnt] := FieldByName('Buying_DATE').AsString;
            SearchGrid.Cells[2,SearchRowCnt] := FieldByName('buy_Name').AsString;
            SearchGrid.Cells[3,SearchRowCnt] := FieldByName('Charge_Name').AsString;
            GetOrderDetail(SearchRowCnt);
            SearchRowCnt := SearchRowCnt-1;


            Next;
        end;
    end;
//    DM.ADOCon.CommitTrans;
.
이거거든요..
select해서 값 가져오고..뿌려줬는데..
왜 자꾸 데이타가 덜나오는지..
혹시 select가 잘못된건가요?
알려주세요~
아시는분 답변 부탁드려요~(__)
1  COMMENTS
  • Profile
    2002.10.30 08:43
    Open후에 First를 수행하고, While Loop로 들어가보세요.

    즐코하세요...^^