OLE DB로 오라클 연결

void __fastcall TMainFrm::BtnConnClick(TObject *Sender)

{

    AnsiString ConnStr;

 

    ConnStr =   "Provider=MSDAORA.1; "

                "Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST = myIp)(PORT = myPort)))"

                "(CONNECT_DATA=(SID=myServiceName)(SERVER=DEDICATED))); "

                "User Id=myId;Password=myPw; ";

 

    try {

        OracleConn->CommandTimeout   =   120;

        OracleConn->ConnectionString =   ConnStr;

        OracleConn->LoginPrompt      =   FALSE;

        OracleConn->Mode             =   cmReadWrite;

        OracleConn->Open();

    }

    catch(Exception &e)  {

        MsgBox(e.Message);

        return;

    }