Ei :: mod :: easydbi

EIR :: MOD :: EasyDBI ist ein dBI-Modul, das leicht verfügbar ist.
Jetzt downloaden

Ei :: mod :: easydbi Ranking & Zusammenfassung

Anzeige

  • Rating:
  • Lizenz:
  • Perl Artistic License
  • Preis:
  • FREE
  • Name des Herausgebers:
  • Masatoshi Mizuno
  • Website des Verlags:
  • http://search.cpan.org/~lushe/

Ei :: mod :: easydbi Stichworte


Ei :: mod :: easydbi Beschreibung

Ei :: mod :: easydbi ist ein dBI-Modul, das leicht verfügbar ist. Ei :: mod :: easydbi ist ein dbi-Modul leicht zur Verfügung. => 'eigentum_management_master', ...}, sql_abstract => {logic => 'und', ......},}; Verwenden Sie DBI; Meine $ dbh = dbi-> connect (......); Meine $ ES = Ei :: MOD :: EasyDbi-> NEU ($ dbh); $ ed-> spur (1); meine $ db = $ ES-> db; meine $ Mitglieder = $ db-> Mitglieder; # Wählen Sie * von den Mitgliedern aus, in denen ID =? Meine $ hoge = $ Mitglieder-> hashref ('id =?', $ ID) || Die Q {Daten werden nicht gefunden. }; # Wählen Sie * von den Mitgliedern aus, wo Alter>? Meine $ list = $ Mitglieder-> arrayref ('Alter>?', 20) || Die Q {Daten werden nicht gefunden. }; # Wählen Sie ID von den Mitgliedern aus, wo Benutzer =? Meine $ ID = $ Mitglieder-> Skalar ('ID', 'user =?', 'boo') || Die Q {Daten werden nicht gefunden. }; # Die verarbeitete Liste wird erworben. Meine $ list = $ Mitglieder-> arrayref ('Alter>?', , Sub {My ($ array,% Hash) = @_; Push @ $ Array, "$ Hash {ID}: $ Hash {Benutzer }: $ Hash {Alter} ";}) || Die Q {Daten werden nicht gefunden. }; # Die Daten, die sofort verwendet werden können, wird erworben. mein $ text; $ Mitglieder-> arrayref ('Alter>?', , sub {My ($ array,% hash) = @_; $ Text. = 1, Benutzer => 'Zoo', Alter => 20) || Die Q {fehlschlägt im Rudium der Daten. }; # Update-Mitglieder Set Andere =?, Alter = Alter + 1 Wo ID =? $ Mitglieder-> Aktualisierung (ID => 1, andere => 'Gao', Alter => 1) || Die Q {fehlschlägt im Update von Daten. }; oder $ Mitglieder-> update ('id =?', {id => , andere => 'Gao', Alter => 1}) || Die Q {fehlschlägt im Update von Daten. }; # Der Datensatz wird beim Versagen des Updates hinzugefügt. $ Mitglieder-> update_insert (Benutzer => 'Zaza', Alter => 22); # Es fügt es hinzu, wenn es keinen Datensatz gibt. $ Mitglieder-> find_insert (Benutzer => 'Zaza', Alter => 22); # Update-Mitglieder eingestelltes Alter =? $ Mitglieder-> Upgrade (Alter => 20); # Löschen Sie von Mitgliedern, in denen Benutzer =? $ Mitglieder-> löschen ('user =?', 'Zaza'); # Löschen von Mitgliedern; $ Mitglieder-> klar; # SQL-Anweisung wird so verwendet, wie es ist. Meine $ Hash = $ ES-> HashRef (q {Select * von den Mitgliedern, in denen ID =?}, $ ID); Meine $ list = $ ES-> arrayref (q {Select * von Mitgliedern, an denen Alter>?}, $ Alter); My $ scalar = $ ES-> Skalar (q {Benutzer von den Mitgliedern auswählen, in denen ID =?}, $ ID); $ ES-> do (q {Einfügen in die Werte von Mitgliedern (ID, Benutzer, Alter) (?,?,?)}, $ ID, $ user, $ age); # ] Unterstützung. meine $ Hash = $ Mitglieder-> abs_hashref (@fields,%, wo @order); Meine $ array = $ Mitglieder-> abs_arrayref (@fields,%, wo, @order); $ Mitglieder-> abs_insert (% FeldeVals || @Values); $ Mitglieder-> abs_update (% feldevals,% wo); $ Mitglieder-> ABS_DELETE (% wo); # Tisch vereinigt. # # Wählen Sie A.USER, A.Message, B.ID, b.Agy, c.Email_addr # von Nachrichten ein Join-Mitglieder B auf A.User = B.User # Linke Join-Profile C auf B.ID = C.ID # Wo a.message_id =? # My $ JDB = $ ES-> dB (QW / Meldungen = Mitglieder: A.USER = B.User arrayref ('a.user, a.message, b.id, b.ae, c.email_addr', 'a.message_id =?', msgstr); # Wenn Sie die Transaktion #, wenn Commit_OK undefiniert ist, ist es immer Rollback. $ ES-> Commit_ok (1); $ ES-> Schließen; $ dbh-> Trennen der Verbindung; Anforderungen: · Perl Anforderungen: · Perl.


Ei :: mod :: easydbi Zugehörige Software