選擇，建立一個Oracle(2-Tier)協議的腳本

加入

static LRD_INIT_INFO InitInfo = {LRD_INIT_INFO_EYECAT};

static LRD_DEFAULT_DB_VERSION DBTypeVersion[] =

{

? ? ? ? {LRD_DBTYPE_NONE, LRD_DBVERSION_NONE}

};

先定義初始化數據庫的各種變量

static void FAR *? ?? ? OraEnv1;

static void FAR *? ?? ? OraSvc1;

static void FAR *? ?? ? OraSrv1;

static void FAR *? ?? ? OraSes1;

static void FAR *? ?? ? OraStm1;

unsigned long? ?? ?? ???rownum;

初始化數據庫部分

lrd_init(&InitInfo, DBTypeVersion);

lrd_initialize_db(LRD_DBTYPE_ORACLE, 3, 0);

lrd_env_init(LRD_DBTYPE_ORACLE, &OraEnv1, 0, 0);

lrd_ora8_handle_alloc(OraEnv1, SVCCTX, &OraSvc1, 0);

lrd_ora8_handle_alloc(OraEnv1,?SERVER, &OraSrv1, 0);

lrd_ora8_handle_alloc(OraEnv1, SESSION, &OraSes1, 0);

連接數據庫

lrd_server_attach(OraSrv1, "這里填寫數據庫的名稱", -1, 0, 0);

lrd_ora8_attr_set_from_handle(OraSvc1, SERVER, OraSrv1, 0, 0);

設定數據庫密碼

lrd_ora8_attr_set(OraSes1, USERNAME, "system", -1, 0);

lrd_ora8_attr_set(OraSes1, PASSWORD, "這里填寫密碼", -1, 0);

初始化連接session

lrd_ora8_attr_set_from_handle(OraSvc1, SESSION, OraSes1, 0, 0);

開始連接數據庫

lrd_session_begin(OraSvc1, OraSes1, 1, 0, 0);

lrd_ora8_handle_alloc(OraEnv1, STMT, &OraStm1, 0);

設定查詢語句

lrd_ora8_stmt(OraStm1, "這里填寫查詢語句", 1, 0, 0);

執行查詢語句

lrd_ora8_exec(OraSvc1, OraStm1, 0, 0,&rownum, 0, 0, 0, 0, 1);

釋放連接數據庫的各種變量

lrd_handle_free(&OraStm1, 0);

lrd_session_end(OraSvc1, OraSes1, 0, 0);

lrd_server_detach(OraSrv1, 0, 0);

lrd_handle_free(&OraEnv1, 0);

轉載于:https://www.cnblogs.com/R9527/articles/5093391.html

總結

以上是生活随笔為你收集整理的【转载】使用LR测试Oracle数据库的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。