teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

3

追記

2020/09/24 05:13

投稿

takax1990
takax1990

スコア3

title CHANGED
File without changes
body CHANGED
@@ -50,7 +50,7 @@
50
50
  ここに問題に対して試したことを記載してください。
51
51
 
52
52
  ### 補足情報(FW/ツールのバージョンなど)
53
- oracle 19c、Oracleクライアントは12.2.0.1.0です。
53
+ oracle 19c、Oracleクライアントは12.2.0.1.0(32bit)です。
54
54
  Windows 10 64bit、EXCEL 2016 32bitでADOはMicrosoft ActiveX Data Objects 6.0 Libraryを参照設定しています。
55
55
 
56
56
  AWS RDS for Oracleなので、

2

ツールのバージョン追記

2020/09/24 05:13

投稿

takax1990
takax1990

スコア3

title CHANGED
File without changes
body CHANGED
@@ -50,6 +50,8 @@
50
50
  ここに問題に対して試したことを記載してください。
51
51
 
52
52
  ### 補足情報(FW/ツールのバージョンなど)
53
+ oracle 19c、Oracleクライアントは12.2.0.1.0です。
54
+ Windows 10 64bit、EXCEL 2016 32bitでADOはMicrosoft ActiveX Data Objects 6.0 Libraryを参照設定しています。
53
55
 
54
56
  AWS RDS for Oracleなので、
55
57
  「SQLNET.ALLOWED_LOGON_VERSION_SERVER = 10または11を設定」することになりますが、RDS for Oracle においてこのパラメータグループの設定値は、Modifiable が false となっており、変更ができませんでした。つまり回避策が封じられている状態でした。

1

ADODBを関数にして利用していた部分のコード追加

2020/09/24 04:59

投稿

takax1990
takax1990

スコア3

title CHANGED
File without changes
body CHANGED
@@ -20,6 +20,29 @@
20
20
 
21
21
  ' データベースに接続
22
22
  Call conn.Connect(strOracleDataSource, strOracleUserID, strOracleUserPassword)
23
+
24
+ '-------------------------------------------------------------------------------------
25
+ Private OraConn As New ADODB.Connection
26
+
27
+ ' データベース接続フラグ
28
+ Private blnOpen As Boolean
29
+
30
+ Public Sub Connect(ByVal strDataSource As String, ByVal strUserID As String, ByVal strPassword As String)
31
+
32
+ ' データベースに接続するためのコマンド文字列生成
33
+ OraConn.ConnectionString = "Provider=MSDAORA;" & _
34
+ "Data Source=" & strDataSource & _
35
+ ";User ID=" & strUserID & _
36
+ ";Password=" & strPassword & ";"
37
+
38
+ ' 接続
39
+
40
+ OraConn.Open
41
+
42
+ ' フラグをON
43
+ blnOpen = True
44
+ End Sub
45
+
23
46
  ```
24
47
 
25
48
  ### 試したこと