質問編集履歴
2
省略箇所の追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -3,28 +3,53 @@
|
|
|
3
3
|
VB6のソースの一部を記載します。
|
|
4
4
|
|
|
5
5
|
```lang-VB
|
|
6
|
-
'ダイナセットを作成する
|
|
6
|
+
'ダイナセットを作成する'
|
|
7
|
-
Dim vstrSql As String
|
|
7
|
+
Dim vstrSql As String
|
|
8
|
-
Dim
|
|
8
|
+
Dim V_Arsl1 As OraDynaset
|
|
9
|
+
Dim V_Arsl2 As OraDynaset
|
|
9
10
|
|
|
11
|
+
vstrSql = "SELECT FROM DB_START WHERE ID = '00001'
|
|
12
|
+
Set V_Arsl1 = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)
|
|
13
|
+
|
|
10
14
|
vstSQL = "SELECT * FROM DB_A &_
|
|
11
15
|
WHERE NO_A IN ( &_
|
|
12
16
|
SELECT NO_B FROM DB_B WHERE ID = '012345')"
|
|
17
|
+
Set V_Arsl2 = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)
|
|
13
18
|
|
|
14
|
-
Set V_Arsl = g_oo4o_DB.CreateDynaset(vstrSql, ORADYN_NO_BLANKSTRIP + ORADYN_NOCACHE)
|
|
15
|
-
|
|
16
19
|
'（中略）'
|
|
20
|
+
'ダイナセット１での更新処理'
|
|
21
|
+
V_Arsl1.Edit
|
|
22
|
+
If V_Arsl1.EOF = False Then
|
|
23
|
+
Do Until V_Arsl1.EOF
|
|
24
|
+
V_Arsl1("FLG") = '0'
|
|
17
25
|
|
|
26
|
+
V_Arsl1.Update
|
|
27
|
+
V_Arsl1.MoveNext
|
|
28
|
+
Loop
|
|
29
|
+
Else
|
|
30
|
+
V_Arsl1.Close
|
|
31
|
+
Set V_Arsl1 = Nothing
|
|
32
|
+
End If
|
|
33
|
+
|
|
34
|
+
'ダイナセット２の解放'
|
|
35
|
+
V_Arsl.Close
|
|
36
|
+
Set V_Arsl = Nothing
|
|
37
|
+
|
|
38
|
+
'ダイナセット２での更新処理'
|
|
18
|
-
|
|
39
|
+
V_Arsl2.Edit '//ここでエラーが出る'
|
|
19
|
-
If
|
|
40
|
+
If V_Arsl2.EOF = False Then
|
|
20
41
|
Do Until V_Arsl2.EOF
|
|
21
42
|
V_Arsl2("FLG") = '0'
|
|
22
43
|
|
|
23
44
|
V_Arsl2.Update
|
|
24
45
|
V_Arsl2.MoveNext
|
|
25
46
|
Loop
|
|
47
|
+
Else
|
|
48
|
+
V_Arsl2.Close
|
|
49
|
+
Set V_Arsl2 = Nothing
|
|
26
50
|
End If
|
|
27
51
|
|
|
52
|
+
'ダイナセット２の解放'
|
|
28
53
|
V_Arsl2.Close
|
|
29
54
|
Set V_Arsl2 = Nothing
|
|
30
55
|
|
1
更新内容の記述
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -18,7 +18,8 @@
|
|
|
18
18
|
V_Arsl.Edit '//ここでエラーが出る'
|
|
19
19
|
If V_Arsl.EOF = False Then
|
|
20
20
|
Do Until V_Arsl2.EOF
|
|
21
|
-
'
|
|
21
|
+
V_Arsl2("FLG") = '0'
|
|
22
|
+
|
|
22
23
|
V_Arsl2.Update
|
|
23
24
|
V_Arsl2.MoveNext
|
|
24
25
|
Loop
|