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

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

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

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

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

[CLS]매크로 거행(검사)밑의 이미지 위의 첫번째 다홍색갑의 방향부를 클릭후, 밑 바른쪽과 같이 [거행]단추을 클릭 합니다. ClearContentsEnd Sub나. 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범위의 내용이 다 지워집니다.

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

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

BORDQTY, A. INAMEK, A. BORDDATE, A. SNAMEK, A.

QueryTables. BORDNO )”) Set qt1 = 덮개s(“BORD”). 정원TAMT “, _ “FROM 상명@ORCL A WHERE BORDDATE BETWEEN 정원_DATE(‘” & bdate1 & “‘,’YYYY/MM/DD’) AND정원_DATE(‘” & bdate2 & “‘,’YYYY/MM/DD’) 배팅오더 BY A. 정원TPRICE, A.

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

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

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

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

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

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

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

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