Has anyone compose a report pulling data from Notes Database and ODBC compliant database like DB2 using ViP/DX (ViP Specific) [Revelation On-Line Wiki]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
[[https://www.revelation.com/|Sign up on the Revelation Software website to have access to the most current content, and to be able to ask questions and get answers from the Revelation community]]


==== Has anyone compose a report pulling data from Notes Database and ODBC compliant database like DB2 using ViP/DX (ViP Specific) ====
=== At 13 AUG 1998 03:20:28AM Jackson Lim wrote: ===
 
{{tag>"ViP Specific"}}
 
<QUOTE>

</QUOTE>
----

=== At 13 AUG 1998 01:20PM Stephen Bellefontaine Revelation wrote:  ===

<QUOTE>Hello Jackson,



How do I combine data from two different data sources into one Data Object for Reporting ?



Connect each data object to the appropriate data source (Notes and ODBC. Now create an unconnected data object (Data3) and add local columns with columns (and data types) to match the columns in your two connected data objects (primary key from data1 needs to map to foreign key in data2). Please review the example...

 

In the following example, the AppWindow Init script executes queries for Data1 and Data2, and then combines the data in Data3. You can then use Data3 as the source for your report.



Dim row&, nrow&, status%, error&, col1$, col2$, col3$

' Run queries with the connected data objects.

Call Data1.ExecuteQuery()

Call Data2.ExecuteQuery()

' Put data from Data1 into Data3 (you can change the number of columns).

For row&=1 To Data1.ResultRowCount

status%=Data1.RowGet(row&, error&, col1$, col2$, col3$)

nrow&=Data3.RowNew()

status%=Data3.CellSetData(nrow&, 1, col1$)

status%=Data3.CellSetData(nrow&, 2, col2$)

status%=Data3.CellSetData(nrow&, 3, col3$)

status%=Data3.ExecuteUpdate()

Next row&

' Put data from Data2 into Data3 (you can change the number of columns).

For row&=1 To Data2.ResultRowCount

status%=Data2.RowGet(row&, error&, col1$, col2$, col3$)

nrow&=Data3.RowNew()

status%=Data3.CellSetData(nrow&, 1, col1$)

status%=Data3.CellSetData(nrow&, 2, col2$)

status%=Data3.CellSetData(nrow&, 3, col3$)

status%=Data3.ExecuteUpdate()

Next row& 



In other cases, the connected data objects contain related information that you want to combine by using key fields to perform joins. For information about joining data from two data sources in an unconnected data object, see Chapter 13, "Data Integration," in the Revelation ViP 2.0 Application Developer's Guide.



PS. make sure you have the DB2 ODBC driver!



Hope this helps,



VIPDX Tech Support 

</QUOTE>


[[https://www.revelation.com/revweb/oecgi4p.php/O4W_HANDOFF?DESTN=O4W_RUN_FORM&INQID=NONWORKS_READ&SUMMARY=1&KEY=AC42C0F4E444329D8525665F002853BB|View this thread on the  forum...]]