EI :: MOD :: EASYDBI EI :: MOD :: EASYDBI is een DBI-module die eenvoudig beschikbaar is beschikbaar.
Download nu

EI :: MOD :: EASYDBI Rangschikking & Samenvatting

EI :: MOD :: EASYDBI Tags

Perl-module klas Ei Dbi DBI module eierklasse

EI :: MOD :: EASYDBI Beschrijving

EI :: MOD :: easydbi is een DBI-module die eenvoudig beschikbaar is gemaakt. Ei :: mod :: easydbi is een DBI-module gemakkelijk beschikbaar. Synopsis Gebruik ei :: MOD :: Easydbi {debug => 1, trace => 1, upgrade_ok => 1, clear_ok => 1, alias => {leden => 'member_management_master', ...}, sql_abstract => {logic => 'en', ......},}; gebruik dbi; mijn $ dbh = dbi-> verbinden (......); mijn $ es = ei :: mod :: easydbi-> nieuw ($ dbh); $ ED-> TRACE (1); mijn $ db = $ es-> db; mijn $ leden = $ db-> -leden; # Selecteer * van leden waar ID =? Mijn $ Hoge = $ Leden-> Hashref ('ID =?', $ id) || Die Q {Data is niet gevonden. }; # Selecteer * van leden waar leeftijd>? Mijn $ List = $ Leden-> Arrayref ('Leeftijd>?', 20) || Die Q {Data is niet gevonden. }; # Selecteer ID van leden waar user =? Mijn $ ID = $ -> Scalar ('ID', 'gebruiker =?', 'BOO') || Die Q {Data is niet gevonden. }; # De verwerkte lijst wordt verworven. Mijn $ List = $ Leden-> Arrayref ('Leeftijd>?', , sub {My ($ array,% hash) = @_; push @ $ array, "$ hash {id}: $ hash {user }: $ hash {leeftijd} ";}) || Die Q {Data is niet gevonden. }; # De gegevens die onmiddellijk kunnen worden gebruikt, worden verworven. mijn $ tekst; $ Leden-> Arrayref ('Leeftijd>?', , sub {My ($ array,% hash) = @_; $ tekst. = 1, gebruiker => 'Zoo', leeftijd => 20) || Die Q {faalt in Regist of Gegevens. }; # Update-leden Set Andere =?, Leeftijd = leeftijd + 1 waar ID =? $ Leden-> Update (ID => 1, andere => 'Gao', leeftijd => 1) || Die Q {faalt in update van gegevens. }; of $ Leden-> Update ('ID =?', {ID => , andere => 'gao', leeftijd => 1}) || Die Q {faalt in update van gegevens. }; # Het record is toegevoegd bij het falen in de update. $ leden-> update_insert (gebruiker => 'ZAZA', leeftijd => 22); # Het voegt het toe als er geen record is. $ leden-> Find_insert (gebruiker => 'Zaza', leeftijd => 22); # Update-leden Set Elect =? $ -> Upgrade (leeftijd => 20); # Verwijderen van leden waar gebruiker =? $ leden-> Verwijderen ('gebruiker =?', 'ZAZA'); # Verwijderen van leden; $ -> Wissen; # SQL-instructie wordt gebruikt zoals het is. Mijn $ HASH = $ ES-> HASHREF (Q {Select * van leden waar ID =?}, $ ID); Mijn $ lijst = $ ES-> Arrayref (q {Select * van leden waar leeftijd>?}, $ leeftijd); Mijn $ Scalar = $ ES-> Scalar (q {Selecteer gebruiker van leden waar ID =?}, $ ID); $ es-> do (q {invoegen in leden (ID, gebruiker, leeftijd) -waarden (?,?,?)}, $ id, $ user, $ leeftijd); # ] Ondersteuning. mijn $ hash = $-leden-> abs_hashref (@fields,% waar, @order); mijn $ array = $ leden-> abs_arrayref (@fields,% waar, @order); $ LADS-> ABS_INSERT (% VELDVALS || @VALUES); $ leden-> abs_update (% veldvals,% waar); $ leden-> abs_delete (% waar); # Tafel verenigen. # # Selecteer a.user, a.message, b.id, b.age, c.email_addr # van berichten a join-leden b op a.user = b.user # links sluiten Profielen C op b.id = c.id # Waar a.message_id =? # Mijn $ JDB = $ ES-> DB (qw / berichten = leden: a.user = b.user Arrayref ('a.user, a.message, b.id, b.age, c.email_addr', 'a.message_id =?', $ msgstr =? ' # Als u de transactie verwerkt als Commit_OK niet gedefinieerd is, is het altijd terugdraaien. $ es-> commit_ok (1); $ ES-> Sluiten; $ db-> ontkoppeling; vereisten: · PERL-vereisten: · Perl

EI :: MOD :: EASYDBI Gerelateerde software