PHP連結oracle的函式 (轉)

worldblog發表於2007-12-11
PHP連結oracle的函式 (轉)[@more@]

 ※_logon() 開啟連線
 ※db_query() 通用
 ※db_change() 資料庫改變的通用(insert,delete,update)
 ※db_insert() insert,直接db_change()
 ※db_delete() delete,直接呼叫db_change()
 ※db_update() update,直接呼叫db_change()
 ※db_commit() 事務遞交
 ※db_rollback() 事務回退
 ※db_logoff() 斷開資料庫連線
 
Class c_ora_db
{
 
 變數定義
 
var $C_user = ""; 資料庫名
var $C_passwd = ""; 資料庫口令
var $C_db = ""; 資料庫名
var $I_linkID = 0; 連線控制程式碼
var $I_stmtID = 0; 查詢控制程式碼
var $color =""; 全域性顏色
 
 
 函式名:db_logon()
 作 用:開啟資料庫連線
 參 數:無
 返回值:連線控制程式碼(整型)
 備 注:無
 
function db_logon()
{
$this->I_linkID = @OCILogon($this->C_user,$this->C_passwd,$this->C_db);
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗,請與聯絡!');}
return $this->I_linkID;
}
 
 
 函式名:db_query($C_,$A_define="",$I_start=-1,$I_end=-1)
 作 用:select
 參 數:$C_sql sql語句
 $A_define 需繫結的欄位。陣列型
 $I_start 開始取記錄 -1則取出查詢的所有記錄
 $I_end 結束取紀錄
 返回值:二維陣列($A_rs)
 備 注:透過數字0,1,2....可訪問對應欄位的值; 或透過查詢欄位名也可訪問對應欄位的值
 如透過$A_rs[0][0]或$A_rs[0]['NAME']或$A_rs[0]['name']都可訪問首條記錄NAME欄位
 $I_start,$I_end是配合分頁使用的引數。
 
function db_query($C_sql,$A_define="",$I_start=-1,$I_end=-1)
{
if (!$C_sql){AlertExit("引數不全!");}檢查引數
連線檢測
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗,請與DBA聯絡!');}
格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯!請與員聯絡');}
如果沒指定繫結的欄位,則從SQL語句中去取
if($A_define=="")
{
$A_Cur = explode("select",$C_sql);
$A_Cur = explode("from",$A_Cur[1]);
$A_define = explode(",",$A_Cur[0]);
}
繫結資料庫表欄位
if(gettype($A_define) == "array") 查詢列是陣列
{
for($i=0;$i{
$A_define_up[$i] = trim(strtoupper($A_define[$i])); 大寫並去除空格
}
for($i=0;$i{
OCfineByName($this -> I_stmtID,"$A_define_up[$i]",&$$A_define[$i]); 繫結
}
}
elseif(trim($A_define) <> "") 查詢列只有一個
{
$A_define_up = trim(strtoupper($A_define));
OCIDefineByName($this -> I_stmtID,"$A_define_up",&$$A_define);
}
繫結好的SQL語句
if(!OCIExecute($this -> I_stmtID))
{
echo "執行出錯:SQL Error:$C_sql
";
return false;
}
$lower = 0; 返回二維陣列的第一維下標控制變數
$cnt = 0; 開始取數標識
取記錄
while (OCIFetchInto($this -> I_stmtID,&$cur,OCI_ASSOC))
{
取查詢出來的所有記錄
if ($I_start == -1)
{
if (gettype($A_define) == "array") 查詢列是陣列
{
for ($i=0;$i{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; 用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; 用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; 用大寫訪問
}
}
elseif (trim($A_define) <> "") 查詢列只有一個
{
if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; 用數字訪問
$A_rs[$lower][$A_define] = $$A_define; 用小寫訪問
$A_rs[$lower][$A_define_up] = $$A_define; 用大些訪問
}
$lower++; 下標加一
}
取出指定記錄(配合分頁使用)
if ($I_start <> -1)
{
if ($cnt >= $I_start)
{
$cnt++;
if ($I_end - $I_start <> 0)
{
$I_end--;
if (gettype($A_define) == "array")
{
for($i=0;$i{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; 用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; 用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; 用大寫訪問
}
}elseif(trim($A_define) <> "")
{
if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; 用數字訪問
$A_rs[$lower][$A_define] = $$A_define; 用小些訪問
$A_rs[$lower][$A_define_up] = $$A_define; 用大寫訪問
}
$lower++;
}else
{
break; 如果$I_end-$I_start=0 表示取完記錄並跳出while迴圈
}
}else
{
$cnt++; 如果$cnt}
}
} while的結束
釋放控制程式碼並返回查詢資料(一個二維陣列)
OCIFreestatement($this -> I_stmtID);
return $A_rs;
} function的結束
 
 
 函式名:db_change($C_sql,$A_bind)
 作 用:db change
 參 數:$C_sql sql語句
 $A_bind 需繫結的欄位。陣列型
 返回值:布林值
 備 注:insert,delete,update通用
 
function db_change($C_sql,$A_bind="")
{
if (!$C_sql){AlertExit("引數不全!");}檢查引數
連線檢測
if($this -> I_linkID==""){ AlertExit("我們的資料庫正忙,請稍後再連線!");}
格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯!請與程式設計師聯絡');}
繫結
if(gettype($A_bind) == "array")
{
for($i=0;$i{
global $$A_bind[$i];
$$A_bind[$i] = StripSlashes($$A_bind[$i]); 去掉反斜線字元
$$A_bind[$i] = str_replace("","< ?",$$A_bind[$i]); 過濾掉標示
}
for($i=0;$iOCIBindByName($this -> I_stmtID, ":$A_bind[$i]", &$$A_bind[$i], -1); 繫結
}
}
elseif(trim($A_bind) <> "") 不是陣列,是字元
{
global $$A_bind;
$$A_bind = StripSlashes($$A_bind);
$$A_bind = str_replace("","< ?",$$A_bind); 過濾掉PHP標示
OCIBindByName($this -> I_stmtID, ":$arrBind", &$$A_bind, -1);
}
執行並檢測是否成功
if(!OCIExecute($this -> I_stmtID,OCI_DEFAULT))
{
echo "執行出錯:SQL Error:$C_sql
";
return false;
}
/*傳回受影響的行數
global $I_changenum;
$I_changenum = OCINumrows($this -> I_stmtID);*/
釋放控制程式碼,傳回值
OCIFreeStatement($this -> I_stmtID);
return true;
}
 
 
 函式名:db_delete($C_sql)
 作 用:delete
 參 數:C_sql sql語句
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_delete($C_sql)
{
return $this -> db_change($C_sql);
}
 
 
 函式名:db_insert($C_sql,A_bind)
 作 用:insert
 參 數:C_sql sql語句
 A_bind 繫結
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_insert($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
 
 
 函式名:db_update($C_sql,A_bind)
 作 用:update
 參 數:C_sql sql語句
 A_bind 繫結
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_update($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
 
 函式名:db_commit()
 作 用:事務遞交
 參 數:無
 返回值:布林值
 備 注:無
function db_commit()
{
return (OCICommit($this->I_linkID));
}
 函式名:db_rollback()
 作 用:事務回退
 參 數:無
 返回值:布林值
 備 注:無
function db_rollback()
{
return (OCIRollback($this->I_linkID));
}
 函式名:db_logoff()
 作 用:斷開資料庫連線
 參 數:無
 返回值:布林值
 備 注:無
function db_logoff()
{
return (OCILogoff($this->I_linkID));
}

 ※db_logon() 開啟資料庫連線
 ※db_query() 通用select
 ※db_change() 資料庫改變的通用函式(insert,delete,update)
 ※db_insert() insert,直接呼叫db_change()
 ※db_delete() delete,直接呼叫db_change()
 ※db_update() update,直接呼叫db_change()
 ※db_commit() 事務遞交
 ※db_rollback() 事務回退
 ※db_logoff() 斷開資料庫連線
 
Class c_ora_db
{
 
 變數定義
 
var $C_user = ""; 資料庫使用者名稱
var $C_passwd = ""; 資料庫口令
var $C_db = ""; 資料庫名
var $I_linkID = 0; 連線控制程式碼
var $I_stmtID = 0; 查詢控制程式碼
var $color =""; 全域性顏色
 
 
 函式名:db_logon()
 作 用:開啟資料庫連線
 參 數:無
 返回值:連線控制程式碼(整型)
 備 注:無
 
function db_logon()
{
$this->I_linkID = @OCILogon($this->C_user,$this->C_passwd,$this->C_db);
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗,請與DBA聯絡!');}
return $this->I_linkID;
}
 
 
 函式名:db_query($C_sql,$A_define="",$I_start=-1,$I_end=-1)
 作 用:select
 參 數:$C_sql sql語句
 $A_define 需繫結的欄位。陣列型
 $I_start 開始取記錄 -1則取出查詢的所有記錄
 $I_end 結束取紀錄
 返回值:二維陣列($A_rs)
 備 注:透過數字0,1,2....可訪問對應欄位的值; 或透過查詢欄位名也可訪問對應欄位的值
 如透過$A_rs[0][0]或$A_rs[0]['NAME']或$A_rs[0]['name']都可訪問首條記錄NAME欄位
 $I_start,$I_end是配合分頁使用的引數。
 
function db_query($C_sql,$A_define="",$I_start=-1,$I_end=-1)
{
if (!$C_sql){AlertExit("引數不全!");}檢查引數
連線檢測
if ($this->I_linkID == 0){AlertExit('資料庫連結失敗,請與DBA聯絡!');}
格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯!請與程式設計師聯絡');}
如果沒指定繫結的欄位,則從SQL語句中去取
if($A_define=="")
{
$A_Cur = explode("select",$C_sql);
$A_Cur = explode("from",$A_Cur[1]);
$A_define = explode(",",$A_Cur[0]);
}
繫結資料庫表欄位
if(gettype($A_define) == "array") 查詢列是陣列
{
for($i=0;$i{
$A_define_up[$i] = trim(strtoupper($A_define[$i])); 大寫並去除空格
}
for($i=0;$i{
OCIDefineByName($this -> I_stmtID,"$A_define_up[$i]",&$$A_define[$i]); 繫結
}
}
elseif(trim($A_define) <> "") 查詢列只有一個
{
$A_define_up = trim(strtoupper($A_define));
OCIDefineByName($this -> I_stmtID,"$A_define_up",&$$A_define);
}
執行繫結好的SQL語句
if(!OCIExecute($this -> I_stmtID))
{
echo "執行出錯:SQL Error:$C_sql
";
return false;
}
$lower = 0; 返回二維陣列的第一維下標控制變數
$cnt = 0; 開始取數標識
取記錄
while (OCIFetchInto($this -> I_stmtID,&$cur,OCI_ASSOC))
{
取查詢出來的所有記錄
if ($I_start == -1)
{
if (gettype($A_define) == "array") 查詢列是陣列
{
for ($i=0;$i{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; 用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; 用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; 用大寫訪問
}
}
elseif (trim($A_define) <> "") 查詢列只有一個
{
if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; 用數字訪問
$A_rs[$lower][$A_define] = $$A_define; 用小寫訪問
$A_rs[$lower][$A_define_up] = $$A_define; 用大些訪問
}
$lower++; 下標加一
}
取出指定記錄(配合分頁使用)
if ($I_start <> -1)
{
if ($cnt >= $I_start)
{
$cnt++;
if ($I_end - $I_start <> 0)
{
$I_end--;
if (gettype($A_define) == "array")
{
for($i=0;$i{
if ($cur[$A_define_up[$i]] <> $$A_define[$i])
{
$$A_define[$i] = $cur[$A_define_up[$i]];
}
$A_rs[$lower][$i] = $$A_define[$i]; 用數字訪問
$A_rs[$lower][$A_define[$i]] = $$A_define[$i]; 用小些訪問
$A_rs[$lower][$A_define_up[$i]] = $$A_define[$i]; 用大寫訪問
}
}elseif(trim($A_define) <> "")
{
if ($cur[$A_define_up] <> $$A_define)
{
$$A_define = $cur[$A_define_up];
}
$A_rs[$lower][0] = $$A_define; 用數字訪問
$A_rs[$lower][$A_define] = $$A_define; 用小些訪問
$A_rs[$lower][$A_define_up] = $$A_define; 用大寫訪問
}
$lower++;
}else
{
break; 如果$I_end-$I_start=0 表示取完記錄並跳出while迴圈
}
}else
{
$cnt++; 如果$cnt}
}
} while的結束
釋放控制程式碼並返回查詢資料(一個二維陣列)
OCIFreestatement($this -> I_stmtID);
return $A_rs;
} function的結束
 
 
 函式名:db_change($C_sql,$A_bind)
 作 用:db change
 參 數:$C_sql sql語句
 $A_bind 需繫結的欄位。陣列型
 返回值:布林值
 備 注:insert,delete,update通用
 
function db_change($C_sql,$A_bind="")
{
if (!$C_sql){AlertExit("引數不全!");}檢查引數
連線檢測
if($this -> I_linkID==""){ AlertExit("我們的資料庫正忙,請稍後再連線!");}
格式檢測
$this -> I_stmtID = OCIParse($this -> I_linkID,$C_sql);
if (!$this -> I_stmtID){AlertExit(' sql格式出錯!請與程式設計師聯絡');}
繫結
if(gettype($A_bind) == "array")
{
for($i=0;$i{
global $$A_bind[$i];
$$A_bind[$i] = StripSlashes($$A_bind[$i]); 去掉反斜線字元
$$A_bind[$i] = str_replace("","< ?",$$A_bind[$i]); 過濾掉PHP標示
}
for($i=0;$iOCIBindByName($this -> I_stmtID, ":$A_bind[$i]", &$$A_bind[$i], -1); 繫結
}
}
elseif(trim($A_bind) <> "") 不是陣列,是字元
{
global $$A_bind;
$$A_bind = StripSlashes($$A_bind);
$$A_bind = str_replace("","< ?",$$A_bind); 過濾掉PHP標示
OCIBindByName($this -> I_stmtID, ":$arrBind", &$$A_bind, -1);
}
執行並檢測是否成功
if(!OCIExecute($this -> I_stmtID,OCI_DEFAULT))
{
echo "執行出錯:SQL Error:$C_sql
";
return false;
}
/*傳回受影響的行數
global $I_changenum;
$I_changenum = OCINumrows($this -> I_stmtID);*/
釋放控制程式碼,傳回值
OCIFreeStatement($this -> I_stmtID);
return true;
}
 
 
 函式名:db_delete($C_sql)
 作 用:delete
 參 數:C_sql sql語句
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_delete($C_sql)
{
return $this -> db_change($C_sql);
}
 
 
 函式名:db_insert($C_sql,A_bind)
 作 用:insert
 參 數:C_sql sql語句
 A_bind 繫結
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_insert($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
 
 
 函式名:db_update($C_sql,A_bind)
 作 用:update
 參 數:C_sql sql語句
 A_bind 繫結
 返回值:布林值
 備 注:該函式只是為了使用直觀,本質呼叫db_change()
 
function db_update($C_sql,$A_bind="")
{
return $this -> db_change($C_sql,$A_bind);
}
 
 函式名:db_commit()
 作 用:事務遞交
 參 數:無
 返回值:布林值
 備 注:無
function db_commit()
{
return (OCICommit($this->I_linkID));
}
 函式名:db_rollback()
 作 用:事務回退
 參 數:無
 返回值:布林值
 備 注:無
function db_rollback()
{
return (OCIRollback($this->I_linkID));
}
 函式名:db_logoff()
 作 用:斷開資料庫連線
 參 數:無
 返回值:布林值
 備 注:無
function db_logoff()
{
return (OCILogoff($this->I_linkID));
}


來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-991436/,如需轉載,請註明出處,否則將追究法律責任。

相關文章