VB通过snapshot访问oracle数据出错,请教解决方法(急),多谢
oracle 数据库连接成功,尝试用最简单的select语句读snapshot成功下文select在sql*plus 中读取成功,但是在VB 通过snapshot读取出错。
SQL*PLUS下:
SQL> SELECT DISTINCT D.HELP_TITLE AS MAIN_HELP_TITLE
2 , C.HELP_TITLE AS TOPIC_HELP_TITLE
3 , C.HELP_CYPHER
4 , C.HELP_VAR
5 , C.HELP_PCS
6 , C.CONTEXT
7 FROM scmssa.A_PACK_ITEM_02 A
8 , scmssa.A_HELP_KEY_01 B
9 , scmssa.A_HELP_TITLE_01 C
10 , scmssa.A_HELP_TITLE_01 D
11 WHERE A.PACK_CYPHER = 'NE6A'
12 AND A.PACK_VAR = 'AA'
13 AND A.PACK_PCS = '04'
14 AND B.ATOM_LANGUAGE = 'EN'
15 AND B.HELP_CYPHER = A.ITEM_CYPHER
16 AND B.HELP_VAR = A.ITEM_VAR
17 AND B.HELP_PCS = A.ITEM_PCS
18 AND B.HELP_KEYWORD ='(Call) Sampling Rate'
19 AND C.ATOM_LANGUAGE = B.ATOM_LANGUAGE
20 AND C.HELP_CYPHER = B.HELP_CYPHER
21 AND C.HELP_VAR = B.HELP_VAR
22 AND C.HELP_PCS = B.HELP_PCS
23 AND C.CONTEXT = B.CONTEXT
24 AND D.HELP_CYPHER = A.ITEM_CYPHER
25 AND D.HELP_VAR = A.ITEM_VAR
26 AND D.HELP_PCS = A.ITEM_PCS
27 AND D.ATOM_LANGUAGE = 'EN'
28 AND D.CONTEXT = A.ITEM_CYPHER || A.ITEM_VAR
29 ORDER BY 1,2;
MAIN_HELP_TITLE
--------------------------------------------------------------------------------
TOPIC_HELP_TITLE
--------------------------------------------------------------------------------
HELP HE HE CONTEXT
---- -- -- --------
Activate Call Sampling
(Call) Sampling Rate
LF8P J7 04 LF8001
Activate Traffic Structure Measurement
(Call) Sampling Rate
LPW3 J7 05 LPW001
MAIN_HELP_TITLE
--------------------------------------------------------------------------------
TOPIC_HELP_TITLE
--------------------------------------------------------------------------------
HELP HE HE CONTEXT
VB4下:
Query = "SELECT DISTINCT D.HELP_TITLE AS MAIN_HELP_TITLE"
Query = Query & ", C.HELP_TITLE AS TOPIC_HELP_TITLE"
Query = Query & ", C.HELP_CYPHER"
Query = Query & ", C.HELP_VAR"
Query = Query & ", C.HELP_PCS"
Query = Query & ", C.CONTEXT"
Query = Query & " FROM scmssa.A_PACK_ITEM_02 A"
Query = Query & ", scmssa.A_HELP_KEY_01 B"
Query = Query & ", scmssa.A_HELP_TITLE_01 C"
Query = Query & ", scmssa.A_HELP_TITLE_01 D"
Query = Query & " WHERE A.PACK_CYPHER = 'NE6A'"
Query = Query & " AND A.PACK_VAR = 'AA'"
Query = Query & " AND A.PACK_PCS = '04'"
Query = Query & " AND B.ATOM_LANGUAGE = 'EN'"
Query = Query & " AND B.HELP_CYPHER = A.ITEM_CYPHER"
Query = Query & " AND B.HELP_VAR = A.ITEM_VAR"
Query = Query & " AND B.HELP_PCS = A.ITEM_PCS"
Query = Query & " AND B.HELP_KEYWORD ='(Call) Sampling Rate'"
Query = Query & " AND C.ATOM_LANGUAGE = B.ATOM_LANGUAGE"
Query = Query & " AND C.HELP_CYPHER = B.HELP_CYPHER"
Query = Query & " AND C.HELP_VAR = B.HELP_VAR"
Query = Query & " AND C.HELP_PCS = B.HELP_PCS"
Query = Query & " AND C.CONTEXT = B.CONTEXT"
Query = Query & " AND D.HELP_CYPHER = A.ITEM_CYPHER"
Query = Query & " AND D.HELP_VAR = A.ITEM_VAR"
Query = Query & " AND D.HELP_PCS = A.ITEM_PCS"
Query = Query & " AND D.ATOM_LANGUAGE = 'EN'"
Query = Query & " AND D.CONTEXT = A.ITEM_CYPHER || A.ITEM_VAR"
Query = Query & " ORDER BY 1,2"
Set ssTopic = DB.CreateSnapshot(Query, DATA_SQLPASSTHROUGH)
Result = Common_Commit(DB)
ssTopic.MoveFirst。。。
在读取Set ssTopic = DB.CreateSnapshot(Query, DATA_SQLPASSTHROUGH)的时候直接GO Error了
请问有谁知道这是什么原因吗,多谢 --------------------编程问答-------------------- mark,帮顶了。 --------------------编程问答-------------------- 多谢楼上帮顶,谁能给些思路吗?
很老的程序了,但是因为最近oracle服务器从8升级到10,结果要重新编译VB的应用程序,没想到出了一堆的错
不知道是不是OTG10 对于snapshot的接口支持问题,还是什么?
补充:VB , 数据库(包含打印,安装,报表)