EasyDBacCess. EasyDBaccessはPerlデータベースアクセスインタフェースです。
今すぐダウンロード

EasyDBacCess. ランキングとまとめ

EasyDBacCess. タグ

データベース Perlモジュール パール データベースアクセス アクセス データベースインターフェース

EasyDBacCess. 説明

EasyDBAccessはPerlのデータベース・アクセス・インタフェースです。 EasyDBAccessはPerlのデータベースアクセスinterface.SYNOPSIS使用EasyDBAccessです。 IF（定義（EasyDBAccess :: FOO））{印刷 "LIBが含まれています"。 {print "libは含まれていません"} }私の$ DBA = EasyDBAccess->新しい（{ホスト=> '127.0.0.1'、USR => 'ルート'、合格=> 'のpasswd'、データベース=> 'TEST_DB'}）。私の$ DBA = EasyDBAccess->新しい（{ソケット=> '/ TMP /にmysql.sock'、USR => 'ルート'、合格=> 'のpasswd'、データベース=> 'TEST_DB'}）。私の$ DBA = EasyDBAccess->新しい（{ホスト=> '127.0.0.1'、USR => 'ルート'、合格=> 'のpasswd'、データベース=> 'TEST_DB'、エンコーディング=> 'GBK'}）。次の動作で#disableダイEasyDBAccess->）（一度。私の（$ DBA、$ ERR_CODE）= EasyDBAccess->新しい（{ホスト=> '127.0.0.1'、USR => 'ルート'、合格=> 'のpasswd'、データベース=> 'TEST_DB'}）。もし（$ ERR_CODE == 3）{プリント "接続エラー"。 } ELSIF（$ ERR_CODE == 0）{プリント "接続成功回数"。 }他{CORE ::ダイ 'BUG'。 }私の$ DBA = EasyDBAccess->新しい（{ホスト=> '127.0.0.1'、USR => 'ルート'、パス=> 'passwdの'、データベース=> 'TEST_DB'}、{ERR_FILE => 'varloglogfile'} ）;私の$ die_handler = EasyHandler->新しい（die_to_file、）;私の$ DBA = EasyDBAccess->新しい（{ホスト=> '127.0.0.1'、USR => 'ルート'、合格=> 'のpasswd'、データベース=> 'TEST_DB'}、{die_handler => $ die_handler}）。私の$ DBH = $ dba-> DBH（）;一度EasyDBAccess->（）; $ dba->一度（）; $再= $ dba-> select_one（ '人の制限からIDを選択する0,1'）; ＃$再= 1（$、$ ERR_CODEを再）= $ dba-> select_one（ '人リミット0,1からIDを選択します'）; ＃$再= 1、$ ERR_CODE = 0（$、$ ERR_CODE再）= $ dba-> select_one（ 'PERSON2限界0,1からIDを選択します'）; #table PERSON2（）は一度$ dba->死んでしまう、存在しません。 （$再度、$ ERR_CODE、$ err_detail）= $ dba-> select_one（ 'PERSON2制限％のstart_pos、％カウントから選択ID'、{start_pos => 0、カウント=> 1}）。私たちは持っているので、＃は、死ぬことはないだろう「$ dba->）（一回」の前にそれであれば（$ ERR_CODE == 0）{印刷「エラーなし、idは$再です」。 }（$ ERR_CODE == 5）{#executeエラーIF（$ dba-> ERR_CODE（）== 1146）{プリントELSIF 'テーブルに存在しません'。 }他{#otherエラーCORE ::ダイの$ err_detail。 }}（$再度、$ ERR_CODE）= $ dba->（ '人値への挿入（）？'、）を実行します。 ＃1、affected_rows（$再、$ ERR_CODE）= $ dba->を選択し（ '人から選択*'）; ＃（$リ、$ ERR_CODE）= $ dba-> select_array（ '人SELECT * FROM 、]（$、$ ERR_CODE再）= $ dba-> select_row（ '人SELECT * FROM'）; ＃{ID => 1、名前=>「トム}（$、$ ERR_CODE再）= $ dba-> select_col（ '人からIDを選択します'）; ＃（$再度、$ ERR_CODE）= $ dba-> select_one（ '人からIDを選択します'）; ＃1、最初の行の最初の列（$再度、$ ERR_CODE）= $ dba-> select_one（ 'ID = 3人の名前を選択します'）; （$ ERR_CODE == 0）{プリント場合select_oneはNO_LINEエラーを引き起こす可能性が#select_rowは、 "エラーなし、名前は$再です"。 } ELSIF（$ ERR_CODE == 1）{#NOライン印刷 "が0の行が結果セットに存在します"。 }他{プリント「その他のエラー」。 } $ ID = $ dba-> ID（ 'KEY1'）;＃1 $ ID = $ dba-> ID（ 'KEY2'）;＃1 $ ID = $ dba-> ID（ 'KEY1'）;＃2 $ ID = $ dba->のid（ 'キー1'）;＃3 $ SID = $ dba-> SID（）; ＃446d40ffd9890184 $ sid_info = $ dba-> sid_info（ '446d40ffd9890184'）; ＃{ "SID" => 3649634692、 "コメント" => undefを、 "RECORD_TIME" => 1148010751}がノートテーブル$ sid-にレコードを挿入#will>ノート（ 'こんにちは世界'）;要件： ・Perl

EasyDBacCess. 関連ソフトウェア