SQL文で指定文字数の抽出方法を教えて下さい。

Question

VBAのADODB.ConnectionオブジェクトとSQL文を使ってエクセルにデータ抽出しようとしています。
SELECT文でOracle Database抽出しようとしています。

下記の場合の抽出方法が分かりません。

内容はテーブル内の特定フィールドから指定文字数を抽出したいです。

【受注テーブル】・・テーブルIDは ”JUTYU”
フィールドは４つで”CODE”と”NAME”、"SIIRE"、"SHUKKA"です。
CODEは商品品番、NAMEはその商品名、SIIREは入荷日、SHUKKAは出荷日のイメージです。

CODE NAME SIIRE SHUKKA
A123 テレビ 201704211 201704171
A124 冷蔵庫 201704211 201704171
A125 Ｆａｘ [phone] 201704171
A126 パソコン 201704251 201704191
A127 プレーヤー 201704251 201704191
A128 洗濯機 201704251 201704191

ここで、"SIIRE"、"SHUKKA"は９桁の数字になっています。
西暦４桁＋月２桁＋日２桁＋１
抽出結果には下１桁の”１”は削除し、
８桁（西暦４桁＋月２桁＋日２桁）で抽出したいです。

Dim strSQL As String
        strSQL = "select JUTYU.CODE,JUTYU.NAME,LEFT('JUTYU.SIIRE',8),LEFT('JUTYU.SHUKKA',8)"
        strSQL = strSQL & " from JUTYU"

"SIIRE"、"SHUKKA" はLEFTを使って左から８桁を抽出するようにしたつもりなのですが、
上手くできません。

修正コードを教えて頂きたいです。

★回答を頂き、SUBSTR(SIIRE,1,8),SUBSTR(SHUKKA,1,8) とすることで８桁で抽出することができました。
しかし、フィールド名を表示しなくなってしまいました。
フィールド名は下記コードで表示させています。エクセルへの出力シートは抽出結果です。

wMX = adoRs.Fields.Count
For N = 1 To wMX
    With Sheets("抽出結果")
	.Cells(1, N) = adoRs.Fields(N - 1).NAME
    End With
Next

文字数指定で抽出するとフィールド名が表示されなくなるのでしょうか？
教えて頂きたいです。

Answer 1

ORACLEにはLEFT関数は用意されていないようなので、SUBSTR関数を使うことになります。
また列名をシングルクォーテーションで囲ってしまうと文字列扱いになっていないでしょうか。

strSQL = "select CODE,NAME,SUBSTR(SIIRE,1,8),SUBSTR(SHUKKA,1,8)"
strSQL = strSQL & " from JUTYU"

Answer 2

Oracle に LEFT 関数はありません。
SUBSTR 関数を使用してください。

あと
LEFT('JUTYU.SIIRE',8)
ですが、列名をシングルクォートで囲む必要はありません。

Answer 3

SUBSTR('JUTYU.SIIRE',1,8)としてみると如何でしょうか？

参考サイト

Answer 4

SELECT
 JUTYU.CODE,
 JUTYU.NAME,
 REGEXP_REPLACE(JUTYU.SIIRE, '(\d{4})(\d{2})(\d{2})', '\1/\2/\3'),
 REGEXP_REPLACE(JUTYU.SHUKKA, '(\d{4})(\d{2})(\d{2})', '\1/\2/\3')
FROM
 JUTYU

とかどうでしょう。
2017-04-21 10:10:10 とかのフォーマットでも対応出来ますよ。

Comments

[cd987456]

回答ありがとうございます。
REGEXP_SUBSTR(JUTYU.SIIRE, '(\d{8})')で抽出した時、表示方法をyyyy／mm／dd　としたいの
ですが、どうも上手くいきません。教えて頂けると幸いです。

[kunai]

回答文を修正しました。regexp_substrではなく、regexp_replaceを使えばOKです

[cd987456]

上手く抽出できました。ありがとうございました。