Send patches - preferably formatted by git format-patch - to patches at archlinux32 dot org.
summaryrefslogtreecommitdiff
path: root/vendor/adodb/adodb-php/tests/pdo.php
blob: 31ca59697d0e7eaf601e7878fb1f594d51697bb8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
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>";
}