SQLClientDataSet과 DataSource를 올려 놓고요...
SQLClientDataSet를 데이터 연결한 다음에  commandType을 ctQuery로 놓고
commandText를  select BKNAME from BOOK where BKDATE = :sbkdate 로 놓았거든요....


그리고 DataSource 와 DBListBox1를 연결한 다음에

void __fastcall Tfrmmain::FormCreate(TObject *Sender)
{
        AnsiString day1 = DateToStr(Date());
        SQLClientDataSet1->Params[0].ParamByName("sbkdate")->AsString =day1;
        while(!SQLClientDataSet1->Eof )
        {

                DBListBox1->Items->Add(SQLClientDataSet1->FieldByName("BKNAME")->AsString );
                SQLClientDataSet1->Next();
        }
}

이렇게 써 넣었는데요.....
리스트 박스에 표시가 안되는데 뭐가 잘못 된건가요??

while문을 빼고 dbgrid에 연결하면 잘보여지거든요..^^;
while문에서 틀린것 같은데...^^;


잘 모르겠어요...
알려주세요..^^;