Exemples PDO_4D

<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$user = 'test';
$pass = 'test';

// Connexion au serveur 4D
$db = new PDO($dsn, $user, $pass);

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

$stmt = $db->prepare('SELECT id, val from test');

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

unset($stmt);
unset($db);
?>

<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$user = 'test';
$pass = 'test';

// Connexion et sélection de la base
$db = new PDO($dsn, $user, $pass);

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

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

unset($stmt);
unset($db);
?>

<?php
$dsn = '4D:host=localhost;charset=UTF-8';
$user = 'test';
$pass = 'test';
 
// Connexion au serveur 4D
$db = new PDO($dsn, $user, $pass);

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

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

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

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

	$db->exec('DROP TABLE ['.$objet.'];');
}

?>