Can forms communicate to VFP (Visual Foxpro)

Question

Hello All,
I am using forms 6i and dataabse 9i in windows 2003 server.
I have couple of application in forms and Visual Foxpro(VFP). The VFP program can commucate to the oracle database.
Here I am looking forms connect to VFP database (As per my knowledge it is not possible, if there is any way to connect) , or when I am inserting some data to the oracle database it should insert the record into VFP database.
For this I have created triggers in the oracle tables so that when DML oreration are happening in the database it can triggered and same time the VFP tables can be updated by the oracle triggers. But my problem is I am not able to connect to the VFP table from the Oracle.
Any body have any idea on it, Please suggest.
Thanks,
SUN

Answer 1

Here is the code i have cut down the code and giving u only necessary code (not tested may be some syntax errors or missing end ifs etc etc)
Before u start
- Install Open Client Adaptor from Oracle forms Installer
- Create ODBC DSN named 1C and in advance property set username scott and password tiger
Procedure get_data(vfrom_date date, vto_date date) IS
  connection pls_integer;
  cursor_rec    pls_integer;
  stmt_rec   varchar2(4000);
BEGIN     
  stmt_rec := 'select [ref], [#date], [#sumd], [#sumc], [#docnum], [#cur], [#acc] from [#rec]
                where [#date] >= datevalue('''||vfrom_date||''') and [#date] < datevalue('''||vto_date||''') order by [#acc], [#sumd], [#sumc]';
  connection := oca.dbconnect('scott/tiger@odbc:1c_db');
  cursor_rec := oca.execute(connection,stmt_rec); 
  go_block('datablk');
  clear_block;
  loop
  begin
      oca.fetch_row(connection,cursor_rec); 
          oca.coldata(connection,cursor_rec,1,:ref_no);     
          oca.coldata(connection,cursor_rec,2,vdate);     
          oca.coldata(connection,cursor_rec,3,:debit_amt);     
          oca.coldata(connection,cursor_rec,4,:credit_amt);
          oca.coldata(connection,cursor_rec,5,:docnum);          
          oca.coldata(connection,cursor_rec,6,vcurstyp_code);                     
          oca.coldata(connection,cursor_rec,7,:acc);                     
      next_record;     
    exception when no_data_found then
        -- message('NO MORE ROWS');
         clear_record;
         exit;
    end;
  end loop;
  first_record;
  oca.close(connection,cursor_recapp);
  oca.disconnect(connection);
exception
  when oca.connection_error then
    set_application_property(cursor_style,'NORMAL');
    message('OCA-Connection error');
  when oca.cursor_error then
  set_application_property(cursor_style,'NORMAL');
    message('OCA-Cursor error');
  when others then
  set_application_property(cursor_style,'NORMAL');
    message(sqlerrm||'Other Error');
end;
plz mark correct/helpful if it is
Baig,
[My Oracle Blog|http://baigsorcl.blogspot.com/]