ADO를 다듬어 사용하는 VB6의 매개 변수를 방지하는 방법

Question

Oracle (12) PL/SQL 저장 프로 시저를 호출하는 VB6 앱이 있습니다. ADODB 연결 개체를 사용합니다.

응용 프로그램에서 전달 된 문자열 매개 변수에는 공백이있을 수 있습니다. 오라클이이를 받으면 후행 공백이 사라집니다.

후행 공백을 남기고 싶습니다. 나는 모든 곳을 수색했는데 후행 공백이 매개 변수에서 다듬어 져야한다고 말하는 VB, ADO 또는 Oracle의 동작에 대한 온라인 참조를 찾을 수 없습니다.

Oracle에서 저장 프로 시저에 대한 매개 변수는 varchar2로 정의됩니다. VB6에서는 CreateParameter()를 사용하여 매개 변수를 adVarChar로 추가합니다 (다른 문자열 유형을 시도했지만 도움이되지 않습니다). 호출은 이름, 유형, 방향, 크기 및 값을 지정합니다.

Execute 호출 바로 전에 Command.Parameters 컬렉션을 검사하여 후행 공백이 있는지 확인할 수 있습니다.

Oracle 참조는 varchar2 데이터 형식에서 후행 공백이 이 아니고이 무시된다는 것을 명시 적으로 나타냅니다.

VB 또는 데이터베이스에서이 문제의 원인이 될 수있는 옵션이 있는지 설명 할 수 있습니까?

Answer 1

null을 추가하면 작동합니까? 공백이있는 문자열의 끝에 chr(0)?

매개 변수를 전달하는 코드를 표시 할 수 있습니까? 문자열의 길이에 대해 무엇을 전달하고 있습니까? 즉. len()을하기 전에 트림을하고 있습니까?

Answer 2

지금까지 언급 한 사항을 추가 할 수있는 충분한 점수가 아직 부족합니다. 해결책을 제시 할 때이 내용을 확장했습니다.

Oracle Objects for OLE (OO4O)는 최신 데이터베이스 버전과의 호환성을위한 최상의 방법입니다. oip12.dll에 대한 참조를 추가하고 사용해보십시오. 내 간단한 테스트 케이스는 sproc이 실제로 후행 공백을 유지하는 매개 변수로 'abc'(즉 3 공백)를 보내는 경우를 보여줍니다. 실제로 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