Devart Forums

Code: Select all

//---------------------------------------------------------------------------
void __fastcall TForm1::testBTNClick(TObject* Sender)
{
    // Connect to DB
    boost::scoped_ptr<TOraSession> session(new TOraSession(0));
    session->Server = ...;
    session->Username = ...;
    session->Password = ...;
    session->Options->Direct = true;
    session->Connect();

    // Prepare statement
    boost::scoped_ptr<TOraQuery> query(new TOraQuery(0));
    query->Session = session.get();
    query->SQL->Text = "savepoint hello";
    query->Prepare();

    // Execute and commit
    query->Execute();
    session->Commit();

    // Execute again
    query->Execute(); // << ORA-03113: end-of-file on communication channel
}
//---------------------------------------------------------------------------