archived-doc-es/reference/pdo_4d/examples.xml

<?xml version="1.0" encoding="utf-8"?>
<!-- $Revision$ -->
<!-- EN-Revision: a7729a2a065593d37cbd79603df378672d8adbd3 Maintainer: seros Status: ready -->
<!-- Reviewed: no -->

<refentry xml:id="pdo-4d.examples" xmlns="http://docbook.org/ns/docbook">
 <refnamediv>
  <refname>Ejemplos con PDO_4D</refname>
  <refpurpose>Ejemplos con PDO_4D</refpurpose>
 </refnamediv>
 
 <refsect1 role="description">
  <para>
   Este ejemplo básico muestra cómo conectarse, ejecutar una consulta,
   leer datos y desconectarse de un servidor de 4D SQL.
   <example>
    <title>Ejemplo básico con PDO_4D</title>
    <programlisting role="php">
<![CDATA[
<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$usuario = 'test';
$contraseña = 'test';

// Conexión al servidor de 4D SQL
$bd = new PDO($dsn, $usuario, $contraseña);

try {
    $bd->exec('CREATE TABLE test(id varCHAR(1) NOT NULL, val VARCHAR(10))');
} catch (PDOException $e) {
    die("Error 4D : " . $e->getMessage());
}
        
$bd->exec("INSERT INTO test VALUES('A', 'B')");
$bd->exec("INSERT INTO test VALUES('C', 'D')");
$bd->exec("INSERT INTO test VALUES('E', 'F')");

$sentencia = $bd->prepare('SELECT id, val from test');

$sentencia->execute();
print_r($sentencia->fetchAll());

unset($sentencia);
unset($bd);
?>
]]>
    </programlisting>
    &example.outputs;
    <screen>
<![CDATA[
    Array
(
    [0] => Array
        (
            [ID] => A
            [0] => A
            [VAL] => B
            [1] => B
        )

    [1] => Array
        (
            [ID] => C
            [0] => C
            [VAL] => D
            [1] => D
        )

    [2] => Array
        (
            [ID] => E
            [0] => E
            [VAL] => F
            [1] => F
        )

)

]]>
    </screen>
   </example>
  </para>
 </refsect1>
 
 <refsect1 role="description">
  <para>
   Este ejemplo muestra cómo ejecutar una consulta en el lenguaje de 4D, 
   y cómo leer el resultado a través de PDO_4D.
   <example>
    <title>Acceder al lenguaje de 4D desde pdo_4d</title>
    <para>
     Configurar un método de 4D, llamado <literal>method</literal>. Asegurarse
     que en las propiedades del método, la opción 
     <literal>Disponbile mediante SQL</literal> es comprobada. El código de 4D
     es el siguiente.
    </para>
    <programlisting role="4d">
<![CDATA[
C_TEXTE($0)
$0:=Version application(*);
]]>
    </programlisting>
    <para>
     El código de PHP para utilizar el método de 4D de arriba es: 
    </para>
    <programlisting role="php">
<![CDATA[
<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$usuario = 'test';
$contraseña = 'test';

// Conexión al servidor de 4D
$bd = new PDO($dsn, $usuario, $contraseña);

$sentencia = $bd->prepare('SELECT {FN method() AS VARCHAR } FROM _USER_SCHEMAS LIMIT 1');

$sentencia->execute();
print_r($sentencia->fetchAll());

unset($sentencia);
unset($bd);
?>]]>
    </programlisting>
    &example.outputs;
    <screen>
<![CDATA[
(
    [0] => Array
        (
            [<expression>] => F0011140
            [0] => F0011140
        )

)
]]>
    </screen>
   </example>
  </para>
 </refsect1>
 
 <refsect1 role="description">
  <para>
   <example>
    <title>Escapar nombres de tablas de 4D</title>
    <para>
     Este ejemplo ilustra cómo escapar caracteres en una
     consulta SQL de 4D.
    </para>
    <programlisting role="php">
<![CDATA[
<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$usuario = 'test';
$contraseña = 'test';

// Conexión al servidor de 4D
$bd = new PDO($dsn, $usuario, $contraseña);

$objetos = array('[',']','[]','][','[[',']]','[[[',']]]','TBL ]]32[23');

foreach($objetos as $id => $objeto) {
    $objeto = str_replace(']',']]', $objeto);
    print "$objeto\n";
    
    $bd->exec('CREATE TABLE IF NOT EXISTS ['.$objeto.'](['.$objeto.'] FLOAT)');

    $req = "INSERT INTO [$objeto] ([$objeto]) VALUES ($id);";
    $bd->query($req);

    $q = $bd->prepare("SELECT [$objeto] FROM [$objeto]");
    $q->execute();
    $x[] = $q->fetch(PDO::FETCH_NUM);

    $bd->exec('DROP TABLE ['.$objeto.'];');
}

?>
]]>
    </programlisting>
    &example.outputs;
    <screen>
<![CDATA[
[
]]
[]]
]][
[[
]]]]
[[[
]]]]]]
TBL ]]]]32[23
]]>
    </screen>
   </example>
  </para>
 </refsect1>
 
</refentry>

<!-- Keep this comment at the end of the file
Local variables:
mode: sgml
sgml-omittag:t
sgml-shorttag:t
sgml-minimize-attributes:nil
sgml-always-quote-attributes:t
sgml-indent-step:1
sgml-indent-data:t
indent-tabs-mode:nil
sgml-parent-document:nil
sgml-default-dtd-file:"~/.phpdoc/manual.ced"
sgml-exposed-tags:nil
sgml-local-catalogs:nil
sgml-local-ecat-files:nil
End:
vim600: syn=xml fen fdm=syntax fdl=2 si
vim: et tw=78 syn=sgml
vi: ts=1 sw=1
-->