Q&A

  • ADO를 사용하면서 발생하는 문제인데 ....
with Test.ADOQuery1 do  //
  begin
     ls_path := ('c:'+'복지자금.xls');                  // 회사 융자 원금, 이자
     if not FileExists(ls_path) then
     begin
        showmessage(sSlyymm+'임시.xls 파일이 존재하지 않습니다.');
     end
     else
     begin
        close;
        ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
                             ls_path + ';Extended Properties=Excel 8.0;Persist Security Info=False';
        SQL.Clear;
        SQL.Text := 'SELECT F1, SUM(F11), SUM(F16) FROM [이자현황$] GROUP BY F1';
        open;
     end;
  end;
  Test.ADOQuery1.Close;
------------------------------------------------------------
이렇게 ADO를 사용했는데 확인을 위해 디버깅을 하면 SQL.Text := 'Select ....'
이부분에서 멈추거나 아님 메모리 에러가 난다는 메세지만 나옵니다...
왜그런지 전혀 이유를 모르겠네요...
참고로 OS는 2000 Pro이고 Delphi 6.0 , Excel 2000
고수님의 조언을 좀.
1  COMMENTS
  • Profile
    sky 2003.07.09 03:27
    저도 지금 비슷한 코딩을 하는 중인데요.
    아래 소스와 똑같이 합니다.
    하나 다른게 있다면 쿼리문 넣을때 저는 sql.text := 'select ~'; 이렇게 안하고 sql.add('select ~'); 이렇게 하거든요.
    그럼 잘 되든데...
    성공하시길...