CONNECTING FORM WITH TWO DIFFERENT DATABASES

Question

HELLO ALL
Is there any way I can connect to 2 different databases at the same time. What I have is 2 different database for two different payroll systems. Now what I want to do is if user press a button I send some data from this payroll database to second payroll database using insert and update command.
I am using Form 5, one database is Personal Oracle 7 and second is Oracle 7.3. (I don't think versions matters but anyway)
Thanks
null

Answer 1

Hello,
Yes u can connect to with several database at a time using ODBC connection and Exex_Sql package supplied with Forms6i as a built-in. There is no Exec_Sql built-in supplied with Forms5, but there is a library named exec_sql.pll (Check it out) supplied with Forms5.
using this package u can connect with multiple DB at the same time.
here is an example-
Declare
v_ConnHandle Exec_Sql.ConnType;
v_CursHandle Exec_Sql.CursType;
v_NumRows Pls_Integer;
Begin
v_ConnHandle := Exec_Sql.Open_Connection('Scott', 'Tiger', 'ODBC:DBName');
v_CursHandle := Exec_Sql.Open_Cursor(v_ConnHandle);
Exec_Sql.Parse(v_CursHandle,'Select ename From emp');
Exec_Sql.Define_Column(v_ConnHandle, v_CursHandle, 1, v_EmpNAme);
v_NumRows := Exec_Sql.Execute(v_ConnHandle, v_CursHandle);
While Exec_Sql.Fetch_Rows(v_ConnHandle, v_CursHandle) > 0 Loop
Exec_Sql.Column_Value(v_CursHandle, 1, v_EmpName);
End Loop;
Exec_Sql.Close_Cursor(v_ConnHandle, v_CursHandle);
Exception
When Exec_Sql.Package_Error Then
If Exec_Sql.Is_Open(v_ConnHandle, v_CursHandle) Then
Exec_Sql.Close_Cursor(v_ConnHandle, v_CursHandle);
End If;
Message('Error ('| |Exec_Sql.Last_Error_Code(v_ConnHandle)| |') : '| |Exec_Sql.Last_Error_Mesg(v_ConnHandle));
End;
hope this help you.
best of luck.
null