Q&A
- 예외처리가 안걸리네요...
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
with ADOQuery1 do
begin
close;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
OpenDialog1.FileName +
';Extended Properties=Excel 8.0;Persist Security Info=False';
SQL.Clear;
SQL.Text := 'SELECT * FROM [Sheet1$]';
try
open;
except on EOleException do begin
ShowMessage('Excel 파일 읽기 오류');
exit;
end;
end;
end;
end;
버튼을 눌렀을때 엑셀파일을 읽어 오는데
읽다가 중간에 에러가 나면 에러처리를 하려 하는데
잘 안되네요...
고수님들의 한수 가르침을 바랍니다...
begin
if OpenDialog1.Execute then
with ADOQuery1 do
begin
close;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
OpenDialog1.FileName +
';Extended Properties=Excel 8.0;Persist Security Info=False';
SQL.Clear;
SQL.Text := 'SELECT * FROM [Sheet1$]';
try
open;
except on EOleException do begin
ShowMessage('Excel 파일 읽기 오류');
exit;
end;
end;
end;
end;
버튼을 눌렀을때 엑셀파일을 읽어 오는데
읽다가 중간에 에러가 나면 에러처리를 하려 하는데
잘 안되네요...
고수님들의 한수 가르침을 바랍니다...
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- ajfxlspt
- 2000.09.23 18:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 이창식
- •
- 2000.09.23 12:02
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.09.24 17:07이창식 wrote: > 아래의 메소드를 이용하여 메일을 보내려고 하는데 소켓오류가 납니다.도와주세요. > ==...
-
- 창돌이
- •
- 2000.09.23 10:47
- 3 COMMENTS
- /
- 0 LIKES
-
이창식•2000.09.23 12:22창돌이 wrote: > 안녕하십니까. > > 자식창에 패널을 놓구여 그 위에 페인트 박스을 놓구여 외부에 신...
-
창돌이•2000.09.23 12:39이창식 wrote: > 제가 알기로는 그문제를 해결할려면 좀 복잡한 작업을 해야하는데... > 아니면 편번이지...
-
이창식•2000.09.23 13:14창돌이 wrote: > 이창식 wrote: > > 제가 알기로는 그문제를 해결할려면 좀 복잡한 작업을 해야하는데......
-
- 제임스박
- •
- 2000.09.23 09:44
- 5 COMMENTS
- /
- 0 LIKES
-
bassmania•2000.09.23 22:13안녕하세요. 배스마니아 조덕진입니다. 저도 초보라서 큰 도움이 될지는 모르겠지만, 나름대로 해결법을 ...
-
창돌이•2000.09.23 11:02안녕하세요 델파이초보 창돌이 입니다. 저도 잘 모르지만 혹시 도움이 된다면. 퀴리 프로퍼티에 보면 ...
-
제임스박•2000.09.23 11:43창돌이 wrote: > 안녕하세요 > 델파이초보 창돌이 입니다. > > 저도 잘 모르지만 혹시 도움이 된다면....
-
성더기•2000.09.23 20:15모 일단 처음쓰신 위의 소스는 맞는거 같습니다.(대충바선..^^;;) 근데 한가지 궁금한게 있는데여.. DBGr...
-
창돌이•2000.09.23 12:15죄성합니다. 잘 모르면서 오답을 드려서요. 하지만 초보 끼리 한번 해봅시당. ^^; 그런데 굳이 쿼리을 ...
-
- 정우석
- 2000.09.23 09:15
- 0 COMMENTS
- /
- 0 LIKES
-
- 박재연
- 2000.09.23 08:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 웹사이트
- 2000.09.23 06:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초
- 2000.09.23 06:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 삥
- •
- 2000.09.23 05:20
- 2 COMMENTS
- /
- 0 LIKES
-
이경문•2000.09.23 06:08P2P라고 하면 Peer to Peer를 말씀하시는 건가요? 삥 wrote: > 요즘 P2P 그러는데 P2P에 사용되는 SEARCH...
-
삥•2000.09.23 07:03네 이경문 wrote: > P2P라고 하면 Peer to Peer를 말씀하시는 건가요? > 삥 wrote: > > 요즘 P2P 그러...
-
- 양용민
- 2000.09.23 05:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 정형모
- 2000.09.23 04:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.09.23 04:51
- 1 COMMENTS
- /
- 0 LIKES
-
강경중•2000.09.23 09:12왕초보 wrote: > 한 화면에서 볼 수 있는 1개의 row의 길이는 제한되어 있습니다. > 좌,우 스크롤을 사용...
-
- 조헌철
- 2000.09.23 04:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 조영모
- 2000.09.23 04:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 이성훈
- •
- 2000.09.23 04:08
- 2 COMMENTS
- /
- 0 LIKES
-
이창식•2000.09.23 12:42이성훈 wrote: > 안녕하세요 반계탕 이성훈입니다. > 제목과 마찬가지로 text file의 내용을 db로 올리려...
-
강경중•2000.09.23 09:19이성훈 wrote: > 안녕하세요 반계탕 이성훈입니다. > 제목과 마찬가지로 text file의 내용을 db로 올리려...
-
- won
- 2000.09.23 04:02
- 0 COMMENTS
- /
- 0 LIKES
-
- [델파이]
- 2000.09.23 03:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 부르솔
- •
- 2000.09.23 03:50
- 1 COMMENTS
- /
- 0 LIKES
-
강경중•2000.09.23 09:28부르솔 wrote: > 저겨......^^;;; > 전 델 왕초보 걸랑여? 하긴 잘하는게 암것두 엄찌만...... > 하튼여...
-
- 박일용
- •
- 2000.09.23 03:50
- 1 COMMENTS
- /
- 0 LIKES
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then with ADOQuery1 do begin close; ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + OpenDialog1.FileName + ';Extended Prop...-
강경중•2000.09.23 09:30박일용 wrote: > procedure TForm1.Button1Click(Sender: TObject); > begin > if OpenDialog1.Execut...
-
- coolling
- 2000.09.23 03:39
- 0 COMMENTS
- /
- 0 LIKES
> procedure TForm1.Button1Click(Sender: TObject);
> begin
> if OpenDialog1.Execute then
> with ADOQuery1 do
> begin
> close;
>
> ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
> OpenDialog1.FileName +
> ';Extended Properties=Excel 8.0;Persist Security Info=False';
> SQL.Clear;
> SQL.Text := 'SELECT * FROM [Sheet1$]';
>
> try
> open;
> except on EOleException do begin
> ShowMessage('Excel 파일 읽기 오류');
> exit;
> end;
> end;
>
> end;
> end;
>
> 버튼을 눌렀을때 엑셀파일을 읽어 오는데
> 읽다가 중간에 에러가 나면 에러처리를 하려 하는데
> 잘 안되네요...
> 고수님들의 한수 가르침을 바랍니다...
>
제가 알고 있는 Try 문장은 예외처리 부분의 시작이라고 생각합니다.
그러므로 Try 문장 이전에 일어난 예외상황은 처리 할수 없읍니다.
도움이 되었으면 합니다.