質問編集履歴
3
追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -102,7 +102,7 @@
|
|
102
102
|
|
103
103
|
### 補足情報(FW/ツールのバージョンなど)
|
104
104
|
|
105
|
-
oracle 19c、Oracleクライアントは12.2.0.1.0です。
|
105
|
+
oracle 19c、Oracleクライアントは12.2.0.1.0(32bit)です。
|
106
106
|
|
107
107
|
Windows 10 64bit、EXCEL 2016 32bitでADOはMicrosoft ActiveX Data Objects 6.0 Libraryを参照設定しています。
|
108
108
|
|
2
ツールのバージョン追記
test
CHANGED
File without changes
|
test
CHANGED
@@ -102,6 +102,10 @@
|
|
102
102
|
|
103
103
|
### 補足情報(FW/ツールのバージョンなど)
|
104
104
|
|
105
|
+
oracle 19c、Oracleクライアントは12.2.0.1.0です。
|
106
|
+
|
107
|
+
Windows 10 64bit、EXCEL 2016 32bitでADOはMicrosoft ActiveX Data Objects 6.0 Libraryを参照設定しています。
|
108
|
+
|
105
109
|
|
106
110
|
|
107
111
|
AWS RDS for Oracleなので、
|
1
ADODBを関数にして利用していた部分のコード追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -42,6 +42,52 @@
|
|
42
42
|
|
43
43
|
Call conn.Connect(strOracleDataSource, strOracleUserID, strOracleUserPassword)
|
44
44
|
|
45
|
+
|
46
|
+
|
47
|
+
'-------------------------------------------------------------------------------------
|
48
|
+
|
49
|
+
Private OraConn As New ADODB.Connection
|
50
|
+
|
51
|
+
|
52
|
+
|
53
|
+
' データベース接続フラグ
|
54
|
+
|
55
|
+
Private blnOpen As Boolean
|
56
|
+
|
57
|
+
|
58
|
+
|
59
|
+
Public Sub Connect(ByVal strDataSource As String, ByVal strUserID As String, ByVal strPassword As String)
|
60
|
+
|
61
|
+
|
62
|
+
|
63
|
+
' データベースに接続するためのコマンド文字列生成
|
64
|
+
|
65
|
+
OraConn.ConnectionString = "Provider=MSDAORA;" & _
|
66
|
+
|
67
|
+
"Data Source=" & strDataSource & _
|
68
|
+
|
69
|
+
";User ID=" & strUserID & _
|
70
|
+
|
71
|
+
";Password=" & strPassword & ";"
|
72
|
+
|
73
|
+
|
74
|
+
|
75
|
+
' 接続
|
76
|
+
|
77
|
+
|
78
|
+
|
79
|
+
OraConn.Open
|
80
|
+
|
81
|
+
|
82
|
+
|
83
|
+
' フラグをON
|
84
|
+
|
85
|
+
blnOpen = True
|
86
|
+
|
87
|
+
End Sub
|
88
|
+
|
89
|
+
|
90
|
+
|
45
91
|
```
|
46
92
|
|
47
93
|
|