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
고수님의 조언을 좀.
아래 소스와 똑같이 합니다.
하나 다른게 있다면 쿼리문 넣을때 저는 sql.text := 'select ~'; 이렇게 안하고 sql.add('select ~'); 이렇게 하거든요.
그럼 잘 되든데...
성공하시길...