db 쿼리 엑셀(EXCEL)에서 쿼리하기(QUERY)(MACRO, 오라클(ORACLE)DB VISUALBASIC) OLEDB로

매크로 생성을 위한 덮개기록밑와 같이 부탁날를 결정하여 [검색]단추을 클릭하면 오라클사실베이스의 부탁 상에서 결정한 기간의 필드를 엑셀기록철로 DISPLAY하도록 해보겠습니다. 우선 밑와 같이 부탁리스트라는 선수권과 부탁개막, 부탁기각를 기록 합니다. 금번에는 OLE사실베이스로 엑셀(EXCEL)에서 오라클(ORACLE)사실베이스를쿼리(QUERY)하는 기법을 알아 보도록 하겠습니다. OLE사실베이스로 엑셀(EXCEL)에서 오라클(ORACLE)사실베이스 쿼리하기(QUERY)(MACRO, VISUALBASIC) 기왕 블로그 기사에서 O사실베이스C로 엑셀(EXCEL)에서 오라클(ORACLE)사실베이스의 상을 연동시켜 보았는데요.

밑와 같이 근본 폼이 만들어졌으면 덮개아래의 덮개명 [덮개1]을 [BORD]라는 명으로 개정 합니다. 미라 밑와 같이 메뉴판의 [개벌공구]에서 [매크로보안]을 클릭하여 [보안센터포워드]-[매크로설정]에서 우측의 매크로 설정에서 [VBA 매크로 고용(권장 안함, 불안전하다 코드가 거행될 수 있음)]을 간택 검사후, 밑의 [개척자 매크로 설정]에서 [VBA 계획 개개 모델에 안전하게 엑세스 할 수 있음]을 간택 검사 합니다. 셀 F3과 H4의 셀의 단추은 엑셀 메뉴판에서 [주입] [원전상자]를 이용해 만들고 원전 구절를 입력 합니다. 각 디스크에 해당하는 각 컬럼에 엄동설한 필드명 기록하고, 기중하다 셀에 불신을 입힙니다.

밑와 같이 VBAProject(연합문서)에서 우측 마우스를 클릭후 [주입]-[모듈]을 간택 합니다. 3. 매크로생성[개척공구]에서 [Visual Basic]을 클릭 합니다. 2.

BORD셀 A6부터 I1,000까지 화면을 클리어 시키라는 매크로 곡절 입니다. 가. 곡절을 보면 기미 채셨을 겁니다. [CLS]매크로기록밑와 같이 Sub CLS()매크로를 정의 합니다.

ClearContentsEnd Sub나. [CLS]매크로 거행(검사)밑의 이미지 위의 첫번째 다홍색박스의 방향부를 클릭후, 밑 우측과 같이 [거행]단추을 클릭 합니다. ScreenUpdating = False조리기(“BORD!A6:I1000”). [CLS]매크로코드 기록Sub CLS()Application.

당연히수정후 거듭 거행하면 됩니다. 다. 만약 매크로코드 곡절중 잘못된 부분이 위치하다각 밑와 같이 과실창이 나옵니다. 이과정은 매크로를 거행해보는건데요, BORD덮개의 A6셀부터 I1000사이의 구간에 어떤 곡절이 있었다각 구간안의 곡절이 지워졌을 겁니다.

밑와 같이 위에서 만든 매크로명이 나오면 매크로명 [CLS]를 간택후 [인정]메뉴판를 클릭 합니다. 라. 밑와 같이 [CLS]단추에서 우측마우스를 클릭하여 [매크로 결정]메뉴판를 클릭 합니다. [CLS]단추에 [CLS]매크로코드 결정CLS매크로코드 정의가 완결되었으니 [CLS]단추에 CLS매크로를 연결해 보도록 하겠습니다.

[검색]매크로 기록 가. 밑와 같이 BORD덮개의 각 컬럼에 넣을 값을 QUERY하는 코드를 기록 합니다. 4. [CLS]단추을 거행밑 왼쪽과 같이 A7셀과 B7에 곡절을 입력후 밑 우측과 같이 [CLS]단추을 클릭하면 A6부터 I1,000구간의 곡절이 전부 지워집니다.

ClearContents bdate1 = 조리기(“BORD!B3”). Value2bdate2 = 조리기(“BORD!D3”). ScreenUpdating = False조리기(“BORD!A6:H1000”). Sub QUERY()Application.

