Revision as of 11:07, 21 July 2020

Knowledge Base

PRB: RDORESULTSET's SOURCETABLE Property Won't Return a Value

Article ID: 175080

Article Last Modified on 1/8/2003

APPLIES TO

Microsoft Visual Basic 5.0 Enterprise Edition
Microsoft Visual Basic 6.0 Enterprise Edition

This article was previously published under Q175080

SYMPTOMS

RDO's SOURCETABLE property will not return a value when used in conjunction with Microsoft's Oracle ODBC Driver or the Oracle ODBC Driver supplied by Oracle.

STATUS

Microsoft is researching this problem and will post new information here in the Microsoft Knowledge Base as it becomes available.

MORE INFORMATION

Steps to Reproduce Behavior

Start the Visual Basic 5.0 or 6.0 Enterprise edition.
Add "Microsoft's Remote Data Objects 2.0" under the Project References.

Place the following code in the Load Method of a Visual Basic Form:

     Dim rdocn As rdoConnection
     Dim rdors As rdoResultset
     Set rdocn = rdoEngine(0).OpenConnection("", rdDriverNoPrompt, False, _
       "Driver={Microsoft ODBC for Oracle}; UID=PSS; PWD=pss;" _
       & "ConnectString=TNS:NCORACLE73")
     On Error GoTo MyErr
       rdocn.Execute ("drop table TESTA1")
     MyErr:
     rdocn.Execute ("create table testa1 (col1 char(5), col2 char(5))")
     Set rdors =rdocn.OpenResultset("select * from testa1",rdOpendynamic, _
        rdConcurLock)
     Debug.Print "sourcecolumn:  " & rdors(0).SourceColumn
     Debug.Print "sourcetable:  " & rdors(0).SourceTable 'Nothing Returned

Run the form and note the Intermediate Window's output.

Additional query words: msorcl10.dll dated 01/09/97 msorcl32.dll dated 08/21/97 kbVBp500 kbVBp600 kbdse kbDSupport kbVBp kbOdbc kbRDO

Keywords: kbprb KB175080

@@ Line 63: / Line 63: @@
 <ol>
 <li>Start the Visual Basic 5.0 or 6.0 Enterprise edition.</li>
-<li>Add &quot;Microsoft's Remote Data Objects 2.0&quot; under the Project References.</li>
+<li>Add "Microsoft's Remote Data Objects 2.0" under the Project References.</li>
 <li><p>Place the following code in the Load Method of a Visual Basic Form:</p>
 <pre class="codesample">     Dim rdocn As rdoConnection
       Dim rdors As rdoResultset
-      Set rdocn = rdoEngine(0).OpenConnection(&quot;&quot;, rdDriverNoPrompt, False, _
+      Set rdocn = rdoEngine(0).OpenConnection("", rdDriverNoPrompt, False, _
-        &quot;Driver={Microsoft ODBC for Oracle}; UID=PSS; PWD=pss;&quot; _
+        "Driver={Microsoft ODBC for Oracle}; UID=PSS; PWD=pss;" _
-        &amp; &quot;ConnectString=TNS:NCORACLE73&quot;)
+        &amp; "ConnectString=TNS:NCORACLE73")
       On Error GoTo MyErr
-        rdocn.Execute (&quot;drop table TESTA1&quot;)
+        rdocn.Execute ("drop table TESTA1")
       MyErr:
-      rdocn.Execute (&quot;create table testa1 (col1 char(5), col2 char(5))&quot;)
+      rdocn.Execute ("create table testa1 (col1 char(5), col2 char(5))")
-      Set rdors =rdocn.OpenResultset(&quot;select * from testa1&quot;,rdOpendynamic, _
+      Set rdors =rdocn.OpenResultset("select * from testa1",rdOpendynamic, _
          rdConcurLock)
-      Debug.Print &quot;sourcecolumn:  &quot; &amp; rdors(0).SourceColumn
+      Debug.Print "sourcecolumn:  " &amp; rdors(0).SourceColumn
-      Debug.Print &quot;sourcetable:  &quot; &amp; rdors(0).SourceTable 'Nothing Returned
+      Debug.Print "sourcetable:  " &amp; rdors(0).SourceTable 'Nothing Returned
                          </pre></li>
 <li>Run the form and note the Intermediate Window's output.</li></ol>

Microsoft KB Archive/175080: Difference between revisions