easydbaccess. easydbaccess هو واجهة الوصول إلى قاعدة بيانات بيرل.
التحميل الان

easydbaccess. الترتيب والملخص

easydbaccess. العلامات

قاعدة البيانات الوحدة النمطية بيرل بيرل الوصول إلى قاعدة البيانات وصول واجهة قاعدة البيانات

easydbaccess. وصف

EasyDBACCESS هي واجهة الوصول إلى قاعدة بيانات بيرل. EasyDBACCESS هي واجهة الوصول إلى قاعدة بيانات بيرل. استخدام EasyDBaccess إذا (المعرفة (EasyDBACCESS :: FOO)) {print "LIB مشمول"؛ } آخر {طباعة "ليب غير مدرج"؛ } بلدي DBA DBA = easydbaccess-> جديد ({host => '127.0.0.1'، usr => 'الجذر'، تمرير => 'passwd'، قاعدة البيانات => 'test_db'})؛ بلدي DBA DBA = EasyDBACCESS-> جديد ({Socket => '/ tmp / mysql.sock'، usr => 'الجذر'، تمرير => 'passwd'، database => 'test_db'})؛ بلدي DBA = EasyDBACCESS-> جديد ({host => '127.0.0.1'، usr => 'الجذر'، تمرير => 'passwd'، قاعدة البيانات => 'test_db'، encoding => 'GBK'})؛ # لا يموت في العملية التالية easydbaccess-> مرة واحدة ()؛ بلدي (DBA DBA، $ Err_Code) = easyDBACCESS-> جديد ({host => '127.0.0.1'، usr => 'الجذر'، تمرير => 'passwd'، database => 'test_db'})؛ إذا ($ err_code == 3) {print "connect خطأ"؛ } Elsif ($ err_code == 0) {print "connect succes"؛ } آخر {core :: die 'bug'؛ } بلدي DBA DBA = EasyDBACCESS-> جديد ({host => '127.0.0.1'، USR => 'الجذر'، تمرير => 'passwd'، database => 'test_db'}، {err_file => 'varloglogfile'} ) بلدي $ die_handler = easyhandler-> جديد (die_to_file، )؛ بلدي DBA = EasyDBACCESS-> جديد ({host => '127.0.0.1'، usr => 'الجذر'، تمرير => 'passwd'، database => 'test_db'}، {die_handler => $ die_handler})؛ بلدي $ dbh = $ dba-> dbh ()؛ easydbaccess-> مرة واحدة ()؛ DBA-> مرة واحدة ()؛ $ RE = $ DBA-> SELECT_ONE ("اختر معرف من شخص يحدد 0،1")؛ # $ RE = 1 ($ RE، $ Err_Code) = $ DBA-> SELECT_ONE ('حدد معرف من شخص يحدد 0،1')؛ # $ RE = 1، $ Err_Code = 0 ($ RE، $ Err_Code) = $ DBA-> SELECT_ONE ('حدد معرف من حد الشخص 20،1')؛ #table شخص غير موجود، وسوف يموت DBA-> مرة واحدة ()؛ ($ RE، $ err_code، $ err_detail) = $ dba-> select_one ('حدد معرف من person2 الحد start_pos، العد'، {start_pos => 0، عد => 1})؛ # لن تموت، لأننا نفعل "$ DBA-> مرة واحدة ()" قبل ذلك إذا كان ($ err_code == 0) {print "لا يوجد خطأ، معرف هو $ RE"؛ } elsif ($ err_code == 5) {خطأ # execute إذا كان ($ dba-> err_code () == 1146) {print 'table غير موجود'؛ } آخر {# خطأ آخر الأساسية :: Die $ Err_Detail؛ }} ($ RE، $ Err_Code) = $ DBA-> تنفيذ ('إدراج في قيم الشخص (؟،؟) "، )؛ # 1، أثرت ($ RE، $ Err_Code) = $ DBA-> حدد ("حدد * من الشخص")؛ # ($ RE، $ Err_Code) = $ dba-> select_array ('select * from شخص' ) # ، ] ($ RE، $ Err_Code) = $ DBA-> select_row ("حدد * من شخص")؛ # {ID => 1، الاسم => 'TOM'} ($ RE، $ Err_Code) = $ dba-> select_col ('حدد معرف من شخص')؛ # ($ RE، $ ERR_CODE) = $ DBA-> SELECT_ONE ("اختر معرف من الشخص")؛ # 1، السطر الأول العمود الأول ($ RE، $ Err_Code) = $ DBA-> SELECT_ONE ('حدد الاسم من شخص حيث معرف = 3')؛ #SELECT_ROW، يمكن أن يسبب SELECT_ONE خطأ no_line إذا كان ($ err_code == 0) {print "لا يوجد خطأ، الاسم هو $ RE"؛ } elsif ($ err_code == 1) {no line print "هناك 0 صف في مجموعة النتائج"؛ } آخر {طباعة "خطأ آخر"؛ } ID $ = $ DBA-> ID ('KEY1')؛ # 1 $ معرف = $ DBA-> ID ('key2')؛ # 1 $ معرف = $ DBA-> ID ('key1')؛ # 2 دولار معرف = $ DBA-> ID ('key1')؛ # 3 $ Sid = $ DBA-> SID ()؛ # 446D40FFD9890184 $ sid_info = $ dba-> sid_info ('446d40ffd9890184')؛ # {SID "=> 3649634692،" تعليق "=> undef،" record_time "=> 1148010751} # سوى إدراج سجل لتدوين الجدول $ SID-> ملاحظة ('Hello World')؛ متطلبات: perl.

easydbaccess. برامج ذات صلة