BORDNO, A. 자아NO, A. 1;User 자아=USER자아/PASSWORD;Data 근거=ORCL” sqlstring = Array( _ “SELECT BORDNO, 자아NO,SNAMEK, BORD교제, INAMEK, BORDQTY,정원TPRICE,정원TAMT,”, _ “FROM (SELECT A. Value2 Dim qt1 뒷손질 QueryTable connstring = “OLE사실베이스;Provider=MSDASQL.

INAMEK, A. BORDQTY, A. BORD교제, A. SNAMEK, A.

BORDNO )”) 무대장치 qt1 = 덮개s(“BORD”). QueryTables. 정원TAMT “, _ “FROM 상명@ORCL A WHERE BORD교제 BETWEEN 정원_교제(‘” & bdate1 & “‘,’YYYY/MM/DD’) AND정원_교제(‘” & bdate2 & “‘,’YYYY/MM/DD’) ORDER BY A. 정원TPRICE, A.

FieldNames = False. RowNumbers = False. MaintainConnection = False. Add(Connection:=connstring, Destination:=조리기(“BORD!A6”), Sql:=sqlstring) With qt1.

AdjustColumnWidth = False. RefreshPeriod = 0. RefreshStyle = xlOverwriteCells. FillAdjacentFormulas = True.

매크로 코드 검사코드기록후밑와 같이 첫 다홍색박스의 방향부 겉모습의 매크로 거행 단추을 클릭 합니다. 1) [검색]을 위한 O사실베이스C드라이브 간택[CLS]단추 검사때와느 다르게 나래와 같이 O사실베이스C사실 오리지널을 간택 하는데요. Refresh BackgroundQuery:=False End WithEnd Sub나. PreserveColumnInfo = True.

3) [검색]결말 DISPLAYBORD덮개에 ORACLE 사실베이스에서 QUERY한 곡절이 보입니다. 다. 여기에 [덤 Name]와 [User Name], [암호]를 입력후 [교료]단추을 클릭 합니다. 기왕 블로그에서 작서 하였던 [ORACLE 12C O사실베이스C]를 간택후 [인정]단추을 클릭 하면,2) ORACLE 사실베이스연동을 위한 자아와 PASSWORD입력밑와 같이 Oracle O사실베이스C 나사돌리개 Connect창이 나옵니다.

2) 매크로 명중 위에서 만든 [QUERY]를 간택 후 [인정]단추을 클릭 합니다. 3) [검색]단추 결말 인정이제 검색단추을 클릭하면 가정에 맞는 결말가 웨이터고,4) [CLS]단추 인정[CLS]단추을 클릭하면 A6셀부터I1000구간의 셀곡절이 지워집니다. 1) [검색]단추에서 우측마우스를 클릭하여 [매크로결정]을 간택 합니다. [검색]단추 매크로결정금번에는 [검색]단추에 매크로를 결정합니다.

밑와 같이 기록철명 결정후 기록철 꼴에서 [Excel 매크로 고용 서숙 기록철]간택 후 저장 하여야 합니다. 기록철 저시장 밑와 같이 메시지 창이 나오는데요. 엑셀기록철 저장매크로가 있는 엑셀기록철은 Excel연합문서로 저막하면 안됩니다. 5.

6. 매크로 암호설정참고로 비주얼베이직으로 기록한 코드를 보호하기 위험 암호설정을 할 수 있는데요. 엑셀기록철 열때마다 O사실베이스C드라이브 연결말 오라클 사실베이스 로그인 과정으로 인해결혼결례 있기 때문 입니다. 기록철을 열때 매크로가 가동하게 하여 새로운 공기로 유지시켜 줄까? 하고 묻는건데요,[아니오]를 권장 합니다.

#OLE사실베이스, #엑셀, #EXCEL, #오라클, #ORACLE, #쿼리, #QUERY, #MACRO, #VISUALBASIC, #VBA, #VBA매크로, #매크로암호, #비주얼베이직. 끝 “OLE사실베이스로 엑셀(EXCEL)에서 오라클(ORACLE)사실베이스 쿼리하기(QUERY)(MACRO, VISUALBASIC)”에 거학 알아보았습니다. 암호는 밑와 같이 l 비주얼베이직 애플리케이션 창에서 [공구]-[VBAproject 속성(E)]-[보호]에서 설정할 수 있습니다.