Easydbaccess Easydbaccess is een toegangsinterface van Perl-database.
Download nu

Easydbaccess Rangschikking & Samenvatting

Easydbaccess Tags

database Perl-module perl Database-toegang Toegang database-interface

Easydbaccess Beschrijving

Easydbaccess is een toegangsinterface van Perl-database. Easydbaccess is een Perl-database-toegangsinterface.Synopsis Gebruik Easydbaccess; Als (gedefinieerd (easydbaccess :: foo)) {print "lib is meegeleverd"; } anders {print "lib is niet inbegrepen"; } Mijn $ DBA = EasyDBaccess-> Nieuw ({host => '127.0.0.1', USR => 'root', pass => 'passwd', database => 'Test_db'}); My $ DBA = EasyDBaccess-> NIEUW ({Socket => '/ TMP / MySQL.Sock', USR => 'root', pass => 'Passwd', database => 'Test_db'}); Mijn $ DBA = EasyDBaccess-> NIEUW ({host => '127.0.0.1', USR => 'root', pass => 'passwd', database => 'test_db', codering => 'GBK'}); #disable sterven in de volgende operatie EasyDbaccess-> eenmaal (); My ($ DBA, $ err_code) = Easydbaccess-> NIEUW ({host => '127.0.0.1', ur => 'root', pass => 'passwd', database => 'test_db'}); if ($ ERR_CODE == 3) {Print "Connect-fout"; } Elsif ($ ERR_CODE == 0) {print "Smulp aansluiten"; } anders {kern :: Die 'bug'; } Mijn $ DBA = Easydbaccess-> NIEUW ({host => '127.0.0.1', USR => 'root', pass => 'passwd', database => 'test_db'}, {err_file => 'Varloglogfile'} ); Mijn $ Die_Handler = Easyhandler-> Nieuw (Die_To_File, ); Mijn $ DBA = EasyDbaccess-> NIEUW ({host => '127.0.0.1', USR => 'root', pass => 'passwd', database => 'test_db'}, {DIE_HANDLER => $ DIE_HANDLER}); mijn $ dbh = $ dba-> dbh (); Easydbaccess-> eenmaal (); $ DBA-> eenmaal (); $ RE = $ DBA-> SELECT_ONE ('Selecteer ID van Person Limit 0,1'); # $ re = 1 ($ re, $ err_code) = $ dba-> select_one ('selecteer ID van persoonslimiet 0,1'); # $ re = 1, $ err_code = 0 ($ re, $ err_code) = $ dba-> select_one ('selecteer ID van persoon2 limiet 0,1'); #Table person2 bestaat niet, zal eenmaal $ DBA-> sterven (); ($ RE, $ ERR_CODE, $ ERR_DETAIL) = $ DBA-> SELECT_ONE ('SELECTEERDE ID VAN PERSOON2 LIMIET% START_POS,% COUNT', {START_POS => 0, COUNT => 1}); # zal niet doodgaan, want we hebben eenmaal ($ dba-> eenmaal () 'eerder gedaan als ($ err_code == 0) {print "geen fout, id is $ re"; } Elsif ($ ERR_CODE == 5) {#execute fout if ($ dba-> err_code () == 1146) {print 'tabel niet bestaat'; } else {#other Fout Core :: Die $ ERR_DETAIL; }} ($ RE, $ ERR_CODE) = $ DBA-> UITVOEREN ('Invoegen in persoonswaarden (?,?)', ); # 1, getroffen_rows ($ re, $ err_code) = $ DBA-> Select ('Select * van persoon'); # ($ re, $ err_code) = $ dba-> select_array ('select * van persoon' ); # , ] ($ RE, $ ERR_CODE) = $ DBA-> SELECT_ROW ('Selecteer * van persoon'); # {id => 1, naam => 'tom'} ($ re, $ err_code) = $ dba-> select_col ('selecteer ID van persoon'); # ($ re, $ err_code) = $ dba-> select_one ('selecteer ID van persoon'); # 1, eerste regel eerste kolom ($ re, $ err_code) = $ dba-> select_one ('selecteer naam van persoon waar id = 3'); #Select_ROW, SELECT_ONE kan no_line-fout veroorzaken als ($ err_code == 0) {print "Geen fout, naam is $ re"; } Elsif ($ ERR_CODE == 1) {#no lijnprint "Er is 0 rij in resultaat instellen"; } anders {afdrukken "andere fout"; } $ ID = $ DBA-> ID ('Key1'); # 1 $ ID = $ DBA-> ID ('Key2'); # 1 $ ID = $ DBA-> ID ('sleutel1'); # 2 $ ID = $ DBA-> ID ('Key1'); # 3 $ SID = $ DBA-> SID (); # 446D40FFD9890184 $ SID_INFO = $ DBA-> SID_INFO ('446D40FFD9890184'); # {"SID" => 3649634692, "commentaar" => undef, "record_time" => 1148010751} #will Plaats een record om opmerking tabel $ SID-> OPMERKING ('Hallo World'); Vereisten: · Perl

Easydbaccess Gerelateerde software