PDF rausgenommen

msd2/myoos/includes/lib/adodb/tests/pdo.php

@@ -0,0 +1,92 @@
+<?php
+error_reporting(E_ALL);
+include('../adodb.inc.php');
+
+echo "<pre>";
+try {
+	echo "New Connection\n";
+
+
+	$dsn = 'pdo_mysql://root:@localhost/northwind?persist';
+
+	if (!empty($dsn)) {
+		$DB = NewADOConnection($dsn) || die("CONNECT FAILED");
+		$connstr = $dsn;
+	} else {
+
+		$DB = NewADOConnection('pdo');
+
+		echo "Connect\n";
+
+		$u = ''; $p = '';
+		/*
+		$connstr = 'odbc:nwind';
+
+		$connstr = 'oci:';
+		$u = 'scott';
+		$p = 'natsoft';
+
+
+		$connstr ="sqlite:d:\inetpub\adodb\sqlite.db";
+		*/
+
+		$connstr = "mysql:dbname=northwind";
+		$u = 'root';
+
+		$connstr = "pgsql:dbname=test";
+		$u = 'tester';
+		$p = 'test';
+
+		$DB->Connect($connstr,$u,$p) || die("CONNECT FAILED");
+
+	}
+
+	echo "connection string=$connstr\n Execute\n";
+
+	//$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;
+	$rs = $DB->Execute("select * from ADOXYZ where id<3");
+	if  ($DB->ErrorNo()) echo "*** errno=".$DB->ErrorNo() . " ".($DB->ErrorMsg())."\n";
+
+
+	//print_r(get_class_methods($DB->_stmt));
+
+	if (!$rs) die("NO RS");
+
+	echo "Meta\n";
+	for ($i=0; $i < $rs->NumCols(); $i++) {
+		var_dump($rs->FetchField($i));
+		echo "<br>";
+	}
+
+	echo "FETCH\n";
+	$cnt = 0;
+	while (!$rs->EOF) {
+		adodb_pr($rs->fields);
+		$rs->MoveNext();
+		if ($cnt++ > 1000) break;
+	}
+
+	echo "<br>--------------------------------------------------------<br>\n\n\n";
+
+	$stmt = $DB->PrepareStmt("select * from ADOXYZ");
+
+	$rs = $stmt->Execute();
+	$cols = $stmt->NumCols(); // execute required
+
+	echo "COLS = $cols";
+	for($i=1;$i<=$cols;$i++) {
+		$v = $stmt->_stmt->getColumnMeta($i);
+		var_dump($v);
+	}
+
+	echo "e=".$stmt->ErrorNo() . " ".($stmt->ErrorMsg())."\n";
+	while ($arr = $rs->FetchRow()) {
+		adodb_pr($arr);
+	}
+	die("DONE\n");
+
+} catch (exception $e) {
+	echo "<pre>";
+	echo $e;
+	echo "</pre>";
+}