回答編集履歴
2
コード修正
test
CHANGED
|
@@ -22,19 +22,19 @@
|
|
|
22
22
|
|
|
23
23
|
i=0
|
|
24
24
|
|
|
25
|
-
Do until oraRs.EOF
|
|
25
|
+
Do until oraRs.EOF '最終レコードまでループ
|
|
26
26
|
|
|
27
|
-
If ary(i, 0).Value <> oraRs
|
|
27
|
+
If ary(i, 0).Value <> oraRs!名前.Value Or
|
|
28
28
|
|
|
29
|
-
|
|
29
|
+
ary (i, 1).Value <> oraRs!住所.Value Or
|
|
30
30
|
|
|
31
|
-
|
|
31
|
+
ary (i, 2).Value <> oraRs!電話.Value Then
|
|
32
32
|
|
|
33
|
-
oraRs
|
|
33
|
+
oraRs!名前.Value = ary(i, 0).Value
|
|
34
34
|
|
|
35
|
-
oraRs
|
|
35
|
+
oraRs!住所.Value = ary(i, 1).Value
|
|
36
36
|
|
|
37
|
-
oraRs
|
|
37
|
+
oraRs!電話.Value = ary(i, 2).Value
|
|
38
38
|
|
|
39
39
|
oraRs.Update
|
|
40
40
|
|
1
コード修正
test
CHANGED
|
@@ -20,7 +20,7 @@
|
|
|
20
20
|
|
|
21
21
|
|
|
22
22
|
|
|
23
|
-
i=0
|
|
23
|
+
i=0
|
|
24
24
|
|
|
25
25
|
Do until oraRs.EOF
|
|
26
26
|
|