Question

我目前正在尝试迁移一系列非常棘手的VBScripts，这些VBScripts用于将数据从远程Oracle DB Source（我们的供应商）加载到我们（现在）的Oracle 11g R2实例中。这个脚本基于以前的Oracle 10g实例（完全不同的机器）工作正常，并且当我在CN字符串中使用的同一用户手动运行时，DDL本身工作正常。

主机操作系统： Windows 2008 R2 64位企业版
主机数据库： Oracle 11g R2 64位

脚本：

Option explicit

Dim CN
Dim fso, objFile

Const strOutputFile = "\\<server>\<path>\<to>\LOGS\LOAD_DATA.LOG"

Set CN = CreateObject("ADODB.CONNECTION")

CN.Open "Driver={Oracle in OraDb11g_home1};Dbq=<tnsname>;Uid=<uid>;Pwd=<pwd>;"

Set fso = CreateObject("SCRIPTING.FileSystemObject")

Set objFile = fso.OpenTextFile(strOutputFile, 2, True)

objFile.WriteBlankLines(2)
objFile.WriteLine "*** Start Load_Data.vbs Log - " &Now() &" ***"

Call SBB_BASE()

objFile.WriteLine "*** End Load_Data.vbs Log - " &Now() &" ***"
objFile.WriteBlankLines(2)
objFile.Close

Set objFile = Nothing
Set fso = Nothing

CN.Close

Sub SBB_BASE()

On Error Resume Next

CN.Execute "TRUNCATE TABLE DATA.SBB_BASE"
CN.Execute "DROP TABLE DATA.SBB_BASE"

CN.Execute "CREATE TABLE DATA.SBB_BASE STORAGE (INITIAL 20000 NEXT 1024 PCTINCREASE 0 MINEXTENTS 1 MAXEXTENTS 121) NOLOGGING TABLESPACE DATA AS SELECT * FROM SBB_BASE@<vendor>"

CN.Execute "CREATE INDEX DATA.IDX_SBB_SUB_ACCT_NO ON DATA.SBB_BASE(SUB_ACCT_NO_SBB) TABLESPACE DATA_IDX NOLOGGING"
CN.Execute "CREATE INDEX DATA.IDX_SBB_HSE_KEY ON DATA.SBB_BASE(HSE_KEY_SBB) TABLESPACE DATA_IDX NOLOGGING"
CN.Execute "CREATE INDEX DATA.IDX_SBB_EXT_STAT ON DATA.SBB_BASE(EXT_STAT_SBB) TABLESPACE DATA_IDX NOLOGGING"
CN.Execute "CREATE INDEX DATA.IDX_SBB_CUST_ACCT_NO ON DATA.SBB_BASE(CUST_ACCT_NO_SBB) TABLESPACE DATA_IDX NOLOGGING"

End Sub

当我从命令行运行.vbs时，它首先会提示有关不受信任脚本的警告（当尝试从Windows任务计划程序无人值守运行时可能会出现问题，但一次只出现一个问题），然后它似乎执行没有任何明显的错误 - 但只有前两个CN.Execute语句执行 - TRUNCATE TABLE和DROP TABLE DDL命令 - 似乎没有其他任何处理。我知道情况就是这样，因为表和所有索引都从模式中消失了。

但是，当我从每个CN.Execute行获取DDL并作为代码块手动执行它们时，它们的工作正常。我在Oracle服务器上找不到任何可能表明问题的错误日志。

有什么想法吗？

编辑：在休息之后，我想出了如何在DDL语句中添加一些额外的日志记录来试图弄清楚发生了什么 - 事实证明，问题与DBLINK有关。在CT-AS DDL中使用，因为我们的供应商非常友好地施加了SESSIONS_PER_USER上限。

但是，我总共有四个不同DBLINKS到同一供应商，我可以使用不同的用户进行数据加载，我真的想在脚本中构建一些功能，可以检查是否有任何这些连接返回SESSIONS_PER_USER消息，第一个消息不会用于后续数据加载。由于这是一个完全独立的问题，我将创建一个不同的问题。

Answer 1

我不是甲骨文的人，但从陈述的症状来看，听起来有些原因是在之前的某个语句完成之前正在执行创建，并且当删除完成时，它会删除新的表。

我建议增强脚本，以便它不会继续创建，直到删除完成。

我可以在SQL服务器中为您提供此语法，但不是在oracle抱歉。

Oracle 11g上的VBScript DDL - 在DROP TABLE之后停止

1 个答案: