Easydbaccess EasyDBAccess es una interfaz de acceso de base de datos Perl.
Descargar ahora

Easydbaccess Clasificación y resumen

Easydbaccess Etiquetas

base de datos Módulo perl perla Acceso a la base de datos Acceso interfaz de base de datos

Easydbaccess Descripción

EasyDbAccess es una interfaz de acceso de la base de datos Perl. Easydbaccess es una interfaz de acceso de la base de datos PERL.Synopsis usa easydbaccess; Si (definido (easydbaccess :: foo)) {impresión "lib está incluido"; } else {imprimir "lib no está incluido"; } My $ dba = easydbaccess-> nuevo ({host => '127.0.1.1', usr => 'root', pass => 'passwd', base de datos => 'test_db'}); My $ dba = easydbaccess-> nuevo ({socket => '/ tmp / mysql.sock', usr => 'root', pass => 'passwd', base de datos => 'test_db'}); My $ dba = easydbaccess-> nuevo ({host => '127.0.1.1', usr => 'root', pass => 'passwd', base de datos => 'test_db', codificación => 'gbk'}); # DIERDO DIRECTORIO EN LA SIGUIENTE OPERACIÓN EASYDBACCESS-> una vez (); Mi ($ DBA, $ ERR_CODE) = easydbaccess-> nuevo ({host => '127.0.0.1', usr => 'root', pass => 'passwd', base de datos => 'test_db'}); if ($ err_code == 3) {imprimir "Conectar error"; } Elsif ($ ERR_CODE == 0) {Imprimir "Connect Succ"; } else {núcleo :: Die 'Bug'; } My $ dba = easydbaccess-> nuevo ({host => '127.0.1.1', usr => 'root', pass => 'passwd', base de datos => 'test_db'}, {err_DB '}, {ERR_FILE =>' VARLOGLOGFILE '} ) My $ die_handler = EasyHandler-> Nuevo (Die_to_File, ); My $ dba = easydbaccess-> nuevo ({host => '127.0.1.1', usr => 'root', pass => 'passwd', base de datos => 'test_db'}, {die_handler => $ die_handler}); My $ DBH = $ DBA-> DBH (); Easydbaccess-> una vez (); $ dba-> una vez (); $ re = $ dba-> select_one ('seleccione ID de la persona límite 0,1'); # $ re = 1 ($ re, $ err_code) = $ dba-> select_one ('seleccione ID de la persona límite 0,1'); # $ re = 1, $ ERR_CODE = 0 ($ RE, $ ERR_CODE) = $ DBA-> Select_one ('Seleccionar ID del límite de Person20,1'); # TRABABLE PERSONA2 no existe, morirá $ DBA-> una vez (); ($ re, $ ERR_CODE, $ ERR_DETAIL) = $ DBA-> Select_one ('Seleccionar ID del límite de Person2% Start_POS,% COUNT', {START_POS => 0, CUENTA => 1}); # no morirá, porque hemos hecho "$ dba-> una vez ()" antes de ella si ($ err_code == 0) {imprimir "sin error, id es $ re"; } Elsif ($ ERR_CODE == 5) {# Error de execución si ($ DBA-> ERR_CODE () == 1146) {impresión 'la tabla no existe'; } else {# Otro error de error :: Die $ ERR_DETAIL; }} ($ re, $ err_code) = $ DBA-> Ejecutar ('Insertar en los valores de la persona (?,)', ); # 1, AFFECTOS ($ RE, $ ERR_CODE) = $ DBA-> Seleccionar ('Seleccionar * de persona'); # ($ re, $ err_code) = $ dba-> select_array ('select * de persona' ) # , ]] ($ re, $ err_code) = $ dba-> select_row ('select * de persona'); # {id => 1, nombre => 'Tom'} ($ re, $ err_code) = $ dba-> select_col ('seleccione ID de persona'); # ($ re, $ err_code) = $ dba-> select_one ('seleccione ID de persona'); # 1, primera línea primera columna ($ re, $ err_code) = $ dba-> select_one ('Seleccione Nombre de la persona donde id = 3'); #select_row, select_one puede causar error NO_LINE si ($ ERR_CODE == 0) {Imprimir "Sin error, el nombre es $ re"; } ELSIF ($ ERR_CODE == 1) {#NO LINE PRINT "Hay 0 fila en el conjunto de resultados"; } else {imprimir "otro error"; } $ ID = $ DBA-> ID ('KEY1'); # 1 $ ID = $ DBA-> ID ('KEY2'); # 1 $ ID = $ DBA-> ID ('KEY1'); # 2 $ ID = $ DBA-> ID ('KEY1'); # 3 $ SID = $ DBA-> SID (); # 446d40FFFFD9890184 $ SID_INFO = $ DBA-> SID_INFO ('446D40FFFD9890184'); # {"sid" => 3649634692, "Comentario" => Undef, "Record_time" => 1148010751} # Insertar un registro para notar la Tabla $ sid-> Note ('Hello World'); Requisitos: · Perl

Easydbaccess Software relacionado