^_^;

안녕하세여.. 나두 초보입니다..

ADO 컨트롤을 사용하면 간단하게 할수 있습니다....

이렇게만 말하면.. ㅡㅡ; 모른다고 난감하실까봐..

대략 소스 올립니다..

킁킁..



ADO qry 컨포런트를 사용합니다.





str := 'select * from [sheet1$]'



with adoqry do begin

close;

adoqry.connectionstring :=

'Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '+

'D:exam2001-11-06_prescription.xls'+

';Persist Security Info=False';

sql.clear;

sql.add(str);

open;

while not adoqry.eof do begin

.... 여기 입력루틴.. // 여기에 입력할 테이블의 쿼리를 돌리면 됩니다..

next;

end;

close;

end;





구람... 날씨 추운데 감기 조심하시고...

휘리리릭~~~







델델~~~ wrote:

> ===========================================================================

> procedure TF_execl.btn_restoreClick(Sender: TObject);

> var c_name,f_filename :string;

> begin

> f_filename := 'D:exam2001-11-06_prescription.xls';

> c_name := 'Sheet1';

> with ExcelQuery1 do begin

> close;

> ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +

> f_filename + ';Extended Properties=Excel 8.0;Persist Security Info=False';

> SQL.Clear;

> SQL.Text := 'SELECT * FROM ['+c_name+'$]';

> open;

> ============================================================================

> 이렇게 엑셀 파일에 있던 데이터들을 가지고 와서

> 원하는 테이블에는 어떻게 넣는건가요...

> 엑셀 파일을 연다음 원하는 테이블에 어떻게 insert 시키는지 좀 알려주세요.

> 여기 있는 자료실과 질문들은 다 검색해 봤는데 너무 추상적으로 나온것 같아서요.

> 제가 아직 초보라 이해를 잘 못하기도 하구요..

>

> 아시는 분 계시면 제발 답변 좀 부탁드립니다.

한가지 더 물어보고 싶은게 있어서요..



원하는 쿼리문은 넣으면 된다고 하셨는데..

저는 'insert into ppp....'하고 싶거든요..

원래 insert 문에는 컬럼이름과 values(..)이렇게 들어갈 값을 주잖아요..

근데..여기서는 들어갈 값을 어떻게 지정해 주어야 하는건가요..



자꾸 물어봐서 죄송스럽지만 아시면 꼭 좀 갈쳐주세요..*^^*

-.-;~



쩝.. ㄴ ㅔ ㄴ ㅔ...



Adoquery로 엑셀을 오픈하면..

엑셀시트 맨위의 값이 필드명이 됩니다..

이거 말씀하시는거 맞죠..

^_^

구람 휘리리리릭~~~







델델~~~ wrote:

> 한가지 더 물어보고 싶은게 있어서요..

>

> 원하는 쿼리문은 넣으면 된다고 하셨는데..

> 저는 'insert into ppp....'하고 싶거든요..

> 원래 insert 문에는 컬럼이름과 values(..)이렇게 들어갈 값을 주잖아요..

> 근데..여기서는 들어갈 값을 어떻게 지정해 주어야 하는건가요..

>

> 자꾸 물어봐서 죄송스럽지만 아시면 꼭 좀 갈쳐주세요..*^^*