Q&A
- ADOQuery로 원하는 엑셀시트열기
아래는 ADOQuery로 엑셀시트를 여는 겁니다.
현재는 Sheet명을 코딩으로 주어서 여는데
저것을 유저가 폼에서 엑셀 시트명을 입력하면 그것을 변수로 받아서 ADOQuery를
오픈 할려면 어떻게 하나요... 갈르쳐 주십시요.... 두번쨉니다.
//아래 변수에는"마케팅$"가 들어갑니다
//fname := ac_sheetName.text + '$';
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 [마케팅$]'; // 불러올 엑셀의sheet명
//맨위의 변수를 받아서 아래 구문처럼 대입 합니다. Error 입니다
//SQL.Text := 'SELECT * FROM [fname]'; // 불러올 엑셀의sheet명
open;
end;
현재는 Sheet명을 코딩으로 주어서 여는데
저것을 유저가 폼에서 엑셀 시트명을 입력하면 그것을 변수로 받아서 ADOQuery를
오픈 할려면 어떻게 하나요... 갈르쳐 주십시요.... 두번쨉니다.
//아래 변수에는"마케팅$"가 들어갑니다
//fname := ac_sheetName.text + '$';
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 [마케팅$]'; // 불러올 엑셀의sheet명
//맨위의 변수를 받아서 아래 구문처럼 대입 합니다. Error 입니다
//SQL.Text := 'SELECT * FROM [fname]'; // 불러올 엑셀의sheet명
open;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 송길수
- •
- 2001.06.28 03:04
- 1 COMMENTS
- /
- 0 LIKES
-
김하늘•2001.06.28 03:57setLength(동적배열변수, 갯수); 하면 0 부터 갯수 - 1 까정 생김... High(동적배열변수) - 배열의 마지...
-
- 베라
- •
- 2001.06.28 02:51
- 1 COMMENTS
- /
- 0 LIKES
-
김하늘•2001.06.28 04:02타이틀밴트 첫장에만--- 말밥 이지여.... 두번째 룰이 있남요 -- 일단 Qr라벨 이벤트 에서 OnPrint 덩가 ...
-
- 쭈꾸미
- •
- 2001.06.28 02:42
- 1 COMMENTS
- /
- 0 LIKES
-
양용민•2001.06.28 04:30퀵리포트 출력물을 디자인해 주는 프로그램 상용 프로그램이 있습니다. QrDesign 인데 http://www.thsd....
-
- 꿈까먹기
- 2001.06.28 02:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 꿈까먹기
- •
- 2001.06.28 02:16
- 1 COMMENTS
- /
- 0 LIKES
-
aparadin•2001.06.28 02:25꿈까먹기 wrote: > 제목 그대로 핑 테스트 하는 방법좀 갈켜주세요. > > 그리고 이런 네트워크에 관련...
-
- 왕초보
- 2001.06.28 02:14
- 0 COMMENTS
- /
- 0 LIKES
-
- 방기남
- •
- 2001.06.28 02:13
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.06.28 03:34데이터베이스 컴포넌트를 쓰시구여 트랜젝션처리를 하심 될검당... if not Db1.InTransection then db1...
-
- 한현숙
- •
- 2001.06.28 02:03
- 1 COMMENTS
- /
- 0 LIKES
-
하눌이•2001.06.28 02:07한현숙 wrote: > > 아래에 다른분들이 말씀해주신 방법을 다 해보았지만... > 계속 뜨네요... > datab...
-
-
하눌이•2001.06.28 02:05아보가드로 wrote: > 퀵레포트 사용시 DB없이 바로 출력할수 있나여? > 즉1장으로 출력되는게 아니고 여...
-
-
- 꿈까먹기
- 2001.06.28 01:49
- 0 COMMENTS
- /
- 0 LIKES
-
- Gandalf
- 2001.06.28 01:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 1004
- •
- 2001.06.28 00:46
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.06.28 03:39꼭 사용할 필요응 없는데여... 사용해 주는게 좋습니당.. 글구 입력받는 내용이 사번이랑 패스워드겠져...
-
- 우적우적
- 2001.06.28 00:44
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남영
- •
- 2001.06.28 00:09
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.06.28 11:21WebBrowser1.Navigate('memo1.txt'); 이게 원래 정석인데... Delphi 4.0이면 var a: Variant; begin...
-
- 초보
- •
- 2001.06.27 23:24
- 1 COMMENTS
- /
- 0 LIKES
아래는 ADOQuery로 엑셀시트를 여는 겁니다. 현재는 Sheet명을 코딩으로 주어서 여는데 저것을 유저가 폼에서 엑셀 시트명을 입력하면 그것을 변수로 받아서 ADOQuery를 오픈 할려면 어떻게 하나요... 갈르쳐 주십시요.... 두번쨉니다. //...-
임성룡•2001.07.04 04:31초보 wrote: > 아래는 ADOQuery로 엑셀시트를 여는 겁니다. > 현재는 Sheet명을 코딩으로 주어서 여는데 ...
-
- 미니
- 2001.06.27 23:08
- 0 COMMENTS
- /
- 0 LIKES
-
- aparadin
- •
- 2001.06.27 22:37
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.06.28 11:24http://kldp.org/Translations/html/Socket_Programming-KLDP/Socket_Programming-KLDP.html linux 개발...
-
- 윤광희
- 2001.06.27 22:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 송우진
- 2001.06.27 21:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김남영
- 2001.06.27 20:58
- 0 COMMENTS
- /
- 0 LIKES
> 아래는 ADOQuery로 엑셀시트를 여는 겁니다.
> 현재는 Sheet명을 코딩으로 주어서 여는데
> 저것을 유저가 폼에서 엑셀 시트명을 입력하면 그것을 변수로 받아서 ADOQuery를
> 오픈 할려면 어떻게 하나요... 갈르쳐 주십시요.... 두번쨉니다.
>
> //아래 변수에는"마케팅$"가 들어갑니다
> //fname := ac_sheetName.text + '$';
>
> 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 [마케팅$]'; // 불러올 엑셀의sheet명
>
> //맨위의 변수를 받아서 아래 구문처럼 대입 합니다. Error 입니다
> //SQL.Text := 'SELECT * FROM [fname]'; // 불러올 엑셀의sheet명
>
> open;
> end;
SQL.Text := 'SELECT * FROM ['+fname+']'; 이렇게 하면 됩니당...즐코하세요