常連

全角文字と半角文字が入り乱れている文字列を分割し、２つの変数に格納する際に、泣き別れが発生しないように対応を変えて分割をしたいと考えています。

前提として、自分の環境だと全角文字は１文字に対して３バイト扱いとなります。
下記のコードでは文字列'あああいいいaa'（全角文字6文字×3 = 18 + 半角2文字で合計20バイト）の文字を最大10バイトの変数２つに分割しようとしています。
これだと、4文字目の「い」が9~11バイトにかかっており、10バイトずつ分割した場合に泣き別れが発生して、
str1の最後に半角スペース１つ、str2の最初に半角スペース２つという形で「い」が置き換えられてしまいます。
```PLSQL
DECLARE
str0 VARCHAR2(20);
str1 VARCHAR2(10);
str2 VARCHAR2(10);
BEGIN
	str0 := 'あああいいいaa';

	IF LENGTHB(str0) > 10 THEN
		str1 := str0;
	ELSE
		str1 := SUBSTRB(str0,1,10);
		str2 := SUBSTRB(str0,11);
	END;

	DBMS_OUTPUT.PUT_LINE(str1);
	DBMS_OUTPUT.PUT_LINE(str2);
END;
```
求める結果としては、上記の場合だと
「あああ」までをstr1に格納し、
「いいいa」までをstr2に格納し、入りきらない最後の「a」は格納しないといった処理を行いたいです。

PLSQLで全角半角文字が入り乱れているデータの泣き別れ対応

## テーマ、知りたいこと
VBAからノートPCへダウンロードしたoracleへ接続方法

## 背景、状況
ネットでoracleへの接続方法を調べてコードを書いたがエラーが出て接続できない状況です。
エラー
「プロバイダが見つかりません、正しく接続されていない可能性があります」と表示される。
コードでいうと　conn.Open　この部分でエラーが発生しています。

##試したこと
oracleクライアントのインストール、Microsoft ActiveX Data Objects X.X Libraryの参照設定。
下記のサイトの内容を参考にしました。
https://skill-note.net/vba-oracle-connect/

```VBA
'TNS使用時
    Provider = "OraOLEDB.Oracle" 'Provider
    DATA_SOURCE = "XE"           'Data Source
    USER_ID = "SYSTEM"           'userid
    PASSWORD = "*********"      'password
    
    'TNSサービス名を使用せず直接接続する場合
    HOST_NAME = "LAPTOP-UA2JN1S2"     'データベースのホスト名orIPアドレス
    PORT_NO = "1521"          'データベースのポート
    SERVICE_NAME = "XE"       'サービス名
    
    'Const DATA_SOURCE = "(DESCRIPTION=(ADDRESS=(PROTOCOL = TCP)(HOST = localhost)(PORT = 1521))(CONNECT_DATA = (SERVER = DEDICATED)(SERVICE_NAME = XE)))"
    SQL = "Select * from t1"
    Dim conn As New ADODB.Connection
    
    'TNSサービス名を使用せず直接接続する場合
   'cn.ConnectionString = "Provider=" & Provider & ";Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=HOST_NAME)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=XE)))" _
    '                   & ";USER ID=" & USER_ID _
     '                  & ";PASSWORD=" & Password
    
        
    'TNS使用時
    conn.ConnectionString = _
                    "Provider=" & Provider & ";" & _
                    "Data Source=" & DATA_SOURCE & ";" & _
                    "USER ID=" & USER_ID & ";" & _
                    "Password=" & PASSWORD & ";"
    
    conn.Open
    
    Dim rs As New ADODB.Recordset

    rs.Source = SQL
    rs.ActiveConnection = conn
    rs.Open
    
    With Worksheets("Sheet1")
    Stop
        .Cells.Clear
        
        '列名の表示
        For i = 0 To rs.Fields.Count - 1
            .Cells(1, i + 1) = rs(i).Name
        Next i

        '値の表示
        row = 1
        Do Until rs.EOF
            For i = 0 To rs.Fields.Count - 1
                .Cells(row + 1, i + 1) = rs(i).Value
            Next i
            rs.MoveNext
            row = row + 1
        Loop
    End With
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub


```

