如何设置BDE连接到ORACLE 9I??

yakeman 2003-01-01 04:16:20

请详细说明一下

...全文

69 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

ft 2003-01-03

打赏
举报

里面的具体设置,在代码中已经说明了呀.

yakeman 2003-01-02

打赏
举报

哦,里面的具体设置又怎样呢?

penitent 2003-01-01

打赏
举报

给你一个类
//---------------------------------------------------------------------------
#ifndef ConnH
#define ConnH
#include <DBTables.hpp>
//--------------------------------------------------------------------------
class TBDE_Connection
{
private:

public:
//define public connection class instance
TDatabase *connBDE;
void TBDE_CloseDatabase();
//structure function
TBDE_Connection(AnsiString DBName,AnsiString UserName,AnsiString PassWord,int LoginTime);
};
//--------------------------------------------------------------------------
#endif
extern TBDE_Connection *bde_conn;
//=======================================================================

#include "Conn.h"
TBDE_Connection *bde_conn; //连接类
//---------------------------------------------------------------------------
#pragma package(smart_init)
//--------------------------------------------------------------------------
TBDE_Connection::TBDE_Connection(AnsiString DBName,AnsiString UserName,AnsiString PassWord,int LoginTime)
{
//create instance
connBDE=new TDatabase(NULL);
connBDE->DatabaseName ="ConnDB" + IntToStr(LoginTime);
connBDE->DriverName ="ORACLE";
connBDE->Params->Clear();
connBDE->Params->Add("SERVER NAME=" + DBName);
connBDE->Params->Add("USER NAME=" + UserName);
connBDE->Params->Add("PASSWORD=" + PassWord);
connBDE->LoginPrompt=false;
connBDE->Connected =true;
}
//--------------------------------------------------------------------------
void TBDE_Connection::TBDE_CloseDatabase()
{
connBDE->Close();
}