Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


36095 / 76732 ←次へ | 前へ→

【45822】DB接続が出来ません
質問  G&G  - 07/1/15(月) 13:30 -

引用なし
パスワード
   初めましてこんにちは

MSQueryを使ってOLACLEデータをEXCELに抽出したいんですが,MSQueryから手動では抽出出来るんですがVBAで抽出が出来ずに困っています何方かご教授頂けないでしょうか?

自動記録では以下の記述はしてくるんですが
SQL文の知識が全くないもので

  With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
    "ODBC;DSN=PROD_6C1;UID=PROD_USER;PWD=PROD_USER;DBQ=PROD_6C1;DBA=W;APA=T;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;FRL=F;MTS=F;CSR=F;PFC=1" _
    ), Array("0;TLO=0;")), Destination:=Range("A1"))
    .CommandText = Array( _
    "SELECT DISTINCT EUCKOUMOKUT.KAIBMNID, EUCKOUMOKUT.PRDDAY, EUCKOUMOKUT.KAISU, EUCKOUMOKUT.SIZJUNO, MOTOITACUTSSZT.SIZSSZNO, EUCKOUMOKUT.HRPRCKBNG, EUCKOUMOKUT.SLTBNG, MOTOITACUTSSZT.SLOTNAILR, MOTOITAC" _
    , _
    "UTSSZT.SLOTNAIGLSMUKI, MOTOITACUTSSZT.JUGYONO, EUCKOUMOKUT.SSNJUN, MOTOITACUTSSZT.HINRYAKU, MOTOITACUTSSZT.CUTSNPH, MOTOITACUTSSZT.CUTSNPW, EUCKOUMOKUT.MAISU, MOTOITACUTJUNIT.CUTJUNBNG"&chr(13)&""&chr(10)&"FROM PROD_USER" _
    , _
    ".EUCKOUMOKUT EUCKOUMOKUT, PROD_USER.MOTOITACUTJUNIT MOTOITACUTJUNIT, PROD_USER.MOTOITACUTSSZT MOTOITACUTSSZT"&chr(13)&""&chr(10)&"WHERE EUCKOUMOKUT.KAIBMNID = MOTOITACUTSSZT.KAIBMNID AND EUCKOUMOKUT.JUGYONO = MOTOITACUTS" _
    , _
    "SZT.JUGYONO AND EUCKOUMOKUT.SIZSSZNO = MOTOITACUTSSZT.SIZSSZNO AND MOTOITACUTSSZT.HINRYAKU = MOTOITACUTJUNIT.HINRYAKU AND MOTOITACUTSSZT.SIZSSZNO = MOTOITACUTJUNIT.SIZSSZNO AND EUCKOUMOKUT.KAIBMNID = " _
    , _
    "MOTOITACUTJUNIT.KAIBMNID AND EUCKOUMOKUT.JUGYONO = MOTOITACUTJUNIT.JUGYONO"&chr(13)&""&chr(10)&"GROUP BY EUCKOUMOKUT.KAIBMNID, EUCKOUMOKUT.PRDDAY, EUCKOUMOKUT.KAISU, EUCKOUMOKUT.SIZJUNO, MOTOITACUTSSZT.SIZSSZNO, EUCKOUMO" _
    ,,)
    .Name = "マルチ切断テスト"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .Refresh BackgroundQuery:=False
  End With

0 hits

【45822】DB接続が出来ません G&G 07/1/15(月) 13:30 質問
【45825】Re:DB接続が出来ません Kein 07/1/15(月) 14:46 発言
【45945】Re:DB接続が出来ません G&G 07/1/18(木) 14:26 お礼

36095 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free