よろしければご教授おねがいいたします。

VBAからoracleへの接続方法

### 実現したいこと

・該当UPDATE文の処理時間短縮

### 前提・発生している問題

OracleDBを使用し、一時表へデータをINSERT・一時表内でUPDATE・一時表からSELECTを行うプロシージャを作成しました。
SQLDevelopperで実行した際、更新対象データ件数が8000件程度であれば下記のUPDATE文1つに20分以上かかります（1時間かかる場合もあり、その時々によって変わる）。
UPDATE文はプロシージャ内で複数記述していますが、処理時間を要するものは** DENSE_RANK() OVER(~~) **を利用している以下のようなUPDATE文の場合に限られるようで、それ以外のUPDATE文は1秒以内で完了します。

UPDATE文の大幅な処理速度の低下について考えられる原因・解決策・調査方法をご教示ください。


### 該当のソースコード

```Oracle Database
    UPDATE
        TMP_TABLE  T
    SET
        T.NUM = (
                   SELECT
                        WK_T.SORT_NO
                   FROM
                         (
                           SELECT DISTINCT
                                 COLUMN1
                                 , COLUMN2
                                 , COLUMN3
                                 , COLUMN4
                                 , SORT_COLUMN 
                                 , DENSE_RANK() OVER(ORDER BY SORT_COLUMN) AS SORT_NO
                           FROM
                                TMP_TABLE  
                          )WK_T
                     WHERE
                          T.COLUMN1 = WK_T.COLUMN1
                           AND T.COLUMN2 = WK_T.COLUMN2
                           AND T.COLUMN3 = WK_T.COLUMN3  
                           AND T.COLUMN4 = WK_T.COLUMN4  
                           AND T.SORT_COLUMN = WK_T.SORT_COLUMN
     　　　　　　　)
     ;
```

### 試したこと
更新対象データ件数を8000件から6000件に減らすと、同じUPDATE文が1秒以内で実行完了することを確認しました。

### 補足情報

・ACTIVEなSQLのコストを確認すると233059397でした。（そこからコストは変化しませんでした）

