PageRenderTime 54ms CodeModel.GetById 18ms RepoModel.GetById 0ms app.codeStats 0ms

/lib/rdfapi-php/api/util/adodb/tests/test.php

https://github.com/komagata/plnet
PHP | 1568 lines | 1372 code | 64 blank | 132 comment | 77 complexity | cc1cd8adc95fe7e8f54783bcc468b2cd MD5 | raw file
Possible License(s): LGPL-2.1

Large files files are truncated, but you can click here to view the full file

    

  1. <?php

    2. 

  2. /* 

    3. 

  3. V4.52 10 Aug 2004  (c) 2000-2004 John Lim (jlim@natsoft.com.my). All rights reserved.

    4. 

  4.   Released under both BSD license and Lesser GPL library license. 

    5. 

  5.   Whenever there is any discrepancy between the two licenses, 

    6. 

  6.   the BSD license will take precedence. 

    7. 

  7.   Set tabs to 4 for best viewing.

    8. 

  8. 	

    9. 

  9.   Latest version is available at http://adodb.sourceforge.net

    10. 

  10. */

    11. 

  11. 

    12. 

  12. error_reporting(E_ALL);

    13. 

  13. 

    14. 

  14. $ADODB_FLUSH = true;

    15. 

  15. 

    16. 

  16. define('ADODB_ASSOC_CASE',0);

    17. 

  17. 

    18. 

  18. if (PHP_VERSION < 5) include_once('../adodb-pear.inc.php');

    19. 

  19. //--------------------------------------------------------------------------------------

    20. 

  20. //define('ADODB_ASSOC_CASE',1);

    21. 

  21. //

    22. 

  22. function Err($msg)

    23. 

  23. {

    24. 

  24. 	print "<b>$msg</b><br>";

    25. 

  25. 	flush();

    26. 

  26. }

    27. 

  27. 

    28. 

  28. function CheckWS($conn)

    29. 

  29. {

    30. 

  30. global $ADODB_EXTENSION;

    31. 

  31. 

    32. 

  32. 	include_once('../session/adodb-session.php');

    33. 

  33. 	if (defined('CHECKWSFAIL')){ echo " TESTING $conn ";flush();}

    34. 

  34. 	$saved = $ADODB_EXTENSION;

    35. 

  35. 	$db = ADONewConnection($conn);

    36. 

  36. 	$ADODB_EXTENSION = $saved;

    37. 

  37. 	if (headers_sent()) {

    38. 

  38. 		print "<p><b>White space detected in adodb-$conn.inc.php or include file...</b></p>";

    39. 

  39. 		//die();

    40. 

  40. 	}

    41. 

  41. }

    42. 

  42. 

    43. 

  43. function do_strtolower(&$arr)

    44. 

  44. {

    45. 

  45. 	foreach($arr as $k => $v) {

    46. 

  46. 		$arr[$k] = strtolower($v);

    47. 

  47. 	}

    48. 

  48. }

    49. 

  49. 

    50. 

  50. 

    51. 

  51. function CountExecs($db, $sql, $inputarray)

    52. 

  52. {

    53. 

  53. global $EXECS;  $EXECS++;

    54. 

  54. }

    55. 

  55. 

    56. 

  56. function CountCachedExecs($db, $secs2cache, $sql, $inputarray)

    57. 

  57. {

    58. 

  58. global $CACHED; $CACHED++;

    59. 

  59. }

    60. 

  60. 

    61. 

  61. // the table creation code is specific to the database, so we allow the user 

    62. 

  62. // to define their own table creation stuff

    63. 

  63. 

    64. 

  64. function testdb(&$db,$createtab="create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)")

    65. 

  65. {

    66. 

  66. GLOBAL $ADODB_vers,$ADODB_CACHE_DIR,$ADODB_FETCH_MODE, $HTTP_GET_VARS,$ADODB_COUNTRECS;

    67. 

  67. 

    68. 

  68. ?>	<form method=GET>

    69. 

  69. 	</p>

    70. 

  70. 	<table width=100% ><tr><td bgcolor=beige>&nbsp;</td></tr></table>

    71. 

  71. 	</p>

    72. 

  72. <?php  

    73. 

  73. 	$create =false;

    74. 

  74. 	/*$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    75. 

  75. 	

    76. 

  76. 	$rs = $db->Execute('select lastname,firstname,lastname,id from adoxyz');

    77. 

  77. 	$arr = $rs->GetAssoc();

    78. 

  78. 	echo "<pre>";print_r($arr);

    79. 

  79. 	die();*/

    80. 

  80. 	

    81. 

  81. 	GLOBAL $EXECS, $CACHED;

    82. 

  82. 	

    83. 

  83. 	$EXECS = 0;

    84. 

  84. 	$CACHED = 0;

    85. 

  85. 	//$db->Execute("drop table adodb_logsql");

    86. 

  86. 	if ((rand()%3) == 0) @$db->Execute("delete from adodb_logsql");

    87. 

  87. 	$db->debug=1;

    88. 

  88. 	

    89. 

  89. 	$db->fnExecute = 'CountExecs';

    90. 

  90. 	$db->fnCacheExecute = 'CountCachedExecs';

    91. 

  91. 	

    92. 

  92. 	if (empty($_GET['nolog'])) {

    93. 

  93. 		echo "<h3>SQL Logging enabled</h3>";

    94. 

  94. 		$db->LogSQL();/*

    95. 

  95. 		$sql =

    96. 

  96. "SELECT t1.sid, t1.sid, t1.title, t1.hometext, t1.notes, t1.aid, t1.informant, 

    97. 

  97. t2.url, t2.email, t1.catid, t3.title, t1.topic, t4.topicname, t4.topicimage, 

    98. 

  98. t4.topictext, t1.score, t1.ratings, t1.counter, t1.comments, t1.acomm 

    99. 

  99. FROM `nuke_stories` `t1`, `nuke_authors` `t2`, `nuke_stories_cat` `t3`, `nuke_topics` `t4` 

    100. 

  100. 	WHERE ((t2.aid=t1.aid) AND (t3.catid=t1.catid) AND (t4.topicid=t1.topic) 

    101. 

  101. 	AND ((t1.alanguage='german') OR (t1.alanguage='')) AND (t1.ihome='0')) 

    102. 

  102. 	ORDER BY t1.time DESC";

    103. 

  103. 		$db->SelectLimit($sql);

    104. 

  104. 		echo $db->ErrorMsg();*/

    105. 

  105. 	}

    106. 

  106. 	$ADODB_CACHE_DIR = dirname(TempNam('/tmp','testadodb'));

    107. 

  107. 	$db->debug = false;

    108. 

  108. 	//print $db->UnixTimeStamp('2003-7-22 23:00:00');

    109. 

  109. 	

    110. 

  110. 	$phpv = phpversion();

    111. 

  111. 	if (defined('ADODB_EXTENSION')) $ext = ' &nbsp; Extension '.ADODB_EXTENSION.' installed';

    112. 

  112. 	else $ext = '';

    113. 

  113. 	print "<h3>ADODB Version: $ADODB_vers Host: <i>$db->host</i> &nbsp; Database: <i>$db->database</i> &nbsp; PHP: $phpv $ext</h3>";

    114. 

  114. 	flush();

    115. 

  115. 	$arr = $db->ServerInfo();

    116. 

  116. 	print_r($arr);

    117. 

  117. 	echo "<br>";

    118. 

  118. 	$e = error_reporting(E_ALL-E_WARNING);

    119. 

  119. 	flush();

    120. 

  120. 	

    121. 

  121. 	$tt  = $db->Time(); 

    122. 

  122. 	if ($tt == 0) echo '<br><b>$db->Time failed</b>';

    123. 

  123. 	else echo "<br>db->Time: ".date('d-m-Y H:i:s',$tt);

    124. 

  124. 	echo '<br>';

    125. 

  125. 

    126. 

  126. 	echo "Date=",$db->UserDate('2002-04-07'),'<br>';

    127. 

  127. 	print "<i>date1</i> (1969-02-20) = ".$db->DBDate('1969-2-20');

    128. 

  128. 	print "<br><i>date1</i> (1999-02-20) = ".$db->DBDate('1999-2-20');

    129. 

  129. 	print "<br><i>date1.1</i> 1999 = ".$db->DBDate("'1999'");

    130. 

  130. 	print "<br><i>date2</i> (1970-1-2) = ".$db->DBDate(24*3600)."<p>";

    131. 

  131. 	print "<i>ts1</i> (1999-02-20 13:40:50) = ".$db->DBTimeStamp('1999-2-20 1:40:50 pm');

    132. 

  132. 	print "<br><i>ts1.1</i> (1999-02-20 13:40:00) = ".$db->DBTimeStamp('1999-2-20 13:40');

    133. 

  133. 	print "<br><i>ts2</i> (1999-02-20) = ".$db->DBTimeStamp('1999-2-20');

    134. 

  134. 	print "<br><i>ts3</i> (1970-1-2 +/- timezone) = ".$db->DBTimeStamp(24*3600);

    135. 

  135. 	print "<br> Fractional TS (1999-2-20 13:40:50.91): ".$db->DBTimeStamp($db->UnixTimeStamp('1999-2-20 13:40:50.91+1'));

    136. 

  136. 	 $dd = $db->UnixDate('1999-02-20');

    137. 

  137. 	print "<br>unixdate</i> 1999-02-20 = ".date('Y-m-d',$dd)."<p>";

    138. 

  138. 	print "<br><i>ts4</i> =".($db->UnixTimeStamp("19700101000101")+8*3600);

    139. 

  139. 	print "<br><i>ts5</i> =".$db->DBTimeStamp($db->UnixTimeStamp("20040110092123"));

    140. 

  140. 	print "<br><i>ts6</i> =".$db->UserTimeStamp("20040110092123");

    141. 

  141. 	print "<br><i>ts7</i> =".$db->DBTimeStamp("20040110092123");

    142. 

  142. 	flush();

    143. 

  143. 	// mssql too slow in failing bad connection

    144. 

  144. 	if (false && $db->databaseType != 'mssql') {

    145. 

  145. 		print "<p>Testing bad connection. Ignore following error msgs:<br>";

    146. 

  146. 		$db2 = ADONewConnection();

    147. 

  147. 		$rez = $db2->Connect("bad connection");

    148. 

  148. 		$err = $db2->ErrorMsg();

    149. 

  149. 		print "<i>Error='$err'</i></p>";

    150. 

  150. 		if ($rez) print "<b>Cannot check if connection failed.</b> The Connect() function returned true.</p>";

    151. 

  151. 	}

    152. 

  152. 	error_reporting($e);

    153. 

  153. 	flush();

    154. 

  154. 

    155. 

  155. 	//$ADODB_COUNTRECS=false;

    156. 

  156. 	$rs=$db->Execute('select * from adoxyz order by id');

    157. 

  157. 

    158. 

  158. 	//print_r($rs);

    159. 

  159. 	//OCIFetchStatement($rs->_queryID,$rez,0,-1);//,OCI_ASSOC | OCI_FETCHSTATEMENT_BY_ROW);

    160. 

  160. 	//print_r($rez);

    161. 

  161. 	//die();

    162. 

  162. 	if($rs === false) $create = true;

    163. 

  163. 	else $rs->Close();

    164. 

  164. 		

    165. 

  165. 	//if ($db->databaseType !='vfp') $db->Execute("drop table ADOXYZ");

    166. 

  166. 	

    167. 

  167. 	if ($create) {

    168. 

  168. 		if (false && $db->databaseType == 'ibase') {

    169. 

  169. 			print "<b>Please create the following table for testing:</b></p>$createtab</p>";

    170. 

  170. 			return;

    171. 

  171. 		} else {

    172. 

  172. 			$db->debug = 1;

    173. 

  173. 			$e = error_reporting(E_ALL-E_WARNING);

    174. 

  174. 			$db->Execute($createtab);

    175. 

  175. 			error_reporting($e);

    176. 

  176. 		}

    177. 

  177. 	}

    178. 

  178. 	$rs = &$db->Execute("delete from ADOXYZ"); // some ODBC drivers will fail the drop so we delete

    179. 

  179. 	if ($rs) {

    180. 

  180. 		if(! $rs->EOF) print "<b>Error: </b>RecordSet returned by Execute('delete...') should show EOF</p>";

    181. 

  181. 		$rs->Close();

    182. 

  182. 	} else print "err=".$db->ErrorMsg();

    183. 

  183. 

    184. 

  184. 	print "<p>Test select on empty table, FetchField when EOF, and GetInsertSQL</p>";

    185. 

  185. 	$rs = &$db->Execute("select id,firstname from ADOXYZ where id=9999");

    186. 

  186. 	if ($rs && !$rs->EOF) print "<b>Error: </b>RecordSet returned by Execute(select...') on empty table should show EOF</p>";

    187. 

  187. 	if ($rs->EOF && ($o = $rs->FetchField(0))) {

    188. 

  188. 		$record['id'] = 99;

    189. 

  189. 		$record['firstname'] = 'John';

    190. 

  190. 		$sql =  $db->GetInsertSQL($rs, $record);

    191. 

  191. 		if ($sql != "INSERT INTO ADOXYZ ( id, firstname ) VALUES ( 99, 'John' )") Err("GetInsertSQL does not work on empty table");

    192. 

  192. 	} else {

    193. 

  193. 		Err("FetchField does not work on empty recordset, meaning GetInsertSQL will fail...");

    194. 

  194. 	}

    195. 

  195. 	if ($rs) $rs->Close();

    196. 

  196. 	flush();

    197. 

  197. 	//$db->debug=true;	

    198. 

  198. 	print "<p>Testing Commit: ";

    199. 

  199. 	$time = $db->DBDate(time());

    200. 

  200. 	if (!$db->BeginTrans()) {

    201. 

  201. 		print '<b>Transactions not supported</b></p>';

    202. 

  202. 		if ($db->hasTransactions) Err("hasTransactions should be false");

    203. 

  203. 	} else { /* COMMIT */

    204. 

  204. 		if (!$db->hasTransactions) Err("hasTransactions should be true");

    205. 

  205. 		if ($db->transCnt != 1) Err("Invalid transCnt = $db->transCnt (should be 1)");

    206. 

  206. 		$rs = $db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values (99,'Should Not','Exist (Commit)',$time)");

    207. 

  207. 		if ($rs && $db->CommitTrans()) {

    208. 

  208. 			$rs->Close();

    209. 

  209. 			$rs = &$db->Execute("select * from ADOXYZ where id=99");

    210. 

  210. 			if ($rs === false || $rs->EOF) {

    211. 

  211. 				print '<b>Data not saved</b></p>';

    212. 

  212. 				$rs = &$db->Execute("select * from ADOXYZ where id=99");

    213. 

  213. 				print_r($rs);

    214. 

  214. 				die();

    215. 

  215. 			} else print 'OK</p>';

    216. 

  216. 			if ($rs) $rs->Close();

    217. 

  217. 		} else {

    218. 

  218. 			if (!$rs) {

    219. 

  219. 				print "<b>Insert failed</b></p>";

    220. 

  220. 				$db->RollbackTrans();

    221. 

  221. 			} else print "<b>Commit failed</b></p>";

    222. 

  222. 		}

    223. 

  223. 		if ($db->transCnt != 0) Err("Invalid transCnt = $db->transCnt (should be 0)");

    224. 

  224. 		

    225. 

  225. 		/* ROLLBACK */	

    226. 

  226. 		if (!$db->BeginTrans()) print "<p><b>Error in BeginTrans</b>()</p>";

    227. 

  227. 		print "<p>Testing Rollback: ";

    228. 

  228. 		$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values (100,'Should Not','Exist (Rollback)',$time)");

    229. 

  229. 		if ($db->RollbackTrans()) {

    230. 

  230. 			$rs = $db->Execute("select * from ADOXYZ where id=100");

    231. 

  231. 			if ($rs && !$rs->EOF) print '<b>Fail: Data should rollback</b></p>';

    232. 

  232. 			else print 'OK</p>';

    233. 

  233. 			if ($rs) $rs->Close();

    234. 

  234. 		} else

    235. 

  235. 			print "<b>Commit failed</b></p>";

    236. 

  236. 			

    237. 

  237. 		$rs = &$db->Execute('delete from ADOXYZ where id>50');

    238. 

  238. 		if ($rs) $rs->Close();

    239. 

  239. 		

    240. 

  240. 		if ($db->transCnt != 0) Err("Invalid transCnt = $db->transCnt (should be 0)");

    241. 

  241. 	}

    242. 

  242. 	

    243. 

  243. 	if (1) {

    244. 

  244. 		print "<p>Testing MetaDatabases()</p>";

    245. 

  245. 		print_r( $db->MetaDatabases());

    246. 

  246. 

    247. 

  247. 		print "<p>Testing MetaTables() and MetaColumns()</p>";

    248. 

  248. 		$a = $db->MetaTables();

    249. 

  249. 		if ($a===false) print "<b>MetaTables not supported</b></p>";

    250. 

  250. 		else {

    251. 

  251. 			print "Array of tables and views: "; 

    252. 

  252. 			foreach($a as $v) print " ($v) ";

    253. 

  253. 			print '</p>';

    254. 

  254. 		}

    255. 

  255. 		

    256. 

  256. 		$a = $db->MetaTables('VIEW');

    257. 

  257. 		if ($a===false) print "<b>MetaTables not supported (views)</b></p>";

    258. 

  258. 		else {

    259. 

  259. 			print "Array of views: "; 

    260. 

  260. 			foreach($a as $v) print " ($v) ";

    261. 

  261. 			print '</p>';

    262. 

  262. 		}

    263. 

  263. 		

    264. 

  264. 		$a = $db->MetaTables(false,false,'aDo%');

    265. 

  265. 		if ($a===false) print "<b>MetaTables not supported (mask)</b></p>";

    266. 

  266. 		else {

    267. 

  267. 			print "Array of ado%: "; 

    268. 

  268. 			foreach($a as $v) print " ($v) ";

    269. 

  269. 			print '</p>';

    270. 

  270. 		}

    271. 

  271. 		

    272. 

  272. 		$a = $db->MetaTables('TABLE');

    273. 

  273. 		if ($a===false) print "<b>MetaTables not supported</b></p>";

    274. 

  274. 		else {

    275. 

  275. 			print "Array of tables: "; 

    276. 

  276. 			foreach($a as $v) print " ($v) ";

    277. 

  277. 			print '</p>';

    278. 

  278. 		}

    279. 

  279. 		

    280. 

  280. 		$db->debug=1;

    281. 

  281. 		$a = $db->MetaColumns('ADOXYZ');

    282. 

  282. 		if ($a===false) print "<b>MetaColumns not supported</b></p>";

    283. 

  283. 		else {

    284. 

  284. 			print "<p>Columns of ADOXYZ: <font size=1><br>";

    285. 

  285. 			foreach($a as $v) {print_r($v); echo "<br>";}

    286. 

  286. 			echo "</font>";

    287. 

  287. 		}

    288. 

  288. 		

    289. 

  289. 		print "<p>Testing MetaIndexes</p>";

    290. 

  290. 		

    291. 

  291. 		$a = $db->MetaIndexes(('ADOXYZ'),true);

    292. 

  292. 		if ($a===false) print "<b>MetaIndexes not supported</b></p>";

    293. 

  293. 		else {

    294. 

  294. 			print "<p>Indexes of ADOXYZ: <font size=1><br>";

    295. 

  295. 			adodb_pr($a);

    296. 

  296. 			echo "</font>";

    297. 

  297. 		}

    298. 

  298. 		print "<p>Testing MetaPrimaryKeys</p>";

    299. 

  299. 		$a = $db->MetaPrimaryKeys('ADOXYZ');

    300. 

  300. 		var_dump($a);

    301. 

  301. 	}

    302. 

  302. 	$rs = &$db->Execute('delete from ADOXYZ');

    303. 

  303. 	if ($rs) $rs->Close();

    304. 

  304. 	

    305. 

  305. 	$db->debug = false;

    306. 

  306. 	

    307. 

  307. 	

    308. 

  308. 	switch ($db->databaseType) {

    309. 

  309. 	case 'postgres7':

    310. 

  310. 	case 'postgres64':

    311. 

  311. 	case 'postgres':

    312. 

  312. 	case 'ibase':

    313. 

  313. 		print "<p>Encode=".$db->BlobEncode("abc\0d\"'

    314. 

  314. ef")."</p>";//'

    315. 

  315. 

    316. 

  316. 		print "<p>Testing Foreign Keys</p>";

    317. 

  317. 		$arr = $db->MetaForeignKeys('adoxyz',false,true);

    318. 

  318. 		print_r($arr);

    319. 

  319. 		if (!$arr) Err("Bad MetaForeignKeys");

    320. 

  320. 		break;

    321. 

  321. 	

    322. 

  322. 	case 'odbc_mssql':

    323. 

  323. 	case 'mssqlpo':

    324. 

  324. 		print "<p>Testing Foreign Keys</p>";

    325. 

  325. 		$arr = $db->MetaForeignKeys('Orders',false,true);

    326. 

  326. 		print_r($arr);

    327. 

  327. 		if (!$arr) Err("Bad MetaForeignKeys");

    328. 

  328. 		if ($db->databaseType == 'odbc_mssql') break;

    329. 

  329. 	

    330. 

  330. 	case 'mssql': 

    331. 

  331. 	

    332. 

  332. 		

    333. 

  333. /*

    334. 

  334. ASSUME Northwind available...

    335. 

  335. 

    336. 

  336. CREATE PROCEDURE SalesByCategory

    337. 

  337. 	@CategoryName nvarchar(15), @OrdYear nvarchar(4) = '1998'

    338. 

  338. AS

    339. 

  339. IF @OrdYear != '1996' AND @OrdYear != '1997' AND @OrdYear != '1998' 

    340. 

  340. BEGIN

    341. 

  341. 	SELECT @OrdYear = '1998'

    342. 

  342. END

    343. 

  343. 

    344. 

  344. SELECT ProductName,

    345. 

  345. 	TotalPurchase=ROUND(SUM(CONVERT(decimal(14,2), OD.Quantity * (1-OD.Discount) * OD.UnitPrice)), 0)

    346. 

  346. FROM [Order Details] OD, Orders O, Products P, Categories C

    347. 

  347. WHERE OD.OrderID = O.OrderID 

    348. 

  348. 	AND OD.ProductID = P.ProductID 

    349. 

  349. 	AND P.CategoryID = C.CategoryID

    350. 

  350. 	AND C.CategoryName = @CategoryName

    351. 

  351. 	AND SUBSTRING(CONVERT(nvarchar(22), O.OrderDate, 111), 1, 4) = @OrdYear

    352. 

  352. GROUP BY ProductName

    353. 

  353. ORDER BY ProductName

    354. 

  354. GO

    355. 

  355. */

    356. 

  356. 		print "<h4>Testing Stored Procedures for mssql</h4>";

    357. 

  357. 		$saved = $db->debug;

    358. 

  358. 		$db->debug=true;

    359. 

  359. 		

    360. 

  360. 		$cat = 'Dairy Products';

    361. 

  361. 		$yr = '1998';

    362. 

  362. 		

    363. 

  363. 		$stmt = $db->PrepareSP('SalesByCategory');

    364. 

  364. 		$db->InParameter($stmt,$cat,'CategoryName');

    365. 

  365. 		$db->InParameter($stmt,$yr,'OrdYear');

    366. 

  366. 		$rs = $db->Execute($stmt);

    367. 

  367. 		rs2html($rs);

    368. 

  368. 		

    369. 

  369. 		$cat = 'Grains/Cereals';

    370. 

  370. 		$yr = 1998;

    371. 

  371. 		

    372. 

  372. 		$stmt = $db->PrepareSP('SalesByCategory');

    373. 

  373. 		$db->InParameter($stmt,$cat,'CategoryName');

    374. 

  374. 		$db->InParameter($stmt,$yr,'OrdYear');

    375. 

  375. 		$rs = $db->Execute($stmt);

    376. 

  376. 		rs2html($rs);

    377. 

  377. 		

    378. 

  378. 		/*

    379. 

  379. 		Test out params - works in 4.2.3 and 4.3.3 but not 4.3.0:

    380. 

  380. 		

    381. 

  381. 			CREATE PROCEDURE at_date_interval 

    382. 

  382. 				@days INTEGER, 

    383. 

  383. 				@start VARCHAR(20) OUT, 

    384. 

  384. 				@end VARCHAR(20) OUT 	

    385. 

  385. 			AS 

    386. 

  386. 			BEGIN 

    387. 

  387. 				set @start = CONVERT(VARCHAR(20), getdate(), 101) 

    388. 

  388. 				set @end =CONVERT(VARCHAR(20), dateadd(day, @days, getdate()), 101 ) 

    389. 

  389. 			END

    390. 

  390. 			GO

    391. 

  391. 		*/

    392. 

  392. 		$db->debug=1;

    393. 

  393. 		$stmt = $db->PrepareSP('at_date_interval');

    394. 

  394. 		$days = 10;

    395. 

  395. 		$begin_date = '';

    396. 

  396. 		$end_date = '';

    397. 

  397. 		$db->InParameter($stmt,$days,'days', 4, SQLINT4); 

    398. 

  398. 		$db->OutParameter($stmt,$begin_date,'start', 20, SQLVARCHAR ); 

    399. 

  399. 		$db->OutParameter($stmt,$end_date,'end', 20, SQLVARCHAR ); 

    400. 

  400. 		$db->Execute($stmt);

    401. 

  401. 		if (empty($begin_date) or empty($end_date)) {

    402. 

  402. 			Err("MSSQL SP Test for OUT Failed");

    403. 

  403. 			print "begin=$begin_date end=$end_date<p>";

    404. 

  404. 		} else print "(Today +10days) = (begin=$begin_date end=$end_date)<p>";

    405. 

  405. 	

    406. 

  406. 		$db->debug = $saved;

    407. 

  407. 		break;

    408. 

  408. 	case 'oci8': 

    409. 

  409. 	case 'oci8po':

    410. 

  410. 		$saved = $db->debug;

    411. 

  411. 		$db->debug=true;

    412. 

  412. 		

    413. 

  413. 

    414. 

  414. 		/*

    415. 

  415. 		CREATE TABLE PHOTOS

    416. 

  416. 		(

    417. 

  417. 		  ID           NUMBER(16),

    418. 

  418. 		  PHOTO        BLOB,

    419. 

  419. 		  DESCRIPTION  VARCHAR2(4000 BYTE),

    420. 

  420. 		  DESCCLOB     CLOB

    421. 

  421. 		);

    422. 

  422. 		

    423. 

  423. 		INSERT INTO PHOTOS (ID) VALUES(1);

    424. 

  424. 		*/

    425. 

  425. 		$s = '';

    426. 

  426. 		for ($i = 0; $i <= 500; $i++) {

    427. 

  427. 			$s .= '1234567890';

    428. 

  428. 		}

    429. 

  429. 		

    430. 

  430. 		

    431. 

  431. 		print "<h4>Testing Blob: size=".strlen($s)."</h4>";

    432. 

  432. 		$ok = $db->Updateblob('photos','photo',$s,'id=1');

    433. 

  433. 		if (!$ok) Err("Blob failed 1");

    434. 

  434. 		else {

    435. 

  435. 			$s2= $db->GetOne("select photo from photos where id=1");

    436. 

  436. 			if ($s !== $s2) Err("updateblob does not match");

    437. 

  437. 		}

    438. 

  438. 		

    439. 

  439. 		print "<h4>Testing Clob: size=".strlen($s)."</h4>";

    440. 

  440. 		$ok = $db->UpdateClob('photos','descclob',$s,'id=1');

    441. 

  441. 		if (!$ok) Err("Clob failed 1");

    442. 

  442. 		else {

    443. 

  443. 			$s2= $db->GetOne("select descclob from photos where id=1");

    444. 

  444. 			if ($s !== $s2) Err("updateclob does not match");

    445. 

  445. 		}

    446. 

  446. 		

    447. 

  447. 		

    448. 

  448. 		$s = '';

    449. 

  449. 		$s2 = '';

    450. 

  450. 		print "<h4>Testing Foreign Keys</h4>";

    451. 

  451. 		$arr = $db->MetaForeignKeys('emp');

    452. 

  452. 		print_r($arr);

    453. 

  453. 		if (!$arr) Err("Bad MetaForeignKeys");

    454. 

  454. 		print "<h4>Testing Cursor Variables</h4>";

    455. 

  455. /*

    456. 

  456. -- TEST PACKAGE

    457. 

  457. 

    458. 

  458. CREATE OR REPLACE PACKAGE Adodb AS

    459. 

  459. TYPE TabType IS REF CURSOR RETURN TAB%ROWTYPE;

    460. 

  460. PROCEDURE open_tab (tabcursor IN OUT TabType,tablenames IN VARCHAR);

    461. 

  461. PROCEDURE open_tab2 (tabcursor IN OUT TabType,tablenames IN OUT VARCHAR) ;

    462. 

  462. PROCEDURE data_out(input IN VARCHAR, output OUT VARCHAR);

    463. 

  463. 

    464. 

  464. PROCEDURE myproc (p1 IN NUMBER, p2 OUT NUMBER);

    465. 

  465. END Adodb;

    466. 

  466. /

    467. 

  467. 

    468. 

  468. 

    469. 

  469. CREATE OR REPLACE PACKAGE BODY Adodb AS

    470. 

  470. PROCEDURE open_tab (tabcursor IN OUT TabType,tablenames IN VARCHAR) IS

    471. 

  471. 	BEGIN

    472. 

  472. 		OPEN tabcursor FOR SELECT * FROM TAB WHERE tname LIKE tablenames;

    473. 

  473. 	END open_tab;

    474. 

  474. 

    475. 

  475. 	PROCEDURE open_tab2 (tabcursor IN OUT TabType,tablenames IN OUT VARCHAR) IS

    476. 

  476. 	BEGIN

    477. 

  477. 		OPEN tabcursor FOR SELECT * FROM TAB WHERE tname LIKE tablenames;

    478. 

  478. 		tablenames := 'TEST';

    479. 

  479. 	END open_tab2;

    480. 

  480. 	

    481. 

  481. PROCEDURE data_out(input IN VARCHAR, output OUT VARCHAR) IS

    482. 

  482. 	BEGIN

    483. 

  483. 		output := 'Cinta Hati '||input;

    484. 

  484. 	END;

    485. 

  485. 

    486. 

  486. PROCEDURE myproc (p1 IN NUMBER, p2 OUT NUMBER) AS

    487. 

  487. BEGIN

    488. 

  488. p2 := p1;

    489. 

  489. END;

    490. 

  490. END Adodb;

    491. 

  491. /

    492. 

  492. 

    493. 

  493. 

    494. 

  494. */

    495. 

  495. 		$rs = $db->ExecuteCursor("BEGIN adodb.open_tab(:zz,'A%'); END;",'zz');

    496. 

  496. 	

    497. 

  497. 		if ($rs && !$rs->EOF) {

    498. 

  498. 			$v = $db->GetOne("SELECT count(*) FROM tab where tname like 'A%'");

    499. 

  499. 			if ($v == $rs->RecordCount()) print "Test 1 RowCount: OK<p>";

    500. 

  500. 			else Err("Test 1 RowCount ".$rs->RecordCount().", actual = $v");

    501. 

  501. 		} else {

    502. 

  502. 			print "<b>Error in using Cursor Variables 1</b><p>";

    503. 

  503. 		}

    504. 

  504. 		

    505. 

  505. 		print "<h4>Testing Stored Procedures for oci8</h4>";

    506. 

  506. 		

    507. 

  507. 		$stmt = $db->PrepareSP("BEGIN adodb.data_out(:a1, :a2); END;");

    508. 

  508. 		$a1 = 'Malaysia';

    509. 

  509. 		//$a2 = ''; # a2 doesn't even need to be defined!

    510. 

  510. 		$db->InParameter($stmt,$a1,'a1');

    511. 

  511. 		$db->OutParameter($stmt,$a2,'a2');

    512. 

  512. 		$rs = $db->Execute($stmt);

    513. 

  513. 		if ($rs) {

    514. 

  514. 			if ($a2 !== 'Cinta Hati Malaysia') print "<b>Stored Procedure Error: a2 = $a2</b><p>";

    515. 

  515. 			else echo  "OK: a2=$a2<p>";

    516. 

  516. 		} else {

    517. 

  517. 			print "<b>Error in using Stored Procedure IN/Out Variables</b><p>";

    518. 

  518. 		}

    519. 

  519. 		

    520. 

  520. 		

    521. 

  521. 		$tname = 'A%';

    522. 

  522. 		

    523. 

  523. 		$stmt = $db->PrepareSP('select * from tab where tname like :tablename');

    524. 

  524. 		$db->Parameter($stmt,$tname,'tablename');

    525. 

  525. 		$rs = $db->Execute($stmt);

    526. 

  526. 		rs2html($rs);

    527. 

  527. 		

    528. 

  528. 		$db->debug = $saved;

    529. 

  529. 		break;

    530. 

  530. 	

    531. 

  531. 	default:

    532. 

  532. 		break;

    533. 

  533. 	}

    534. 

  534. 	$arr = array(

    535. 

  535. 		array(1,'Caroline','Miranda'),

    536. 

  536. 		array(2,'John','Lim'),

    537. 

  537. 		array(3,'Wai Hun','See')

    538. 

  538. 	);

    539. 

  539. 	$db->debug=1;

    540. 

  540. 	print "<p>Testing Bulk Insert of 3 rows</p>";

    541. 

  541. 

    542. 

  542. 	$sql = "insert into ADOXYZ (id,firstname,lastname) values (".$db->Param('0').",".$db->Param('1').",".$db->Param('2').")";

    543. 

  543. 	$db->StartTrans();

    544. 

  544. 	$db->Execute($sql,$arr);

    545. 

  545. 	$db->CompleteTrans();

    546. 

  546. 	$rs = $db->Execute('select * from ADOXYZ order by id');

    547. 

  547. 	if ($rs->RecordCount() != 3) Err("Bad bulk insert");

    548. 

  548. 	

    549. 

  549. 	rs2html($rs);

    550. 

  550. 	

    551. 

  551. 	$db->Execute('delete from ADOXYZ');

    552. 

  552. 		

    553. 

  553. 	print "<p>Inserting 50 rows</p>";

    554. 

  554. 

    555. 

  555. 	for ($i = 0; $i < 5; $i++) {	

    556. 

  556. 

    557. 

  557. 	$time = $db->DBDate(time());

    558. 

  558. 	if (empty($HTTP_GET_VARS['hide'])) $db->debug = true;

    559. 

  559. 	switch($db->databaseType){

    560. 

  560. 	case 'mssqlpo':

    561. 

  561. 	case 'mssql':

    562. 

  562. 		$sqlt = "CREATE TABLE mytable (

    563. 

  563.   row1 INT  IDENTITY(1,1) NOT NULL,

    564. 

  564.   row2 varchar(16),

    565. 

  565.   PRIMARY KEY  (row1))";

    566. 

  566.   		//$db->debug=1;

    567. 

  567.   		if (!$db->Execute("delete from mytable")) 

    568. 

  568. 			$db->Execute($sqlt);

    569. 

  569. 			

    570. 

  570. 		$ok = $db->Execute("insert into mytable (row2) values ('test')");

    571. 

  571. 		$ins_id=$db->Insert_ID();

    572. 

  572. 		echo "Insert ID=";var_dump($ins_id);

    573. 

  573. 		if ($ins_id == 0) Err("Bad Insert_ID()");

    574. 

  574. 		$ins_id2 = $db->GetOne("select row1 from mytable");

    575. 

  575. 		if ($ins_id != $ins_id2) Err("Bad Insert_ID() 2");

    576. 

  576. 		

    577. 

  577. 		$arr = array(0=>'Caroline',1=>'Miranda');

    578. 

  578. 		$sql = "insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+0,?,?,$time)";

    579. 

  579. 		break;

    580. 

  580. 		

    581. 

  581. 	case 'mysql':

    582. 

  582. 		$sqlt = "CREATE TABLE `mytable` (

    583. 

  583.   `row1` int(11) NOT NULL auto_increment,

    584. 

  584.   `row2` varchar(16) NOT NULL default '',

    585. 

  585.   PRIMARY KEY  (`row1`),

    586. 

  586.   KEY `myindex` (`row1`,`row2`)

    587. 

  587. ) ";

    588. 

  588. 		if (!$db->Execute("delete from mytable")) 

    589. 

  589. 			$db->Execute($sqlt);

    590. 

  590. 			

    591. 

  591. 		$ok = $db->Execute("insert into mytable (row2) values ('test')");

    592. 

  592. 		$ins_id=$db->Insert_ID();

    593. 

  593. 		echo "Insert ID=";var_dump($ins_id);

    594. 

  594. 		if ($ins_id == 0) Err("Bad Insert_ID()");

    595. 

  595. 		$ins_id2 = $db->GetOne("select row1 from mytable");

    596. 

  596. 		if ($ins_id != $ins_id2) Err("Bad Insert_ID() 2");

    597. 

  597. 		

    598. 

  598. 	default:

    599. 

  599. 		$arr = array(0=>'Caroline',1=>'Miranda');

    600. 

  600. 		$sql = "insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+0,?,?,$time)";

    601. 

  601. 		break;

    602. 

  602. 	

    603. 

  603. 	case 'oci8':

    604. 

  604. 	case 'oci805':

    605. 

  605. 		$arr = array('first'=>'Caroline','last'=>'Miranda');

    606. 

  606. 		$amt = rand() % 100;

    607. 

  607. 		$sql = "insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+0,:first,:last,$time)";		

    608. 

  608. 		break;

    609. 

  609. 	}

    610. 

  610. 	if ($i & 1) {

    611. 

  611. 		$sql = $db->Prepare($sql);

    612. 

  612. 	}

    613. 

  613. 	$rs = $db->Execute($sql,$arr);

    614. 

  614. 		

    615. 

  615. 	if ($rs === false) Err( 'Error inserting with parameters');

    616. 

  616. 	else $rs->Close();

    617. 

  617. 	$db->debug = false;

    618. 

  618. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+1,'John','Lim',$time)");

    619. 

  619. 	/*$ins_id=$db->Insert_ID();

    620. 

  620. 	echo "Insert ID=";var_dump($ins_id);*/

    621. 

  621. 	if ($db->databaseType == 'mysql') if ($ins_id == 0) Err('Bad Insert_ID');

    622. 

  622. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+2,'Mary','Lamb',$time )");

    623. 

  623. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+3,'George','Washington',$time )");

    624. 

  624. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+4,'Mr. Alan','Tam',$time )");

    625. 

  625. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+5,'Alan',".$db->quote("Turing'ton").",$time )");

    626. 

  626. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created)values ($i*10+6,'Serena','Williams',$time )");

    627. 

  627. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+7,'Yat Sun','Sun',$time )");

    628. 

  628. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+8,'Wai Hun','See',$time )");

    629. 

  629. 	$db->Execute("insert into ADOXYZ (id,firstname,lastname,created) values ($i*10+9,'Steven','Oey',$time )");

    630. 

  630. 	} // for

    631. 

  631. 	if (1) {

    632. 

  632. 	$db->debug=1;

    633. 

  633. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    634. 

  634. 	$cnt = $db->GetOne("select count(*) from ADOXYZ");

    635. 

  635. 	$rs = $db->Execute('update ADOXYZ set id=id+1');	

    636. 

  636. 	if (!is_object($rs)) {

    637. 

  637. 		print_r($rs);

    638. 

  638. 		err("Update should return object");

    639. 

  639. 	} 

    640. 

  640. 	if (!$rs) err("Update generated error");

    641. 

  641. 	

    642. 

  642. 	$nrows = $db->Affected_Rows();   

    643. 

  643. 	if ($nrows === false) print "<p><b>Affected_Rows() not supported</b></p>";

    644. 

  644. 	else if ($nrows != $cnt)  print "<p><b>Affected_Rows() Error: $nrows returned (should be 50) </b></p>";

    645. 

  645. 	else print "<p>Affected_Rows() passed</p>";

    646. 

  646. 	}

    647. 

  647. 	

    648. 

  648. 	

    649. 

  649. 	$array = array('zid'=>1,'zdate'=>date('Y-m-d',time()));

    650. 

  650. 	$id = $db->GetOne("select id from ADOXYZ 

    651. 

  651. 		where id=".$db->Param('zid')." and created>=".$db->Param('ZDATE')."",

    652. 

  652. 		$array);

    653. 

  653. 	if ($id != 1) Err("Bad bind; id=$id");

    654. 

  654. 	else echo "<br>Bind date/integer passed";

    655. 

  655. 	

    656. 

  656. 	$db->debug = false;

    657. 

  657. 	

    658. 

  658. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    659. 

  659.  //////////////////////////////////////////////////////////////////////////////////////////

    660. 

  660. 	

    661. 

  661. 	$rs = $db->Execute("select * from ADOXYZ where firstname = 'not known'");

    662. 

  662. 	if (!$rs ||  !$rs->EOF) print "<p><b>Error on empty recordset</b></p>";

    663. 

  663. 	else if ($rs->RecordCount() != 0) {

    664. 

  664. 		print "<p><b>Error on RecordCount. Should be 0. Was ".$rs->RecordCount()."</b></p>"; 

    665. 

  665. 		print_r($rs->fields);

    666. 

  666. 	}

    667. 

  667. 	if ($db->databaseType !== 'odbc') {

    668. 

  668. 		$rs = &$db->Execute("select id,firstname,lastname,created,".$db->random." from ADOXYZ order by id");

    669. 

  669. 		if ($rs) {

    670. 

  670. 			if ($rs->RecordCount() != 50) {

    671. 

  671. 				print "<p><b>RecordCount returns ".$rs->RecordCount()."</b></p>";

    672. 

  672. 				$poc = $rs->PO_RecordCount('ADOXYZ');

    673. 

  673. 				if ($poc == 50) print "<p> &nbsp; &nbsp; PO_RecordCount passed</p>";

    674. 

  674. 				else print "<p><b>PO_RecordCount returns wrong value: $poc</b></p>";

    675. 

  675. 			} else print "<p>RecordCount() passed</p>";

    676. 

  676. 			if (isset($rs->fields['firstname'])) print '<p>The fields columns can be indexed by column name.</p>';

    677. 

  677. 			else {

    678. 

  678. 				Err( '<p>The fields columns <i>cannot</i> be indexed by column name.</p>');

    679. 

  679. 				print_r($rs->fields);

    680. 

  680. 			}

    681. 

  681. 			if (empty($HTTP_GET_VARS['hide'])) rs2html($rs);

    682. 

  682. 		}

    683. 

  683. 		else print "<p><b>Error in Execute of SELECT with random</b></p>";

    684. 

  684. 	}

    685. 

  685. 	$val = $db->GetOne("select count(*) from ADOXYZ");

    686. 

  686. 	 if ($val == 50) print "<p>GetOne returns ok</p>";

    687. 

  687. 	 else print "<p><b>Fail: GetOne returns $val</b></p>";

    688. 

  688. 

    689. 

  689. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    690. 

  690. 	$val = $db->GetRow("select count(*) from ADOXYZ");

    691. 

  691. 	 if ($val[0] == 50 and sizeof($val) == 1) print "<p>GetRow returns ok</p>";

    692. 

  692. 	 else {

    693. 

  693. 	 	print_r($val);

    694. 

  694. 	 	print "<p><b>Fail: GetRow returns {$val[0]}</b></p>";

    695. 

  695. 	}

    696. 

  696. 

    697. 

  697. 	print "<p>FetchObject/FetchNextObject Test</p>";

    698. 

  698. 	$rs = &$db->Execute('select * from ADOXYZ');

    699. 

  699. 	

    700. 

  700. 	if (empty($rs->connection)) print "<b>Connection object missing from recordset</b></br>";

    701. 

  701. 	

    702. 

  702. 	while ($o = $rs->FetchNextObject()) { // calls FetchObject internally

    703. 

  703. 		if (!is_string($o->FIRSTNAME) || !is_string($o->LASTNAME)) {

    704. 

  704. 			print_r($o);

    705. 

  705. 			print "<p><b>Firstname is not string</b></p>";

    706. 

  706. 			break;

    707. 

  707. 		}

    708. 

  708. 	}

    709. 

  709. 	

    710. 

  710. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    711. 

  711. 	print "<p>FetchObject/FetchNextObject Test 2</p>";

    712. 

  712. 	

    713. 

  713. 	$rs = &$db->Execute('select * from ADOXYZ');

    714. 

  714. 	if (empty($rs->connection)) print "<b>Connection object missing from recordset</b></br>";

    715. 

  715. 	print_r($rs->fields);

    716. 

  716. 	while ($o = $rs->FetchNextObject()) { // calls FetchObject internally

    717. 

  717. 		if (!is_string($o->FIRSTNAME) || !is_string($o->LASTNAME)) {

    718. 

  718. 			print_r($o);

    719. 

  719. 			print "<p><b>Firstname is not string</b></p>";

    720. 

  720. 			break;

    721. 

  721. 		}

    722. 

  722. 	}

    723. 

  723. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    724. 

  724. 	

    725. 

  725. 	$savefetch = $ADODB_FETCH_MODE;

    726. 

  726. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    727. 

  727. 	

    728. 

  728. 	print "<p>CacheSelectLimit  Test</p>";

    729. 

  729. 	$db->debug=1;

    730. 

  730. 	$rs = $db->CacheSelectLimit('  select  id, firstname from  ADOXYZ order by id',2);

    731. 

  731. 	if ($rs && !$rs->EOF) {

    732. 

  732. 		if (isset($rs->fields[0])) {

    733. 

  733. 			Err("ASSOC has numeric fields");

    734. 

  734. 			print_r($rs->fields);

    735. 

  735. 		}

    736. 

  736. 		if ($rs->fields['id'] != 1)  {Err("Error"); print_r($rs->fields);};

    737. 

  737. 		if (trim($rs->fields['firstname']) != 'Caroline')  {print Err("Error 2"); print_r($rs->fields);};

    738. 

  738. 		$rs->MoveNext();

    739. 

  739. 		if ($rs->fields['id'] != 2)  {Err("Error 3"); print_r($rs->fields);};

    740. 

  740. 		$rs->MoveNext();

    741. 

  741. 		if (!$rs->EOF) {

    742. 

  742. 			Err("Error EOF");

    743. 

  743. 			print_r($rs);

    744. 

  744. 		}

    745. 

  745. 	}

    746. 

  746. 	

    747. 

  747. 	print "<p>FETCH_MODE = ASSOC: Should get 1, Caroline</p>";

    748. 

  748. 	$rs = &$db->SelectLimit('select id,firstname from ADOXYZ order by id',2);

    749. 

  749. 	if ($rs && !$rs->EOF) {

    750. 

  750. 		if (ADODB_ASSOC_CASE == 2) {

    751. 

  751. 			$id = 'ID';

    752. 

  752. 			$fname = 'FIRSTNAME';

    753. 

  753. 		}else {

    754. 

  754. 			$id = 'id';

    755. 

  755. 			$fname = 'firstname';

    756. 

  756. 		}

    757. 

  757. 		if ($rs->fields[$id] != 1)  {Err("Error 1"); print_r($rs->fields);};

    758. 

  758. 		if (trim($rs->fields[$fname]) != 'Caroline')  {Err("Error 2"); print_r($rs->fields);};

    759. 

  759. 		$rs->MoveNext();

    760. 

  760. 		if ($rs->fields[$id] != 2)  {Err("Error 3"); print_r($rs->fields);};

    761. 

  761. 		$rs->MoveNext();

    762. 

  762. 		if (!$rs->EOF) Err("Error EOF");

    763. 

  763. 		else if (is_array($rs->fields) || $rs->fields) {

    764. 

  764. 			Err("Error: ## fields should be set to false on EOF");

    765. 

  765. 			print_r($rs->fields);

    766. 

  766. 		}

    767. 

  767. 	}

    768. 

  768. 	

    769. 

  769. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    770. 

  770. 	print "<p>FETCH_MODE = NUM: Should get 1, Caroline</p>";

    771. 

  771. 	$rs = &$db->SelectLimit('select id,firstname from ADOXYZ order by id',1);

    772. 

  772. 	if ($rs && !$rs->EOF) {

    773. 

  773. 		if (isset($rs->fields['id'])) Err("FETCH_NUM has ASSOC fields");

    774. 

  774. 		if ($rs->fields[0] != 1)  {Err("Error 1"); print_r($rs->fields);};

    775. 

  775. 		if (trim($rs->fields[1]) != 'Caroline')  {Err("Error 2");print_r($rs->fields);};

    776. 

  776. 		$rs->MoveNext();

    777. 

  777. 		if (!$rs->EOF) Err("Error EOF");

    778. 

  778. 

    779. 

  779. 	}

    780. 

  780. 	$ADODB_FETCH_MODE = $savefetch;

    781. 

  781. 	

    782. 

  782. 	$db->debug = false;

    783. 

  783. 	print "<p>GetRowAssoc Upper: Should get 1, Caroline</p>";

    784. 

  784. 	$rs = &$db->SelectLimit('select id,firstname from ADOXYZ order by id',1);

    785. 

  785. 	if ($rs && !$rs->EOF) {

    786. 

  786. 		$arr = &$rs->GetRowAssoc();

    787. 

  787. 		if ($arr['ID'] != 1) {Err("Error 1");print_r($arr);};

    788. 

  788. 		if (trim($arr['FIRSTNAME']) != 'Caroline') {Err("Error 2"); print_r($arr);};

    789. 

  789. 		$rs->MoveNext();

    790. 

  790. 		if (!$rs->EOF) Err("Error EOF");

    791. 

  791. 

    792. 

  792. 	}

    793. 

  793. 	print "<p>GetRowAssoc Lower: Should get 1, Caroline</p>";

    794. 

  794. 	$rs = &$db->SelectLimit('select id,firstname from ADOXYZ order by id',1);

    795. 

  795. 	if ($rs && !$rs->EOF) {

    796. 

  796. 		$arr = &$rs->GetRowAssoc(false);

    797. 

  797. 		if ($arr['id'] != 1) {Err("Error 1"); print_r($arr);};

    798. 

  798. 		if (trim($arr['firstname']) != 'Caroline') {Err("Error 2"); print_r($arr);};

    799. 

  799. 

    800. 

  800. 	}

    801. 

  801. 	

    802. 

  802. 	print "<p>GetCol Test</p>";

    803. 

  803. 	$col = $db->GetCol('select distinct firstname from adoxyz order by 1');

    804. 

  804. 	if (!is_array($col)) Err("Col size is wrong");

    805. 

  805. 	if (trim($col[0]) != 'Alan' or trim($col[9]) != 'Yat Sun') Err("Col elements wrong");

    806. 

  806. 

    807. 

  807. 	$db->debug = true;

    808. 

  808. 	print "<p>SelectLimit Distinct Test 1: Should see Caroline, John and Mary</p>";

    809. 

  809. 	$rs = &$db->SelectLimit('select distinct * from ADOXYZ order by id',3);

    810. 

  810. 	

    811. 

  811. 	echo "<p>Date Update Test</p>";

    812. 

  812. 	$zdate = date('Y-m-d',time()+3600*24);

    813. 

  813. 	$zdate = $db->DBDate($zdate);

    814. 

  814. 	$db->Execute("update ADOXYZ set created=$zdate where id=1");

    815. 

  815. 	$row = $db->GetRow("select created,firstname from ADOXYZ where id=1");

    816. 

  816. 	print_r($row); echo "<br>";

    817. 

  817. 	

    818. 

  818. 	//$zdate = date('Y-m-d',time()+3600*24);

    819. 

  819. 	//$db->Execute("update ADOXYZ set created=? where id=2",$zdate);

    820. 

  820. 	//$zdate = $db->GetOne("select created from ADOXYZ where id=2");

    821. 

  821. 	//echo "tomorrow=",$zdate,"<br>";

    822. 

  822. 	$db->debug=false;

    823. 

  823. 	

    824. 

  824. 	if ($rs && !$rs->EOF) {

    825. 

  825. 		if (trim($rs->fields[1]) != 'Caroline') Err("Error 1");

    826. 

  826. 		$rs->MoveNext();

    827. 

  827. 		if (trim($rs->fields[1]) != 'John') Err("Error 2");

    828. 

  828. 		$rs->MoveNext();

    829. 

  829. 		if (trim($rs->fields[1]) != 'Mary') Err("Error 3");

    830. 

  830. 		$rs->MoveNext();

    831. 

  831. 		if (! $rs->EOF) Err("Error EOF");

    832. 

  832. 		//rs2html($rs);

    833. 

  833. 	} else Err("Failed SelectLimit Test 1");

    834. 

  834. 	

    835. 

  835. 	print "<p>SelectLimit Test 2: Should see Mary, George and Mr. Alan</p>";

    836. 

  836. 	$rs = &$db->SelectLimit('select * from ADOXYZ order by id',3,2);

    837. 

  837. 	if ($rs && !$rs->EOF) {

    838. 

  838. 		if (trim($rs->fields[1]) != 'Mary') Err("Error 1");

    839. 

  839. 		$rs->MoveNext();

    840. 

  840. 		if (trim($rs->fields[1]) != 'George')Err("Error 2");

    841. 

  841. 		$rs->MoveNext();

    842. 

  842. 		if (trim($rs->fields[1]) != 'Mr. Alan') Err("Error 3");

    843. 

  843. 		$rs->MoveNext();

    844. 

  844. 		if (! $rs->EOF) Err("Error EOF");

    845. 

  845. 	//	rs2html($rs);

    846. 

  846. 	}

    847. 

  847. 	 else Err("Failed SelectLimit Test 2");

    848. 

  848. 	

    849. 

  849. 	print "<p>SelectLimit Test 3: Should see Wai Hun and Steven</p>";

    850. 

  850. 	$db->debug=1;

    851. 

  851. 	global $A; $A=1;

    852. 

  852. 	$rs = &$db->SelectLimit('select * from ADOXYZ order by id',-1,48);

    853. 

  853. 	$A=0;

    854. 

  854. 	if ($rs && !$rs->EOF) {

    855. 

  855. 		if (empty($rs->connection)) print "<b>Connection object missing from recordset</b></br>";

    856. 

  856. 		if (trim($rs->fields[1]) != 'Wai Hun') Err("Error 1 ".$rs->fields[1]);

    857. 

  857. 		$rs->MoveNext();

    858. 

  858. 		if (trim($rs->fields[1]) != 'Steven') Err("Error 2 ".$rs->fields[1]);

    859. 

  859. 		$rs->MoveNext();

    860. 

  860. 		if (! $rs->EOF) {

    861. 

  861. 			Err("Error EOF");

    862. 

  862. 		}

    863. 

  863. 		//rs2html($rs);

    864. 

  864. 	}

    865. 

  865. 	 else Err("Failed SelectLimit Test 3");

    866. 

  866. 		$db->debug = false;

    867. 

  867. 	

    868. 

  868. 	

    869. 

  869. 	$rs = &$db->Execute("select * from ADOXYZ order by id");

    870. 

  870. 	print "<p>Testing Move()</p>";	

    871. 

  871. 	if (!$rs)Err( "Failed Move SELECT");

    872. 

  872. 	else {

    873. 

  873. 		if (!$rs->Move(2)) {

    874. 

  874. 			if (!$rs->canSeek) print "<p>$db->databaseType: <b>Move(), MoveFirst() nor MoveLast() not supported.</b></p>";

    875. 

  875. 			else print '<p><b>RecordSet->canSeek property should be set to false</b></p>';

    876. 

  876. 		} else {

    877. 

  877. 			$rs->MoveFirst();

    878. 

  878. 			if (trim($rs->Fields("firstname")) != 'Caroline') {

    879. 

  879. 				print "<p><b>$db->databaseType: MoveFirst failed -- probably cannot scroll backwards</b></p>";

    880. 

  880. 			}

    881. 

  881. 			else print "MoveFirst() OK<BR>";

    882. 

  882. 						

    883. 

  883. 						// Move(3) tests error handling -- MoveFirst should not move cursor

    884. 

  884. 			$rs->Move(3);

    885. 

  885. 			if (trim($rs->Fields("firstname")) != 'George') {

    886. 

  886. 				print '<p>'.$rs->Fields("id")."<b>$db->databaseType: Move(3) failed</b></p>";

    887. 

  887. 			} else print "Move(3) OK<BR>";

    888. 

  888. 						

    889. 

  889. 			$rs->Move(7);

    890. 

  890. 			if (trim($rs->Fields("firstname")) != 'Yat Sun') {

    891. 

  891. 				print '<p>'.$rs->Fields("id")."<b>$db->databaseType: Move(7) failed</b></p>";

    892. 

  892. 				print_r($rs);

    893. 

  893. 			} else print "Move(7) OK<BR>";

    894. 

  894. 			if ($rs->EOF) Err("Move(7) is EOF already");

    895. 

  895. 			$rs->MoveLast();

    896. 

  896. 			if (trim($rs->Fields("firstname")) != 'Steven'){

    897. 

  897. 				 print '<p>'.$rs->Fields("id")."<b>$db->databaseType: MoveLast() failed</b></p>";

    898. 

  898. 				 print_r($rs);

    899. 

  899. 			}else print "MoveLast() OK<BR>";

    900. 

  900. 			$rs->MoveNext();

    901. 

  901. 			if (!$rs->EOF) err("Bad MoveNext");

    902. 

  902. 			if ($rs->canSeek) {

    903. 

  903. 				$rs->Move(3);

    904. 

  904. 				if (trim($rs->Fields("firstname")) != 'George') {

    905. 

  905. 					print '<p>'.$rs->Fields("id")."<b>$db->databaseType: Move(3) after MoveLast failed</b></p>";

    906. 

  906. 					

    907. 

  907. 				} else print "Move(3) after MoveLast() OK<BR>";

    908. 

  908. 			}

    909. 

  909. 			

    910. 

  910. 			print "<p>Empty Move Test";

    911. 

  911. 			$rs = $db->Execute("select * from ADOXYZ where id > 0 and id < 0");

    912. 

  912. 			$rs->MoveFirst();

    913. 

  913. 			if (!$rs->EOF || $rs->fields) Err("Error in empty move first");

    914. 

  914. 		}

    915. 

  915. 	}

    916. 

  916. 	

    917. 

  917. 	$rs = $db->Execute('select * from ADOXYZ where id = 2');

    918. 

  918. 	if ($rs->EOF || !is_array($rs->fields)) Err("Error in select");

    919. 

  919. 	$rs->MoveNext();

    920. 

  920. 	if (!$rs->EOF) Err("Error in EOF (xx) ");

    921. 

  921.  //	$db->debug=true;

    922. 

  922. 	print "<p>Testing ADODB_FETCH_ASSOC and concat: concat firstname and lastname</p>";

    923. 

  923. 

    924. 

  924. 	$save = $ADODB_FETCH_MODE;

    925. 

  925. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    926. 

  926. 	if ($db->dataProvider == 'postgres') {

    927. 

  927. 		$sql = "select ".$db->Concat('cast(firstname as varchar)',$db->qstr(' '),'lastname')." as fullname,id,".$db->sysTimeStamp." as d from ADOXYZ";

    928. 

  928. 		$rs = &$db->Execute($sql);

    929. 

  929. 	} else {

    930. 

  930. 		$sql = "select distinct ".$db->Concat('firstname',$db->qstr(' '),'lastname')." as fullname,id,".$db->sysTimeStamp." as d from ADOXYZ";

    931. 

  931. 		$rs = &$db->Execute($sql);

    932. 

  932. 	}

    933. 

  933. 	if ($rs) {

    934. 

  934. 		if (empty($HTTP_GET_VARS['hide'])) rs2html($rs);

    935. 

  935. 	} else {

    936. 

  936. 		Err( "Failed Concat:".$sql);

    937. 

  937. 	}

    938. 

  938. 	$ADODB_FETCH_MODE = $save;

    939. 

  939. 	print "<hr>Testing GetArray() ";

    940. 

  940. 	//$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    941. 

  941. 	

    942. 

  942. 	$rs = &$db->Execute("select * from ADOXYZ order by id");

    943. 

  943. 	if ($rs) {

    944. 

  944. 		$arr = &$rs->GetArray(10);

    945. 

  945. 		if (sizeof($arr) != 10 || trim($arr[1][1]) != 'John' || trim($arr[1][2]) != 'Lim') print $arr[1][1].' '.$arr[1][2]."<b> &nbsp; ERROR</b><br>";

    946. 

  946. 		else print " OK<BR>";

    947. 

  947. 	}

    948. 

  948. 	

    949. 

  949. 	$arr = $db->GetArray("select x from ADOXYZ");

    950. 

  950. 	$e = $db->ErrorMsg(); $e2 = $db->ErrorNo();

    951. 

  951. 	echo "Testing error handling, should see illegal column 'x' error=<i>$e ($e2) </i><br>";

    952. 

  952. 	if (!$e || !$e2) Err("Error handling did not work");

    953. 

  953. 	print "Testing FetchNextObject for 1 object ";

    954. 

  954. 	$rs = &$db->Execute("select distinct lastname,firstname from ADOXYZ where firstname='Caroline'");

    955. 

  955. 	$fcnt = 0;

    956. 

  956. 	if ($rs)

    957. 

  957. 	while ($o = $rs->FetchNextObject()) {

    958. 

  958. 		$fcnt += 1;	

    959. 

  959. 	}

    960. 

  960. 	if ($fcnt == 1) print " OK<BR>";

    961. 

  961. 	else print "<b>FAILED</b><BR>";

    962. 

  962. 	

    963. 

  963. 	$stmt = $db->Prepare("select * from ADOXYZ where id < 3");

    964. 

  964. 	$rs = $db->Execute($stmt);

    965. 

  965. 	if (!$rs) Err("Prepare failed");

    966. 

  966. 	else {

    967. 

  967. 		$arr = $rs->GetArray();

    968. 

  968. 		if (!$arr) Err("Prepare failed 2");

    969. 

  969. 		if (sizeof($arr) != 2) Err("Prepare failed 3");

    970. 

  970. 	}

    971. 

  971. 	print "Testing GetAssoc() ";

    972. 

  972. 	$savecrecs = $ADODB_COUNTRECS;

    973. 

  973. 	$ADODB_COUNTRECS = false;

    974. 

  974. 	//$arr = $db->GetArray("select  lastname,firstname from ADOXYZ");

    975. 

  975. 	//print_r($arr);

    976. 

  976. 	print "<hr>";

    977. 

  977. 	$rs =& $db->Execute("select distinct lastname,firstname,created from ADOXYZ");

    978. 

  978. 	

    979. 

  979. 	if ($rs) {

    980. 

  980. 		$arr = $rs->GetAssoc();

    981. 

  981. 		//print_r($arr);

    982. 

  982. 		if (empty($arr['See']) || trim(reset($arr['See'])) != 'Wai Hun') print $arr['See']." &nbsp; <b>ERROR</b><br>";

    983. 

  983. 		else print " OK 1";

    984. 

  984. 	}

    985. 

  985. 	

    986. 

  986. 	$arr = &$db->GetAssoc("select distinct lastname,firstname from ADOXYZ");

    987. 

  987. 	if ($arr) {

    988. 

  988. 		//print_r($arr);

    989. 

  989. 		if (empty($arr['See']) || trim($arr['See']) != 'Wai Hun') print $arr['See']." &nbsp; <b>ERROR</b><br>";

    990. 

  990. 		else print " OK 2<BR>";

    991. 

  991. 	}

    992. 

  992. 	// Comment this out to test countrecs = false

    993. 

  993. 	$ADODB_COUNTRECS = $savecrecs;

    994. 

  994. 	

    995. 

  995. 	for ($loop=0; $loop < 1; $loop++) {

    996. 

  996. 	print "Testing GetMenu() and CacheExecute<BR>";

    997. 

  997. 	$db->debug = true;

    998. 

  998. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    999. 

  999. 	

    1000. 

  1000. 	if ($rs) print 'With blanks, Steven selected:'. $rs->GetMenu('menu','Steven').'<BR>'; 

    1001. 

  1001. 	else print " Fail<BR>";

    1002. 

  1002. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    1003. 

  1003. 	

    1004. 

  1004. 	if ($rs) print ' No blanks, Steven selected: '. $rs->GetMenu('menu','Steven',false).'<BR>';

    1005. 

  1005. 	else print " Fail<BR>";

    1006. 

  1006. 	

    1007. 

  1007. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    1008. 

  1008. 	if ($rs) print ' Multiple, Alan selected: '. $rs->GetMenu('menu','Alan',false,true).'<BR>';

    1009. 

  1009. 	else print " Fail<BR>";

    1010. 

  1010. 	print '</p><hr>';

    1011. 

  1011. 	

    1012. 

  1012. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    1013. 

  1013. 	if ($rs) {

    1014. 

  1014. 		print ' Multiple, Alan and George selected: '. $rs->GetMenu('menu',array('Alan','George'),false,true);

    1015. 

  1015. 		if (empty($rs->connection)) print "<b>Connection object missing from recordset</b></br>";

    1016. 

  1016. 	} else print " Fail<BR>";

    1017. 

  1017. 	print '</p><hr>';

    1018. 

  1018. 	

    1019. 

  1019. 	print "Testing GetMenu2() <BR>";

    1020. 

  1020. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    1021. 

  1021. 	if ($rs) print 'With blanks, Steven selected:'. $rs->GetMenu2('menu',('Oey')).'<BR>'; 

    1022. 

  1022. 	else print " Fail<BR>";

    1023. 

  1023. 	$rs = &$db->CacheExecute(4,"select distinct firstname,lastname from ADOXYZ");

    1024. 

  1024. 	if ($rs) print ' No blanks, Steven selected: '. $rs->GetMenu2('menu',('Oey'),false).'<BR>';

    1025. 

  1025. 	else print " Fail<BR>";

    1026. 

  1026. 	}

    1027. 

  1027. 	

    1028. 

  1028. 	$db->debug = false;

    1029. 

  1029. 	

    1030. 

  1030. 	// phplens

    1031. 

  1031. 	

    1032. 

  1032. 	$sql = 'select * from ADOXYZ where 0=1';

    1033. 

  1033. 	echo "<p>**Testing '$sql' (phplens compat 1)</p>";

    1034. 

  1034. 	$rs = &$db->Execute($sql);

    1035. 

  1035. 	if (!$rs) err( "<b>No recordset returned for '$sql'</b>");

    1036. 

  1036. 	if (!$rs->FieldCount()) err( "<b>No fields returned for $sql</b>");

    1037. 

  1037. 	if (!$rs->FetchField(1)) err( "<b>FetchField failed for $sql</b>");

    1038. 

  1038. 	

    1039. 

  1039. 	$sql = 'select * from ADOXYZ order by 1';

    1040. 

  1040. 	echo "<p>**Testing '$sql' (phplens compat 2)</p>";

    1041. 

  1041. 	$rs = &$db->Execute($sql);

    1042. 

  1042. 	if (!$rs) err( "<b>No recordset returned for '$sql'<br>".$db->ErrorMsg()."</b>");

    1043. 

  1043. 	

    1044. 

  1044. 	

    1045. 

  1045. 	$sql = 'select * from ADOXYZ order by 1,1';

    1046. 

  1046. 	echo "<p>**Testing '$sql' (phplens compat 3)</p>";

    1047. 

  1047. 	$rs = &$db->Execute($sql);

    1048. 

  1048. 	if (!$rs) err( "<b>No recordset returned for '$sql'<br>".$db->ErrorMsg()."</b>");

    1049. 

  1049. 	

    1050. 

  1050. 	

    1051. 

  1051. 	// Move

    1052. 

  1052. 	$rs1 = &$db->Execute("select id from ADOXYZ where id <= 2 order by 1");

    1053. 

  1053. 	$rs2 = &$db->Execute("select id from ADOXYZ where id = 3 or id = 4 order by 1");

    1054. 

  1054. 

    1055. 

  1055. 	if ($rs1) $rs1->MoveLast();

    1056. 

  1056. 	if ($rs2) $rs2->MoveLast();

    1057. 

  1057. 	

    1058. 

  1058. 	if (empty($rs1) || empty($rs2) || $rs1->fields[0] != 2 || $rs2->fields[0] != 4) {

    1059. 

  1059. 		$a = $rs1->fields[0];

    1060. 

  1060. 		$b = $rs2->fields[0];

    1061. 

  1061. 		print "<p><b>Error in multiple recordset test rs1=$a rs2=$b (should be rs1=2 rs2=4)</b></p>";

    1062. 

  1062. 	} else

    1063. 

  1063. 		print "<p>Testing multiple recordsets OK</p>";

    1064. 

  1064. 		

    1065. 

  1065. 	

    1066. 

  1066. 	echo "<p> GenID test: ";

    1067. 

  1067. 	for ($i=1; $i <= 10; $i++) 

    1068. 

  1068. 		echo  "($i: ",$val = $db->GenID($db->databaseType.'abcseq6' ,5), ") ";

    1069. 

  1069. 	if ($val == 0) Err("GenID not supported");

    1070. 

  1070. 	

    1071. 

  1071. 	if ($val) {

    1072. 

  1072. 		$db->DropSequence('abc_seq2');

    1073. 

  1073. 		$db->CreateSequence('abc_seq2');

    1074. 

  1074. 		$val = $db->GenID('abc_seq2');

    1075. 

  1075. 		$db->DropSequence('abc_seq2');

    1076. 

  1076. 		$db->CreateSequence('abc_seq2');

    1077. 

  1077. 		$val = $db->GenID('abc_seq2');

    1078. 

  1078. 		if ($val != 1) Err("Drop and Create Sequence not supported ($val)");

    1079. 

  1079. 	}

    1080. 

  1080. 	echo "<p>";

    1081. 

  1081. 	

    1082. 

  1082. 	if (substr($db->dataProvider,0,3) != 'notused') { // used to crash ado

    1083. 

  1083. 		$sql = "select firstnames from adoxyz";

    1084. 

  1084. 		print "<p>Testing execution of illegal statement: <i>$sql</i></p>";

    1085. 

  1085. 		if ($db->Execute($sql) === false) {

    1086. 

  1086. 			print "<p>This returns the following ErrorMsg(): <i>".$db->ErrorMsg()."</i> and ErrorNo(): ".$db->ErrorNo().'</p>';

    1087. 

  1087. 		} else 

    1088. 

  1088. 			print "<p><b>Error in error handling -- Execute() should return false</b></p>";

    1089. 

  1089. 	} else 

    1090. 

  1090. 		print "<p><b>ADO skipped error handling of bad select statement</b></p>";

    1091. 

  1091. 	

    1092. 

  1092. 	print "<p>ASSOC TEST 2<br>";

    1093. 

  1093. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1094. 

  1094. 	$rs = $db->query('select * from adoxyz order by id');

    1095. 

  1095. 	if ($ee = $db->ErrorMsg()) {

    1096. 

  1096. 		Err("Error message=$ee");

    1097. 

  1097. 	}

    1098. 

  1098. 	if ($ee = $db->ErrorNo()) {

    1099. 

  1099. 		Err("Error No = $ee");

    1100. 

  1100. 	}

    1101. 

  1101. 	print_r($rs->fields);

    1102. 

  1102. 	for($i=0;$i<$rs->FieldCount();$i++) 

    1103. 

  1103. 	{ 

    1104. 

  1104. 		$fld=$rs->FetchField($i); 

    1105. 

  1105. 		print "<br> Field name is ".$fld->name; 

    1106. 

  1106. 		print " ".$rs->Fields($fld->name); 

    1107. 

  1107. 	} 

    1108. 

  1108. 

    1109. 

  1109. 		

    1110. 

  1110. 	print "<p>BOTH TEST 2<br>";

    1111. 

  1111. 	if ($db->dataProvider == 'ado') {

    1112. 

  1112. 		print "<b>ADODB_FETCH_BOTH not supported</b> for dataProvider=".$db->dataProvider."<br>";

    1113. 

  1113. 	} else {

    1114. 

  1114. 		$ADODB_FETCH_MODE = ADODB_FETCH_BOTH;

    1115. 

  1115. 		$rs = $db->query('select * from adoxyz order by id');

    1116. 

  1116. 		for($i=0;$i<$rs->FieldCount();$i++) 

    1117. 

  1117. 		{ 

    1118. 

  1118. 			$fld=$rs->FetchField($i); 

    1119. 

  1119. 			print "<br> Field name is ".$fld->name; 

    1120. 

  1120. 			print " ".$rs->Fields($fld->name); 

    1121. 

  1121. 		} 

    1122. 

  1122. 	}

    1123. 

  1123. 	

    1124. 

  1124. 	print "<p>NUM TEST 2<br>";

    1125. 

  1125. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    1126. 

  1126. 	$rs = $db->query('select * from adoxyz order by id');

    1127. 

  1127. 	for($i=0;$i<$rs->FieldCount();$i++) 

    1128. 

  1128. 	{ 

    1129. 

  1129. 		$fld=$rs->FetchField($i); 

    1130. 

  1130. 		print "<br> Field name is ".$fld->name; 

    1131. 

  1131. 		print " ".$rs->Fields($fld->name); 

    1132. 

  1132. 	} 

    1133. 

  1133. 	

    1134. 

  1134. 	print "<p>ASSOC Test of SelectLimit<br>";

    1135. 

  1135. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1136. 

  1136. 	$rs = $db->selectlimit('select * from adoxyz order by id',3,4);

    1137. 

  1137. 	$cnt = 0;

    1138. 

  1138. 	while ($rs && !$rs->EOF) {

    1139. 

  1139. 		$cnt += 1;

    1140. 

  1140. 		if (!isset($rs->fields['firstname'])) {

    1141. 

  1141. 			print "<br><b>ASSOC returned numeric field</b></p>";

    1142. 

  1142. 			break;

    1143. 

  1143. 		}

    1144. 

  1144. 		$rs->MoveNext();

    1145. 

  1145. 	}

    1146. 

  1146. 	if ($cnt != 3) print "<br><b>Count should be 3, instead it was $cnt</b></p>";

    1147. 

  1147. 	

    1148. 

  1148. 	

    1149. 

  1149. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    1150. 

  1150. 	if ($db->sysDate) {

    1151. 

  1151. 		$saved = $db->debug;

    1152. 

  1152. 		$db->debug = 1;

    1153. 

  1153. 		$rs = $db->Execute("select {$db->sysDate} from adoxyz where id=1");

    1154. 

  1154. 		if (ADORecordSet::UnixDate(date('Y-m-d')) != $rs->UnixDate($rs->fields[0])) {

    1155. 

  1155. 			print "<p><b>Invalid date {$rs->fields[0]}</b></p>";

    1156. 

  1156. 		} else

    1157. 

  1157. 			print "<p>Passed \$sysDate test ({$rs->fields[0]})</p>";

    1158. 

  1158. 		

    1159. 

  1159. 		print_r($rs->FetchField(0));

    1160. 

  1160. 		print time();

    1161. 

  1161. 		$db->debug=$saved;

    1162. 

  1162. 	} else {

    1163. 

  1163. 		print "<p><b>\$db->sysDate not defined</b></p>";

    1164. 

  1164. 	}

    1165. 

  1165. 

    1166. 

  1166. 	print "<p>Test CSV</p>";

    1167. 

  1167. 	include_once('../toexport.inc.php');

    1168. 

  1168. 	//$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1169. 

  1169. 	$rs = $db->SelectLimit('select id,firstname,lastname,created,\'He, he\' he,\'"\' q  from adoxyz',10);	

    1170. 

  1170. 	

    1171. 

  1171. 	print "<pre>";

    1172. 

  1172. 	print rs2csv($rs);

    1173. 

  1173. 	print "</pre>";

    1174. 

  1174. 	

    1175. 

  1175. 	$rs = $db->SelectLimit('select id,firstname,lastname,created,\'The	"young man", he said\' from adoxyz',10);	

    1176. 

  1176. 	

    1177. 

  1177. 	if (PHP_VERSION < 5) {

    1178. 

  1178. 		print "<pre>";

    1179. 

  1179. 		rs2tabout($rs);

    1180. 

  1180. 		print "</pre>";

    1181. 

  1181. 	}

    1182. 

  1182. 	//print " CacheFlush ";

    1183. 

  1183. 	//$db->CacheFlush();

    1184. 

  1184. 	

    1185. 

  1185. 	$date = $db->SQLDate('d-m-M-Y-\QQ h:i:s A');

    1186. 

  1186. 	$sql = "SELECT $date from ADOXYZ";

    1187. 

  1187. 	print "<p>Test SQLDate: ".htmlspecialchars($sql)."</p>";

    1188. 

  1188. 	$rs = $db->SelectLimit($sql,1);

    1189. 

  1189. 	$d = date('d-m-M-Y-').'Q'.(ceil(date('m')/3.0)).date(' h:i:s A');

    1190. 

  1190. 	if (!$rs) Err("SQLDate query returned no recordset");

    1191. 

  1191. 	else if ($d != $rs->fields[0]) Err("SQLDate 1 failed expected: <br>act:$d <br>sql:".$rs->fields[0]);

    1192. 

  1192. 	

    1193. 

  1193. 	$date = $db->SQLDate('d-m-M-Y-\QQ h:i:s A',$db->DBDate("1974-02-25"));

    1194. 

  1194. 	$sql = "SELECT $date from ADOXYZ";

    1195. 

  1195. 	print "<p>Test SQLDate: ".htmlspecialchars($sql)."</p>";

    1196. 

  1196. 	$rs = $db->SelectLimit($sql,1);

    1197. 

  1197. 	$ts = ADOConnection::UnixDate('1974-02-25');

    1198. 

  1198. 	$d = date('d-m-M-Y-',$ts).'Q'.(ceil(date('m',$ts)/3.0)).date(' h:i:s A',$ts);

    1199. 

  1199. 	if (!$rs) Err("SQLDate query returned no recordset");

    1200. 

  1200. 	else if ($d != $rs->fields[0]) Err("SQLDate 2 failed expected: <br>act:$d <br>sql:".$rs->fields[0]);

    1201. 

  1201. 	

    1202. 

  1202. 	

    1203. 

  1203. 	print "<p>Test Filter</p>";

    1204. 

  1204. 	$db->debug = 1;

    1205. 

  1205. 	

    1206. 

  1206. 	$rs = $db->SelectLimit('select * from ADOXYZ where id < 3 order by id');

    1207. 

  1207. 	

    1208. 

  1208. 	$rs = RSFilter($rs,'do_strtolower');

    1209. 

  1209. 	if (trim($rs->fields[1]) != 'caroline'  && trim($rs->fields[2]) != 'miranda') {

    1210. 

  1210. 		err('**** RSFilter failed');

    1211. 

  1211. 		print_r($rs->fields);

    1212. 

  1212. 	}

    1213. 

  1213. 	

    1214. 

  1214. 	rs2html($rs);

    1215. 

  1215. 		

    1216. 

  1216. 	$db->debug=1;

    1217. 

  1217. 	

    1218. 

  1218. 	

    1219. 

  1219. 	print "<p>Test Replace</p>";

    1220. 

  1220. 	

    1221. 

  1221. 	$ret = $db->Replace('adoxyz', 

    1222. 

  1222. 		array('id'=>1,'firstname'=>'Caroline','lastname'=>'Miranda'),

    1223. 

  1223. 		array('id'),

    1224. 

  1224. 		$autoq = true);

    1225. 

  1225. 	if (!$ret) echo "<p>Error in replacing existing record</p>";

    1226. 

  1226. 	else {

    1227. 

  1227. 		$saved = $db->debug;

    1228. 

  1228. 		$db->debug = 0;

    1229. 

  1229. 		$savec = $ADODB_COUNTRECS;

    1230. 

  1230. 		$ADODB_COUNTRECS = true;

    1231. 

  1231. 		$rs = $db->Execute('select * FROM ADOXYZ where id=1');

    1232. 

  1232. 		$db->debug = $saved;

    1233. 

  1233. 		if ($rs->RecordCount() != 1) {

    1234. 

  1234. 			$cnt = $rs->RecordCount();

    1235. 

  1235. 			rs2html($rs);

    1236. 

  1236. 			print "<b>Error - Replace failed, count=$cnt</b><p>";

    1237. 

  1237. 		}

    1238. 

  1238. 		$ADODB_COUNTRECS = $savec;

    1239. 

  1239. 	}

    1240. 

  1240. 	$ret = $db->Replace('adoxyz', 

    1241. 

  1241. 		array('id'=>1000,'firstname'=>'Harun','lastname'=>'Al-Rashid'),

    1242. 

  1242. 		array('id','firstname'),

    1243. 

  1243. 		$autoq = true);

    1244. 

  1244. 	if ($ret != 2) print "<b>Replace failed: </b>";

    1245. 

  1245. 	print "test A return value=$ret (2 expected) <p>";

    1246. 

  1246. 	

    1247. 

  1247. 	$ret = $db->Replace('adoxyz', 

    1248. 

  1248. 		array('id'=>1000,'firstname'=>'Sherazade','lastname'=>'Al-Rashid'),

    1249. 

  1249. 		'id',

    1250. 

  1250. 		$autoq = true);

    1251. 

  1251. 	if ($ret != 1) 

    1252. 

  1252. 		if ($db->dataProvider == 'ibase' && $ret == 2);

    1253. 

  1253. 		else print "<b>Replace failed: </b>";

    1254. 

  1254. 	print "test B return value=$ret (1 or if ibase then 2 expected) <p>";

    1255. 

  1255. 	

    1256. 

  1256. 	print "<h3>rs2rs Test</h3>";

    1257. 

  1257. 	

    1258. 

  1258. 	$rs = $db->Execute('select * from adoxyz order by id');

    1259. 

  1259. 	$rs = $db->_rs2rs($rs);

    1260. 

  1260. 	$rs->valueX = 'X';

    1261. 

  1261. 	$rs->MoveNext();

    1262. 

  1262. 	$rs = $db->_rs2rs($rs);

    1263. 

  1263. 	if (!isset($rs->valueX)) err("rs2rs does not preserve array recordsets");

    1264. 

  1264. 	if (reset($rs->fields) != 1) err("rs2rs does not move to first row");

    1265. 

  1265. 

    1266. 

  1266. 	/////////////////////////////////////////////////////////////

    1267. 

  1267. 	include_once('../pivottable.inc.php');

    1268. 

  1268. 	print "<h3>Pivot Test</h3>";

    1269. 

  1269. 	$db->debug=true;

    1270. 

  1270.  	$sql = PivotTableSQL(

    1271. 

  1271.  		$db,  			# adodb connection

    1272. 

  1272.  		'adoxyz',  		# tables

    1273. 

  1273. 		'firstname',	# row fields

    1274. 

  1274. 		'lastname',		# column fields 

    1275. 

  1275. 		false,			# join

    1276. 

  1276. 		'ID', 			# sum

    1277. 

  1277. 		'Sum ',			# label for sum

    1278. 

  1278. 		'sum',			# aggregate function

    1279. 

  1279. 		true

    1280. 

  1280. 	);

    1281. 

  1281. 	$rs = $db->Execute($sql);

    1282. 

  1282. 	if ($rs) rs2html($rs);

    1283. 

  1283. 	else Err("Pivot sql error");

    1284. 

  1284. 	

    1285. 

  1285. 	$db->debug=false;

    1286. 

  1286. 	include_once "PEAR.php";

    1287. 

  1287. 	

    1288. 

  1288. 	// PEAR TESTS BELOW

    1289. 

  1289. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;

    1290. 

  1290. 	$pear = true;

    1291. 

  1291. 	$rs = $db->query('select * from adoxyz where id>0 and id<10 order by id');

    1292. 

  1292. 	

    1293. 

  1293. 	$i = 0;

    1294. 

  1294. 	if ($rs && !$rs->EOF) {

    1295. 

  1295. 		while ($arr = $rs->fetchRow()) {

    1296. 

  1296. 			$i++;

    1297. 

  1297. 			//print "$i ";

    1298. 

  1298. 			if ($arr[0] != $i) {

    1299. 

  1299. 				print_r($arr);

    1300. 

  1300. 				print "<p><b>PEAR DB emulation error 1.</b></p>";

    1301. 

  1301. 				$pear = false;

    1302. 

  1302. 				break;

    1303. 

  1303. 			}

    1304. 

  1304. 		}

    1305. 

  1305. 		$rs->Close();

    1306. 

  1306. 	}

    1307. 

  1307. 	

    1308. 

  1308. 	

    1309. 

  1309. 	if ($i != $db->GetOne('select count(*) from adoxyz where id>0 and id<10')) {

    1310. 

  1310. 		print "<p><b>PEAR DB emulation error 1.1 EOF ($i)</b></p>";

    1311. 

  1311. 		$pear = false;

    1312. 

  1312. 	}

    1313. 

  1313. 	

    1314. 

  1314. 	$rs = $db->limitQuery('select * from adoxyz where id>0 order by id',$i=3,$top=3);

    1315. 

  1315. 	$i2 = $i;

    1316. 

  1316. 	if ($rs && !$rs->EOF) {

    1317. 

  1317. 

    1318. 

  1318. 		while (!is_object($rs->fetchInto($arr))) {

    1319. 

  1319. 			$i2++;

    1320. 

  1320. 			

    1321. 

  1321. 	//			print_r($arr);

    1322. 

  1322. 	//		print "$i ";print_r($arr);

    1323. 

  1323. 			if ($arr[0] != $i2) {

    1324. 

  1324. 				print "<p><b>PEAR DB emulation error 2.</b></p>";

    1325. 

  1325. 				$pear = false;

    1326. 

  1326. 				break;

    1327. 

  1327. 			}

    1328. 

  1328. 		}

    1329. 

  1329. 		$rs->Close();

    1330. 

  1330. 	}

    1331. 

  1331. 	if ($i2 != $i+$top) {

    1332. 

  1332. 		print "<p><b>PEAR DB emulation error 2.1 EOF (correct=$i+$top, actual=$i2)</b></p>";

    1333. 

  1333. 		$pear = false;

    1334. 

  1334. 	}

    1335. 

  1335. 	

    1336. 

  1336. 	if ($pear) print "<p>PEAR DB emulation passed.</p>";

    1337. 

  1337. 	

    1338. 

  1338. 	$rs = $db->SelectLimit("select ".$db->sysDate." from adoxyz",1);

    1339. 

  1339. 	$date = $rs->fields[0];

    1340. 

  1340. 	if (!$date) Err("Bad sysDate");

    1341. 

  1341. 	else {

    1342. 

  1342. 		$ds = $db->UserDate($date,"d m Y");

    1343. 

  1343. 		if ($ds != date("d m Y")) Err("Bad UserDate: ".$ds.' expected='.date("d m Y"));

    1344. 

  1344. 		else echo "Passed UserDate: $ds<p>";

    1345. 

  1345. 	}

    1346. 

  1346. 	$db->debug=1;

    1347. 

  1347. 	if ($db->dataProvider == 'oci8') 

    1348. 

  1348. 		$rs = $db->SelectLimit("select to_char(".$db->sysTimeStamp.",'YYYY-MM-DD HH24:MI:SS') from adoxyz",1);

    1349. 

  1349. 	else 

    1350. 

  1350. 		$rs = $db->SelectLimit("select ".$db->sysTimeStamp." from adoxyz",1);

    1351. 

  1351. 	$date = $rs->fields[0];

    1352. 

  1352. 	if (!$date) Err("Bad sysTimeStamp");

    1353. 

  1353. 	else {

    1354. 

  1354. 		$ds = $db->UserTimeStamp($date,"H \\h\\r\\s-d m Y");

    1355. 

  1355. 		if ($ds != date("H \\h\\r\\s-d m Y")) Err("Bad UserTimeStamp: ".$ds.", correct is ".date("H \\h\\r\\s-d m Y"));

    1356. 

  1356. 		else echo "Passed UserTimeStamp: $ds<p>";

    1357. 

  1357. 		

    1358. 

  1358. 		$date = 100;

    1359. 

  1359. 		$ds = $db->UserTimeStamp($date,"H \\h\\r\\s-d m Y");

    1360. 

  1360. 		$ds2 = date("H \\h\\r\\s-d m Y",$date);

    1361. 

  1361. 		if ($ds != $ds2) Err("Bad UserTimeStamp 2: $ds: $ds2");

    1362. 

  1362. 		else echo "Passed UserTimeStamp 2: $ds<p>";

    1363. 

  1363. 	}

    1364. 

  1364. 	if ($db->hasTransactions) {

    1365. 

  1365. 		//$db->debug=1;

    1366. 

  1366. 		echo "<p>Testing StartTrans CompleteTrans</p>";

    1367. 

  1367. 		$db->raiseErrorFn = false;

    1368. 

  1368. 		$db->StartTrans();

    1369. 

  1369. 		$rs = $db->Execute('select * from notable');

    1370. 

  1370. 			$db->StartTrans();

    1371. 

  1371. 				$db->BeginTrans();

    1372. 

  1372. 			$db->Execute("update ADOXYZ set firstname='Carolx' where id=1");

    1373. 

  1373. 				$db->CommitTrans();

    1374. 

  1374. 			$db->CompleteTrans();

    1375. 

  1375. 		$rez = $db->CompleteTrans();

    1376. 

  1376. 		if ($rez !== false) {

    1377. 

  1377. 			if (is_null($rez)) Err("Error: _transOK not modified");

    1378. 

  1378. 			else Err("Error: CompleteTrans (1) should have failed");

    1379. 

  1379. 		} else {

    1380. 

  1380. 			$name = $db->GetOne("Select firstname from ADOXYZ where id=1");

    1381. 

  1381. 			if ($name == "Carolx") Err("Error: CompleteTrans (2) should have failed");

    1382. 

  1382. 			else echo "<p> -- Passed StartTrans test1 - rolling back</p>";

    1383. 

  1383. 		}

    1384. 

  1384. 		

    1385. 

  1385. 		$db->StartTrans();

    1386. 

  1386. 			$db->BeginTrans();

    1387. 

  1387. 		$db->Execute("update ADOXYZ set firstname='Carolx' where id=1");

    1388. 

  1388. 			$db->RollbackTrans();

    1389. 

  1389. 		$rez = $db->CompleteTrans();

    1390. 

  1390. 		if ($rez !== true) Err("Error: CompleteTrans (1) should have succeeded");

    1391. 

  1391. 		else {

    1392. 

  1392. 			$name = $db->GetOne("Select firstname from ADOXYZ where id=1");

    1393. 

  1393. 			if (trim($name) != "Carolx") Err("Error: CompleteTrans (2) should have succeeded, returned name=$name");

    1394. 

  1394. 			else echo "<p> -- Passed StartTrans test2 - commiting</p>";

    1395. 

  1395. 		}

    1396. 

  1396. 	}

    1397. 

  1397. 	

    1398. 

  1398. 	$saved = $db->debug;

    1399. 

  1399. 	$db->debug=1;

    1400. 

  1400. 	$cnt = _adodb_getcount($db, 'select * from ADOXYZ where firstname in (select firstname from ADOXYZ)');

    1401. 

  1401. 	echo "<b>Count=</b> $cnt";

    1402. 

  1402. 	$db->debug=$saved;

    1403. 

  1403. 	

    1404. 

  1404. 	global $TESTERRS;

    1405. 

  1405. 	$debugerr = true;

    1406. 

  1406. 	

    1407. 

  1407. 	global $ADODB_LANG;$ADODB_LANG = 'fr';

    1408. 

  1408. 	$db->debug = false;

    1409. 

  1409. 	$TESTERRS = 0;

    1410. 

  1410. 	$db->raiseErrorFn = 'adodb_test_err';

    1411. 

  1411. 	global $ERRNO; // from adodb_test_err

    1412. 

  1412. 	$db->Execute('select * from nowhere');

    1413. 

  1413. 	$metae = $db->MetaError($ERRNO);

    1414. 

  1414. 	if ($metae !== DB_ERROR_NOSUCHTABLE) print "<p><b>MetaError=".$metae." wrong</b>, should be ".DB_ERROR_NOSUCHTABLE."</p>";

    1415. 

  1415. 	else print "<p>MetaError ok (".DB_ERROR_NOSUCHTABLE."): ".$db->MetaErrorMsg($metae)."</p>";

    1416. 

  1416. 	if ($TESTERRS != 1) print "<b>raiseErrorFn select nowhere failed</b><br>";

    1417. 

  1417. 	$rs = $db->Execute('select * from adoxyz');

    1418. 

  1418. 	if ($debugerr) print " Move";

    1419. 

  1419. 	$rs->Move(100);

    1420. 

  1420. 	$rs->_queryID = false;

    1421. 

  1421. 	if ($debugerr) print " MoveNext";

    1422. 

  1422. 	$rs->MoveNext();

    1423. 

  1423. 	if ($debugerr) print " $rs=false";

    1424. 

  1424. 	$rs = false;

    1425. 

  1425. 

    1426. 

  1426. 	print "<p>SetFetchMode() tests</p>";

    1427. 

  1427. 	$db->SetFetchMode(ADODB_FETCH_ASSOC);

    1428. 

  1428. 	$rs = $db->SelectLimit('select firstname from adoxyz',1);

    1429. 

  1429. 	//	var_dump($rs->fields);

    1430. 

  1430. 	if (!isset($rs->fields['firstname'])) Err("BAD FETCH ASSOC");

    1431. 

  1431. 	

    1432. 

  1432. 	$ADODB_FETCH_MODE = ADODB_FETCH_NUM;	

    1433. 

  1433. 	$rs = $db->SelectLimit('select firstname from adoxyz',1);

    1434. 

  1434. 	//var_dump($rs->fields);

    1435. 

  1435. 	if (!isset($rs->fields['firstname'])) Err("BAD FETCH ASSOC");

    1436. 

  1436. 	

    1437. 

  1437. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;	

    1438. 

  1438. 	$db->SetFetchMode(ADODB_FETCH_NUM);

    1439. 

  1439. 	$rs = $db->SelectLimit('select firstname from adoxyz',1);

    1440. 

  1440. 	if (!isset($rs->fields[0])) Err("BAD FETCH NUM");

    1441. 

  1441. 	

    1442. 

  1442. 	print "<p>Test MetaTables again with SetFetchMode()</p>";

    1443. 

  1443. 	$ADODB_FETCH_MODE = ADODB_FETCH_ASSOC;

    1444. 

  1444. 	$db->SetFetchMode(ADODB_FETCH_ASSOC);

    1445. 

  1445. 	print_r($db->MetaTables());

    1446. 

  1446. 	print "<p>";

    1447. 

  1447. 	////////////////////////////////////////////////////////////////////

    1448. 

  1448. 	

    1449. 

  1449. 	$conn = NewADOConnection($db->databaseType);

    1450. 

  1450. 	$conn->raiseErrorFn = 'adodb_test_err';

    1451. 

  1451. 	@$conn->PConnect('abc');

    1452. 

  1452. 	if ($TESTERRS == 2) print "raiseErrorFn tests passed<br>";

    1453. 

  1453. 	else print "<b>raiseErrorFn tests failed ($TESTERRS)</b><br>";

    1454. 

  1454. 	

    1455. 

  1455. 	

    1456. 

  1456. 	////////////////////////////////////////////////////////////////////

    1457. 

  1457. 	

    1458. 

  1458. 	global $nocountrecs;

    1459. 

  1459. 	

    1460. 

  1460. 	if (isset($nocountrecs) && $ADODB_COUNTRECS) err("Error: \$ADODB_COUNTRECS is set");

    1461. 

  1461. 	if (empty($nocountrecs) && $ADODB_COUNTRECS==false) err("Error: \$ADODB_COUNTRECS is not set");

    1462. 

  1462. 

    1463. 

  1463. 	

    1464. 

  1464. ?>

    1465. 

  1465. 	</p>

    1466. 

  1466. 	<table width=100% ><tr><td bgcolor=beige>&nbsp;</td></tr></table>

    1467. 

  1467. 	</p></form>

    1468. 

  1468. <?php

    1469. 

  1469. 

    1470. 

  1470. 	if ($rs1) $rs1->Close();

    1471. 

  1471. 	if ($rs2) $rs2->Close();

    1472. 

  1472. 	if ($rs) $rs->Close();

    1473. 

  1473. 	$db->Close();

    1474. 

  1474. 	

    1475. 

  1475. 	if ($db->transCnt != 0) Err("Error in transCnt=$db->transCnt (should be 0)");

    1476. 

  1476. 	

    1477. 

  1477. 	

    1478. 

  1478. 	printf("<p>Total queries=%d; total cached=%d</p>",$EXECS+$CACHED, $CACHED);

    1479. 

  1479. }

    1480. 

  1480. 

    1481. 

  1481. function adodb_test_err…
    1482.

Large files files are truncated, but you can click here to view the full file