Wie verhindern, dass die Parameter von VB6 zu Oracle mit ADO getrimmt werden

Question

Ich habe eine VB6-App, die eine Oracle (12) PL/SQL-gespeicherte Prozedur aufruft. Es verwendet ein ADODB-Verbindungsobjekt.

String-Parameter, die von der App übergeben werden, können nachstehende Leerzeichen enthalten. Wenn Oracle sie empfängt, sind alle nachgestellten Leerzeichen verschwunden.

Ich möchte die nachgestellten Leerzeichen bleiben. Ich habe überall gesucht und kann keine Referenz online auf Verhalten von VB, ADO oder Oracle finden, die besagt, dass nachfolgende Leerzeichen in Parameter getrimmt werden sollen.

In Oracle sind die Parameter der gespeicherten Prozedur als varchar2 definiert. In VB6 verwende ich CreateParameter(), um die Parameter als adVarChar hinzuzufügen (ich habe andere String-Typen ausprobiert und es hilft nicht). Der Anruf gibt den Namen, Typ, Richtung, Größe und Wert an.

Kurz vor dem Aufruf von Execute kann ich die Command.Parameters-Auflistung überprüfen und überprüfen, dass alle nachfolgenden Leerzeichen vorhanden sind.

Oracle-Referenzen geben explizit an, dass mit dem varchar2-Datentyp die folgenden Leerzeichen nicht ignoriert werden.

Kann jemand beschreiben, ob es eine Option in VB oder der Datenbank gibt, die dies verursacht, und kann ausgeschaltet werden?

Answer 1

Funktioniert es, wenn Sie eine Null anhängen, dh. chr(0) bis zum Ende der Zeichenfolge, die Leerzeichen enthält?

Können Sie Ihren Code anzeigen, der die Parameter übergibt? Was passierst du für die Länge der Saite - d. machst du einen trim bevor du len() machst?

Answer 2

Immer noch nicht genug Punkte, um einen Kommentar hinzuzufügen, jetzt, da ich dies erweitert, dass es sich als eine Lösung qualifiziert.

Oracle Objects für OLE (OO4O) ist Ihre beste Wette für die Kompatibilität mit modernen Datenbankversionen. Fügen Sie einen Verweis auf oip12.dll hinzu und probieren Sie es aus. Mein schneller Testfall zeigt, dass, wenn ich 'abc' (das waren 3 Leerzeichen) als Parameter gesendet wurde, der Sproc tatsächlich die nachfolgenden Leerzeichen enthält. Ich verwende tatsächlich oip10.dll, aber die Datenbank ist 12c. Schnelles Oracle-Beispiel, das ich verwendete.

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"; 

Ich benutze einen Wrapper um den DB-Zugriff, so ist es nicht so einfach, ein Beispiel zu teilen. Damit bist du zumindest verbunden.

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