・また、以下のSQLでセッション情報を確認しました。
```
select
   a.INST_ID
  , a.SID
  , a.TYPE
  , a.ACTION
  , a.COMMAND
  , c.COMMAND_NAME
  , a.STATUS
  , a.LAST_CALL_ET                                -- 今の状態になってからの経過時間
  , trunc((sysdate - a.SQL_EXEC_START) * 24 * 60 * 60, 2) as "秒" --実行し続けている時間
  , a.WAIT_CLASS                                  -- 待機イベントクラス
  , a.EVENT                                       ----- 一時セグメントを利用しているか
  , u.TABLESPACE
  , u.SEGTYPE                                     -- 一時セグメントの種別
  , u.BLOCKS                                      -- 割り当てられたブロック数
  --PGA情報
  , p.PGA_USED_MEM                                --現在使用中のPGA
  , p.PGA_ALLOC_MEM                               --現在割り当てられているPGAメモリ
  , p.PGA_FREEABLE_MEM                            --解放できる割当済みPGAメモリ
  , p.PGA_MAX_MEM                                 --割り当てられた最大PGAメモリ
from
  gv$SESSION a 
  left outer join gv$process p 
    on a.INST_ID = p.INST_ID 
    and a.PADDR = p.ADDR 
  left outer join gv$transaction r 
    on a.SADDR = r.SES_ADDR 
    and a.INST_ID = r.INST_ID 
  left outer join gV$TEMPSEG_USAGE u 
    on a.SADDR = u.SESSION_ADDR 
    and a.SERIAL# = u.SESSION_NUM 
    and a.INST_ID = u.INST_ID 
  left outer join v$sqlcommand c 
    on a.COMMAND = c.COMMAND_TYPE 
where
  1 = 1 
  and a.TYPE = 'USER' 
  and a.status = 'ACTIVE' 
order by
  a.INST_ID
  , a.STATUS
  , a.SQL_EXEC_START


```
![イメージ説明](https://ddjkaamml8q8x.cloudfront.net/questions/2023-08-17/94d4b19c-0ed3-40d6-8dea-78b36aa0fd2b.png)

・使用している一時表の構造ですが、キーは無しでNUMBER型の項目が10個あるだけです。

・SORT_COLUMNでインデックスを作成しましたが効果は全くありませんでした。


当方、プログラミング初学者の為解決に必要な情報が分かりません。不足している情報があればご指摘いただきたいです。



Oracle Databaseのプロシージャ内で実行するUPDATE文が、特定の状況で処理に時間がかかりすぎる

ご存知でしたら、ご教授下さい。

Oracle 12cは、sqlnet.oraの設定で下位バージョンのOracle Clientからの接続を許可できました。

しかし、oracle 19cをインストール後にPC内を検索してもsqlnet.oraが存在しないです。。
インストール用のフォルダ内には存在しているのですが。。
sqlnet.oraがない理由か他の下位バージョン許可方法をご存じないでしょうか？

お手数ですが、よろしくお願い致します。

Oracle19c:下位バージョンのOracle Clientからの接続を許可する方法

### 質問事項
サーバーリプレースに伴い、現環境の構成を踏襲した新環境を構築しました。
現環境へではすぐに回答のあるアプリケーションが、新環境ではレスポンスが非常に遅くなってしまっています。
この時に確認すべき項目として何が挙げられますでしょうか？

### 前提
現環境と新環境による違いは以下の通りです。
現行を踏襲する想定のもと、ApacheならびにTomcatの各種設定内容は現行の設定内容を踏襲しています。

＜現環境＞
　◆OS：WindowsServer2012R2
　◆MW：Apache2.4.16、Tomcat8.0

＜新環境＞
　◆OS：WindowsServer2019
　◆MW：Apache2.4.57、Tomcat9.0

バックエンドとして、Oracleデータベース(Oracle Database 12c Release 12.1.0.1.0 - 64bit Production)が存在しております。
現環境と新環境はNW的には同じセグメントに配置しています。
ApacheとTomcatは同一サーバで共存しています。
Tomcatで動かすアプリケーションはJavaで開発したモジュールで、現新で同じアプリを起動させています。

### 確認したこと
現環境と新環境にてブラウザの開発者ツール(Chrome)を用いてネットワークパフォーマンスを確認したところ
Waitin for Server Response に非常に時間が掛かっている状態でした。
サーバーは基本、ファイアウォールは停止し、Symantec社製のEndpointを導入、現新で同じような設定にしています。

環境としては、同じNW、同じサーバースペック、ほぼ同じ設定ファイルを利用しているにも関わらず
新環境が遅くなる理由が今のところ明確に出来ていない状態です。
お知恵をお借りしたく質問致します。


バージョンアップ後でWEBレスポンス悪化の原因と対処方法のご相談

### 実現したいこと

下記のような、同一テーブル内の結果の値が異なる行を数えたいです。
テーブルの中は、本来はもっと多くのデータがありますが必要な部分だけ抜粋してみました。

抽出し、数えたいのは下記のような形です。
商品列(syohin)
フラグ列flg(1～4)の中で0と１またはnull値が混じるデータがあるとします。
この表で、フラグの値が異なる"行"の数だけカウントしたいです。
（フラグの値が1だけでも、0だけでもない。　0と1とnullが混在する行）
■追記　nullの扱いについて。
全ての値がnullという行は存在しないと思いますが、
もし存在している場合は1でも0でもない、異なる行という扱いを取りたい。

下の表で行くと、結果はcount(syohin)　4
という結果となるのが理想です。

-----zaikoテーブル-----

syohin/flg1/flg2/flg3/flg4
aaa/1/0/1/0
bbb/1/1/1/1
ccc/1/1/0/0
dde/0/0/1/0
eee/1/1/1/1
fff/0/0/0/0
ggg/1/null/0/0



### 試したこと
そもそもこのやり方があっているのかどうかわかりませんが、
カウントする前に一度表に出してみることとしました。
```ここに言語を入力
select
syohin
,flg1
,flg2
,flg3
,flg4
from syohin
Where 
flg1
+flg2
+flg3
+flg4
>= 1 and
flg1
+flg2
+flg3
+flg4 < 4;
```
こちらを実行すると
-----zaikoテーブル-----
syohin/flg1/flg2/flg3/flg4
aaa/1/0/1/0
ccc/1/1/0/0
dde/0/0/1/0

flg1～4の値を横に足し算し、足し算の結果が1以上4未満となった
行は取り出せたように見えました。
ただ１つ問題があり、nullがあるデータが取り出せませんでした。

②対象列のカウント
上の表の条件は変えずにzaiko列を数えます。
```ここに言語を入力
select
count(syohin)
from syohin
Where 
flg1
+flg2
+flg3
+flg4
>= 1 and
flg1
+flg2
+flg3
+flg4 < 4;
```

結果：count(syohin)３


まとめると、
・nullがある行も対象にしたいのですが、どうしたらnullも含まれるようになるのでしょうか。
・上の書き方はかなり冗長的で改善の余地があると思いますが
他にどのような抽出方法がありますでしょうか。

ご教示の程よろしくお願い致します。

再追記）
数えたい対象が列と行反対でしたので掲載し直しました。
回答してくださった方申し訳ございません。



同一テーブルの結果が異なる行数をカウントしたい。

### 状況
システムAとBの2つがあり、それぞれ別のデータベースの情報を参照しています。
システムAはDB_LINKでシステムBのデータベースの情報を見れる状態になっているのですが、
これまでは問題なくシステムBのデータベース情報が参照できていましたが、
ある日以下のエラーが発生し、システムBのデータベース情報が見れなくなりました。

### エラーメッセージ内容
ORA-00942　表またはビューが存在しません。
ORA-02063　先行のエラー・メッセージを参照してください line(<DB_LINKの名称>)


### 質問
1．システムAから参照しようとしているテーブルは削除されいないのですが、「ORA-00942」のエラーが出る原因として何が考えられるでしょうか。
2．上記の「ORA-02063」のエラーは、DB_LINKが切れたことを指しているのでしょうか。
3．質問2の認識があっている場合、DB_LINKが突然切れるようなことがあるのでしょうか。

お手数ですが、ご教示いただけないでしょうか。

ORA-02063のエラーについて

xxhiroxx_chanと申します。
いつもお世話になっております。

Oracleのユーザー権限でSELECT権限があるはずなのに「SELECT ANY TABLE」が確認できない現象に関しての質問です。

DB上のテーブル等に対してSELECT権限を持つユーザーは、

SELECT * FROM USER_SYS_PRIVS  または、
SELECT * FROM SESSION_PRIVS

で、PRIVILEGEに「SELECT ANY TABLE」のレコードがあると認識しているのですが、
このレコードが出てきません。

ネットで調べて、ROLE経由での権限の可能性があるからそちらでも調査して、
との指摘があったため、

SELECT * FROM USER_ROLE_PRIVS  および、
SELECT * FROM ROLE_SYS_PRIVS

で調べてみましたが、「SELECT ANY TABLE」にあたるものが出てきませんでした。


なお、複数のDBで確認し、上記のように「SELECT ANY TABLE」が確認できないのは１つだけでした。
ちなみにそのDBのPRIVILEGEは
「UNLIMITED TABLESPACE」と「CREATE VIEW」です。

今回の目的は、自分に与えられているユーザ（管理者ではない）に必要ない権限が与えられていないかどうかを確認することです。

よろしくお願いいたします。