如何使用 ADO 防止从 VB6 到 Oracle 的参数被修剪

Question

我有一个调用 Oracle (12) PL/SQL 存储过程的 VB6 应用程序。它使用 ADODB 连接对象。

从应用程序传递的字符串参数可能有尾随空格。当 Oracle 收到它们时，所有尾随空格都消失了。

我希望保留尾随空格。我到处搜索，但在网上找不到任何关于 VB、ADO 或 Oracle 的行为的参考，这些参考表明应该修剪尾随空格在参数中。

在 Oracle 中，存储过程的参数定义为 varchar2。 在 VB6 中，我使用 CreateParameter() 将参数添加为 adVarChar（我尝试过其他字符串类型，但没有帮助）。调用指定名称、类型、方向、大小和值。

就在执行调用之前，我可以检查 Command.Parameters 集合并验证是否存在任何尾随空格。

Oracle 引用明确指出，对于 varchar2 数据类型，尾随空格不会被忽略。

有人能描述一下 VB 或数据库中是否有导致此问题的选项，并且可以关闭吗？

Answer 1

如果你附加一个空值，它是否有效，即。 chr(0) 到有空格的字符串末尾？

你能展示你传递参数的代码吗？你传递的字符串长度是什么 - 即。你在做 len() 之前做修剪吗？

Answer 2

虽然现在我扩展了它，它有资格作为一个解决方案，但仍然没有足够的点来添加评论。

Oracle Objects for OLE (OO4O) 是与现代数据库版本兼容的最佳选择。添加对 oip12.dll 的引用并尝试一下。我的快速测试用例表明，如果我发送 'abc'（即 3 个空格）作为参数，则 sproc 确实保留了尾随空格。我实际上使用的是 oip10.dll 但数据库是 12c。我使用的快速 Oracle 示例。

CREATE TABLE TEMPTestTrailingSpace
 (F1  VARCHAR2(30) NOT NULL
 ,F2   NUMBER(12,0) NOT NULL
 ,DATEIN     DATE NOT NULL
 ) ;

create public synonym TEMPTestTrailingSpace for trace_owner.TEMPTestTrailingSpace;
grant SELECT on TEMPTestTrailingSpace to "TRACE_USER";

Insert into TEMPTestTrailingSpace values ('abc',1,sysdate);
Insert into TEMPTestTrailingSpace values ('abc      ',2,sysdate);
Insert into TEMPTestTrailingSpace values ('abc   ',3,sysdate);
Insert into TEMPTestTrailingSpace values ('abc     ',4,sysdate);
Insert into TEMPTestTrailingSpace values ('abd',5,sysdate);
Insert into TEMPTestTrailingSpace values ('abd   ',6,sysdate);
Insert into TEMPTestTrailingSpace values ('abd    ',7,sysdate);

Create or Replace Procedure getTestRecord
(
  P_PN IN VARCHAR2,
  p_rec OUT number
)
IS
BEGIN
     SELECT f2
     INTO   p_rec
     FROM  TEMPTestTrailingSpace 
     WHERE  f1 = p_pn;
END;
/

create public synonym getTestRecord for trace_owner.getTestRecord;
grant execute on getTestRecord to "TRACE_USER";

我在 db 访问周围使用了一个包装器，因此分享示例并不容易。这至少可以让您建立联系。

Public ooSession As Object
Public ooDB As Object

Dim ConnStr As String
Set ooSession = New OracleInProcServer.OraSessionClass
ConnStr = userID & "/" & password
Set ooDB = ooSession.OpenDatabase(dataSource, ConnStr, 0&) 'dataSource = Oracle SID or alias in TNSNames.ora file