Skip to Main Content

Oracle Forms

Announcement

For appeals, questions and feedback about Oracle Forums, please email oracle-forums-moderators_us@oracle.com. Technical questions should be asked in the appropriate category. Thank you!

DDE on oracle forms 6i with office 365

User_HR0Q0Aug 20 2021
Hello everyone, I am using Oracle forms (64 Bit) Version 6i (Production)

DDE is a dynamic data exchange, basically it gets values ​​from another program installed on a Windows machine.

They asked me to test if there was compatibility between Oracle forms 6i and office 365 since it currently works with office 2016
After performing the tests I was able to identify an error when generating my excel file through oracle forms by pressing a designed button
displays the message "The application failed to start correctly (0xc0000142). Click OK to close it."
And this happens if no excel file is open, but then when I open any excel file with nothing echoed and then I execute my form by pressing the button, the same message appears but if it generates the file, I don't know what the attached error could be, the code that is handled for the generation of the file in oracle forms 6i and q works perfectly with office 2016

FUNCTION Iniciar(strPathFile varchar2,strNomfile varchar2) RETURN TRegXLS IS
      AppId1 TRegXLS;
      srtConneccion varchar2(100);
      strRutaNueva varchar2(200);
   BEGIN
      strRutaNueva:=strPathFile || strNomfile;
      host('del ' ||strRutaNueva ,NO_SCREEN);  
      AppId1.AppID_X:=DDE.App_Begin(strPathFileExcel,DDE.App_Mode_Normal);
      synchronize;
      AppId1.ConvID_X:=DDE.Initiate('EXCEL','System');
      srtConneccion:='[Save.as("' || strRutaNueva || '",1)]';
      DDE.Execute(AppId1.ConvID_X,srtConneccion,10000);
      DDE.Terminate(AppId1.ConvID_X);
      AppId1.ConvID_X:=DDE.Initiate('EXCEL',strRutaNueva);
      RETURN AppId1;
      EXCEPTION
         WHEN OTHERS THEN
            message('PKExcel.Iniciar: Error la Iniciar Servicio de Excel ' || SQLCODE||SQLERRM);
            message(' ');
            RETURN AppId1;
   END;

where the variable strPathFileExcel = C: \ progra ~ 1 \ micros ~ 1 \ OFFICE16 \ excel.exe with office 365
   
   Please I request your help if someone knows about the subject and can guide me
Comments
Post Details
Added on Aug 20 2021
1 comment
1,099 views