回答編集履歴
2
ExcelVBA
answer
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
ファイルData.mdbはExcelと同一フォルダから読み込みます。
|
|
10
10
|
尚、CDate/Cstr入れていますが入れなくともExcel側が勝手に判断してセットする筈ですが、参考に書き加えました。
|
|
11
11
|
|
|
12
|
-
```
|
|
12
|
+
```ExcelVBA
|
|
13
13
|
'***********************************************************
|
|
14
14
|
' ACCESS単純読み込み試験
|
|
15
15
|
'*************************************************************
|
1
<code>部分
answer
CHANGED
|
@@ -9,9 +9,11 @@
|
|
|
9
9
|
ファイルData.mdbはExcelと同一フォルダから読み込みます。
|
|
10
10
|
尚、CDate/Cstr入れていますが入れなくともExcel側が勝手に判断してセットする筈ですが、参考に書き加えました。
|
|
11
11
|
|
|
12
|
+
```ここに言語を入力
|
|
12
|
-
'***********************************************************
|
|
13
|
+
'***********************************************************
|
|
13
14
|
' ACCESS単純読み込み試験
|
|
14
|
-
'*************************************************************
|
|
15
|
+
'*************************************************************
|
|
16
|
+
Function Test_Sample_Miniature() As Boolean
|
|
15
17
|
|
|
16
18
|
Dim Cn As ADODB.Connection
|
|
17
19
|
Dim Rs As ADODB.Recordset
|
|
@@ -19,15 +21,15 @@
|
|
|
19
21
|
Dim strSQL As String
|
|
20
22
|
Dim MyPath As String
|
|
21
23
|
Dim lRow As Long
|
|
22
|
-
|
|
24
|
+
|
|
23
25
|
'自分フォルダのAccessFile名称取得
|
|
24
26
|
MyPath = ThisWorkbook.Path & "\" & "Data.mdb"
|
|
25
|
-
|
|
27
|
+
|
|
26
28
|
'db1.mdbの取得
|
|
27
29
|
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data"
|
|
28
30
|
ConnectString = ConnectString & " Source=" & MyPath
|
|
29
31
|
ConnectString = ConnectString & ";Persist Security Info=False"
|
|
30
|
-
|
|
32
|
+
|
|
31
33
|
'DataTableはテーブル名称/KUBUNN～UPDYMDは項目名称
|
|
32
34
|
strSQL = ""
|
|
33
35
|
strSQL = strSQL & "SELECT " & vbLf
|
|
@@ -44,14 +46,14 @@
|
|
|
44
46
|
'Open ADODB
|
|
45
47
|
Set Cn = New ADODB.Connection
|
|
46
48
|
Cn.Open ConnectString
|
|
47
|
-
|
|
49
|
+
|
|
48
50
|
'Open Recordset
|
|
49
51
|
Set Rs = New ADODB.Recordset
|
|
50
52
|
Rs.Open strSQL, Cn, adOpenKeyset, adLockReadOnly
|
|
51
53
|
|
|
52
54
|
ErrPosition = "実行処理"
|
|
53
55
|
'実行処理
|
|
54
|
-
|
|
56
|
+
|
|
55
57
|
lRow = 0
|
|
56
58
|
Do Until Rs.EOF = True Or Rs.BOF = True
|
|
57
59
|
'
|
|
@@ -74,5 +76,6 @@
|
|
|
74
76
|
Set Cn = Nothing
|
|
75
77
|
|
|
76
78
|
ACCESS単純読み込み試験 = True
|
|
77
|
-
|
|
79
|
+
|
|
78
|
-
End Function
|
|
80
|
+
End Function
|
|
81
|
+
```
|