[903] | 1 | <?php
|
---|
| 2 |
|
---|
| 3 | /*
|
---|
| 4 | V4.80 8 Mar 2006 (c) 2000-2007 John Lim (jlim#natsoft.com.my). All rights reserved.
|
---|
| 5 | Released under both BSD license and Lesser GPL library license.
|
---|
| 6 | Whenever there is any discrepancy between the two licenses,
|
---|
| 7 | the BSD license will take precedence.
|
---|
| 8 | */
|
---|
| 9 |
|
---|
| 10 | /* this file is used by the ADODB test program: test.php */
|
---|
| 11 | ?>
|
---|
| 12 |
|
---|
| 13 | <table><tr valign=top><td>
|
---|
| 14 | <form method=get>
|
---|
| 15 | <input type=checkbox name="testaccess" value=1 <?php echo !empty($testaccess) ? 'checked' : '' ?>> <b>Access</b><br>
|
---|
| 16 | <input type=checkbox name="testibase" value=1 <?php echo !empty($testibase) ? 'checked' : '' ?>> <b>Interbase</b><br>
|
---|
| 17 | <input type=checkbox name="testmssql" value=1 <?php echo !empty($testmssql) ? 'checked' : '' ?>> <b>MSSQL</b><br>
|
---|
| 18 | <input type=checkbox name="testmysql" value=1 <?php echo !empty($testmysql) ? 'checked' : '' ?>> <b>MySQL</b><br>
|
---|
| 19 | <input type=checkbox name="testmysqlodbc" value=1 <?php echo !empty($testmysqlodbc) ? 'checked' : '' ?>> <b>MySQL ODBC</b><br>
|
---|
| 20 | <input type=checkbox name="testmysqli" value=1 <?php echo !empty($testmysqli) ? 'checked' : '' ?>> <b>MySQLi</b>
|
---|
| 21 | <br>
|
---|
| 22 | <td><input type=checkbox name="testsqlite" value=1 <?php echo !empty($testsqlite) ? 'checked' : '' ?>> <b>SQLite</b><br>
|
---|
| 23 | <input type=checkbox name="testproxy" value=1 <?php echo !empty($testproxy) ? 'checked' : '' ?>> <b>MySQL Proxy</b><br>
|
---|
| 24 | <input type=checkbox name="testoracle" value=1 <?php echo !empty($testoracle) ? 'checked' : '' ?>> <b>Oracle (oci8)</b> <br>
|
---|
| 25 | <input type=checkbox name="testpostgres" value=1 <?php echo !empty($testpostgres) ? 'checked' : '' ?>> <b>PostgreSQL</b><br>
|
---|
| 26 | <input type=checkbox name="testpgodbc" value=1 <?php echo !empty($testpgodbc) ? 'checked' : '' ?>> <b>PostgreSQL ODBC</b><br>
|
---|
| 27 | <td>
|
---|
| 28 | <input type=checkbox name="testpdopgsql" value=1 <?php echo !empty($testpdopgsql) ? 'checked' : '' ?>> <b>PgSQL PDO</b><br>
|
---|
| 29 | <input type=checkbox name="testpdomysql" value=1 <?php echo !empty($testpdomysql) ? 'checked' : '' ?>> <b>MySQL PDO</b><br>
|
---|
| 30 | <input type=checkbox name="testpdosqlite" value=1 <?php echo !empty($testpdosqlite) ? 'checked' : '' ?>> <b>SQLite PDO</b><br>
|
---|
| 31 | <input type=checkbox name="testpdoaccess" value=1 <?php echo !empty($testpdoaccess) ? 'checked' : '' ?>> <b>Access PDO</b><br>
|
---|
| 32 | <input type=checkbox name="testpdomssql" value=1 <?php echo !empty($testpdomssql) ? 'checked' : '' ?>> <b>MSSQL PDO</b><br>
|
---|
| 33 |
|
---|
| 34 | <input type=checkbox name="testpdoora" value=1 <?php echo !empty($testpdoora) ? 'checked' : '' ?>> <b>OCI PDO</b><br>
|
---|
| 35 |
|
---|
| 36 | <td><input type=checkbox name="testdb2" value=1 <?php echo !empty($testdb2) ? 'checked' : '' ?>> DB2<br>
|
---|
| 37 | <input type=checkbox name="testvfp" value=1 <?php echo !empty($testvfp) ? 'checked' : '' ?>> VFP+ODBTP<br>
|
---|
| 38 | <input type=checkbox name="testado" value=1 <?php echo !empty($testado) ? 'checked' : '' ?>> ADO (for mssql and access)<br>
|
---|
| 39 | <input type=checkbox name="nocountrecs" value=1 <?php echo !empty($nocountrecs) ? 'checked' : '' ?>> $ADODB_COUNTRECS=false<br>
|
---|
| 40 | <input type=checkbox name="nolog" value=1 <?php echo !empty($nolog) ? 'checked' : '' ?>> No SQL Logging<br>
|
---|
| 41 | <input type=checkbox name="time" value=1 <?php echo !empty($_GET['time']) ? 'checked' : '' ?>> ADOdb time test
|
---|
| 42 | </table>
|
---|
| 43 | <input type=submit>
|
---|
| 44 | </form>
|
---|
| 45 |
|
---|
| 46 | <?php
|
---|
| 47 |
|
---|
| 48 | if ($ADODB_FETCH_MODE != ADODB_FETCH_DEFAULT) print "<h3>FETCH MODE IS NOT ADODB_FETCH_DEFAULT</h3>";
|
---|
| 49 |
|
---|
| 50 | if (isset($nocountrecs)) $ADODB_COUNTRECS = false;
|
---|
| 51 |
|
---|
| 52 | // cannot test databases below, but we include them anyway to check
|
---|
| 53 | // if they parse ok...
|
---|
| 54 |
|
---|
| 55 | if (!strpos(PHP_VERSION,'5') === 0) {
|
---|
| 56 | ADOLoadCode("sybase");
|
---|
| 57 | //ADOLoadCode("postgres");
|
---|
| 58 | //ADOLoadCode("postgres7");
|
---|
| 59 | ADOLoadCode("firebird");
|
---|
| 60 | ADOLoadCode("borland_ibase");
|
---|
| 61 | ADOLoadCode("informix");
|
---|
| 62 | ADOLoadCode("sqlanywhere");
|
---|
| 63 | // ADOLoadCode('mysqli');
|
---|
| 64 | }
|
---|
| 65 |
|
---|
| 66 |
|
---|
| 67 | flush();
|
---|
| 68 | if (!empty($testpostgres)) {
|
---|
| 69 | //ADOLoadCode("postgres");
|
---|
| 70 |
|
---|
| 71 | $db = &ADONewConnection('postgres');
|
---|
| 72 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 73 | if ($db->Connect("localhost","tester","test","test")) {
|
---|
| 74 | testdb($db,"create table ADOXYZ (id integer, firstname char(24), lastname varchar,created date)");
|
---|
| 75 | }else
|
---|
| 76 | print "ERROR: PostgreSQL requires a database called test on server, user tester, password test.<BR>".$db->ErrorMsg();
|
---|
| 77 | }
|
---|
| 78 |
|
---|
| 79 | if (!empty($testpgodbc)) {
|
---|
| 80 |
|
---|
| 81 | $db = &ADONewConnection('odbc');
|
---|
| 82 | $db->hasTransactions = false;
|
---|
| 83 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 84 |
|
---|
| 85 | if ($db->PConnect('Postgresql')) {
|
---|
| 86 | $db->hasTransactions = true;
|
---|
| 87 | testdb($db,
|
---|
| 88 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
|
---|
| 89 | } else print "ERROR: PostgreSQL requires a database called test on server, user tester, password test.<BR>".$db->ErrorMsg();
|
---|
| 90 | }
|
---|
| 91 |
|
---|
| 92 | if (!empty($testibase)) {
|
---|
| 93 | //$_GET['nolog'] = true;
|
---|
| 94 | $db = &ADONewConnection('firebird');
|
---|
| 95 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 96 | if ($db->PConnect("localhost:d:\\firebird\\151\\examples\\EMPLOYEE.fdb", "sysdba", "masterkey", ""))
|
---|
| 97 | testdb($db,"create table ADOXYZ (id integer, firstname char(24), lastname char(24),price numeric(12,2),created date)");
|
---|
| 98 | else print "ERROR: Interbase test requires a database called employee.gdb".'<BR>'.$db->ErrorMsg();
|
---|
| 99 |
|
---|
| 100 | }
|
---|
| 101 |
|
---|
| 102 |
|
---|
| 103 | if (!empty($testsqlite)) {
|
---|
| 104 | $path =urlencode('d:\inetpub\adodb\sqlite.db');
|
---|
| 105 | $dsn = "sqlite://$path/";
|
---|
| 106 | $db = ADONewConnection($dsn);
|
---|
| 107 | //echo $dsn;
|
---|
| 108 |
|
---|
| 109 | //$db = &ADONewConnection('sqlite');
|
---|
| 110 |
|
---|
| 111 |
|
---|
| 112 | if ($db && $db->PConnect("d:\\inetpub\\adodb\\sqlite.db", "", "", "")) {
|
---|
| 113 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 114 | testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
|
---|
| 115 | } else
|
---|
| 116 | print "ERROR: SQLite";
|
---|
| 117 |
|
---|
| 118 | }
|
---|
| 119 |
|
---|
| 120 | if (!empty($testpdopgsql)) {
|
---|
| 121 | $connstr = "pgsql:dbname=test";
|
---|
| 122 | $u = 'tester';$p='test';
|
---|
| 123 | $db = &ADONewConnection('pdo');
|
---|
| 124 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 125 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 126 | testdb($db,
|
---|
| 127 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 128 | }
|
---|
| 129 |
|
---|
| 130 | if (!empty($testpdomysql)) {
|
---|
| 131 | $connstr = "mysql:dbname=northwind";
|
---|
| 132 | $u = 'root';$p='';
|
---|
| 133 | $db = &ADONewConnection('pdo');
|
---|
| 134 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 135 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 136 |
|
---|
| 137 | testdb($db,
|
---|
| 138 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 139 | }
|
---|
| 140 |
|
---|
| 141 | if (!empty($testpdomssql)) {
|
---|
| 142 | $connstr = "mssql:dbname=northwind";
|
---|
| 143 | $u = 'sa';$p='natsoft';
|
---|
| 144 | $db = &ADONewConnection('pdo');
|
---|
| 145 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 146 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 147 |
|
---|
| 148 | testdb($db,
|
---|
| 149 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 150 | }
|
---|
| 151 |
|
---|
| 152 | if (!empty($testpdosqlite)) {
|
---|
| 153 | $connstr = "sqlite:d:/inetpub/adodb/sqlite-pdo.db3";
|
---|
| 154 | $u = '';$p='';
|
---|
| 155 | $db = &ADONewConnection('pdo');
|
---|
| 156 | $db->hasTransactions = false;
|
---|
| 157 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 158 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 159 | testdb($db,
|
---|
| 160 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 161 | }
|
---|
| 162 |
|
---|
| 163 | if (!empty($testpdoaccess)) {
|
---|
| 164 | $connstr = 'odbc:nwind';
|
---|
| 165 | $u = '';$p='';
|
---|
| 166 | $db = &ADONewConnection('pdo');
|
---|
| 167 | $db->hasTransactions = false;
|
---|
| 168 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 169 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 170 | testdb($db,
|
---|
| 171 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 172 | }
|
---|
| 173 |
|
---|
| 174 | if (!empty($testpdoora)) {
|
---|
| 175 | $connstr = 'oci:';
|
---|
| 176 | $u = 'scott';$p='natsoft';
|
---|
| 177 | $db = &ADONewConnection('pdo');
|
---|
| 178 | #$db->hasTransactions = false;
|
---|
| 179 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 180 | $db->Connect($connstr,$u,$p) || die("CONNECT FAILED");
|
---|
| 181 | testdb($db,
|
---|
| 182 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 183 | }
|
---|
| 184 |
|
---|
| 185 | // REQUIRES ODBC DSN CALLED nwind
|
---|
| 186 | if (!empty($testaccess)) {
|
---|
| 187 | $db = &ADONewConnection('access');
|
---|
| 188 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 189 | $access = 'd:\inetpub\wwwroot\php\NWIND.MDB';
|
---|
| 190 | $dsn = "nwind";
|
---|
| 191 | $dsn = "Driver={Microsoft Access Driver (*.mdb)};Dbq=$access;Uid=Admin;Pwd=;";
|
---|
| 192 |
|
---|
| 193 | //$dsn = 'Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=' . $access . ';';
|
---|
| 194 | if ($db->PConnect($dsn, "", "", ""))
|
---|
| 195 | testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
|
---|
| 196 | else print "ERROR: Access test requires a Windows ODBC DSN=nwind, Access driver";
|
---|
| 197 |
|
---|
| 198 | }
|
---|
| 199 |
|
---|
| 200 | if (!empty($testaccess) && !empty($testado)) { // ADO ACCESS
|
---|
| 201 |
|
---|
| 202 | $db = &ADONewConnection("ado_access");
|
---|
| 203 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 204 |
|
---|
| 205 | $access = 'd:\inetpub\wwwroot\php\NWIND.MDB';
|
---|
| 206 | $myDSN = 'PROVIDER=Microsoft.Jet.OLEDB.4.0;'
|
---|
| 207 | . 'DATA SOURCE=' . $access . ';';
|
---|
| 208 | //. 'USER ID=;PASSWORD=;';
|
---|
| 209 | $_GET['nolog'] = 1;
|
---|
| 210 | if ($db->PConnect($myDSN, "", "", "")) {
|
---|
| 211 | print "ADO version=".$db->_connectionID->version."<br>";
|
---|
| 212 | testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
|
---|
| 213 | } else print "ERROR: Access test requires a Access database $access".'<BR>'.$db->ErrorMsg();
|
---|
| 214 |
|
---|
| 215 | }
|
---|
| 216 |
|
---|
| 217 | if (!empty($testvfp)) { // ODBC
|
---|
| 218 | $db = &ADONewConnection('vfp');
|
---|
| 219 | print "<h1>Connecting $db->databaseType...</h1>";flush();
|
---|
| 220 |
|
---|
| 221 | if ( $db->PConnect("vfp-adoxyz")) {
|
---|
| 222 | testdb($db,"create table d:\\inetpub\\adodb\\ADOXYZ (id int, firstname char(24), lastname char(24),created date)");
|
---|
| 223 | } else print "ERROR: Visual FoxPro test requires a Windows ODBC DSN=vfp-adoxyz, VFP driver";
|
---|
| 224 |
|
---|
| 225 | echo "<hr />";
|
---|
| 226 | $db = &ADONewConnection('odbtp');
|
---|
| 227 |
|
---|
| 228 | if ( $db->PConnect('localhost','DRIVER={Microsoft Visual FoxPro Driver};SOURCETYPE=DBF;SOURCEDB=d:\inetpub\adodb;EXCLUSIVE=NO;')) {
|
---|
| 229 | print "<h1>Connecting $db->databaseType...</h1>";flush();
|
---|
| 230 | testdb($db,"create table d:\\inetpub\\adodb\\ADOXYZ (id int, firstname char(24), lastname char(24),created date)");
|
---|
| 231 | } else print "ERROR: Visual FoxPro odbtp requires a Windows ODBC DSN=vfp-adoxyz, VFP driver";
|
---|
| 232 |
|
---|
| 233 | }
|
---|
| 234 |
|
---|
| 235 |
|
---|
| 236 | // REQUIRES MySQL server at localhost with database 'test'
|
---|
| 237 | if (!empty($testmysql)) { // MYSQL
|
---|
| 238 |
|
---|
| 239 |
|
---|
| 240 | if (PHP_VERSION >= 5 || $_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
|
---|
| 241 | else $server = "mangrove";
|
---|
| 242 | $user = 'root'; $password = ''; $database = 'northwind';
|
---|
| 243 | $db = &ADONewConnection("mysqlt://$user:$password@$server/$database?persist");
|
---|
| 244 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 245 |
|
---|
| 246 | if (true || $db->PConnect($server, "root", "", "northwind")) {
|
---|
| 247 | //$db->Execute("DROP TABLE ADOXYZ") || die('fail drop');
|
---|
| 248 | //$db->debug=1;$db->Execute('drop table ADOXYZ');
|
---|
| 249 | testdb($db,
|
---|
| 250 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) Type=InnoDB");
|
---|
| 251 | } else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
|
---|
| 252 | }
|
---|
| 253 |
|
---|
| 254 | // REQUIRES MySQL server at localhost with database 'test'
|
---|
| 255 | if (!empty($testmysqli)) { // MYSQL
|
---|
| 256 |
|
---|
| 257 | $db = &ADONewConnection('mysqli');
|
---|
| 258 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 259 | if (PHP_VERSION >= 5 || $_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
|
---|
| 260 | else $server = "mangrove";
|
---|
| 261 | if ($db->PConnect($server, "root", "", "northwind")) {
|
---|
| 262 | //$db->debug=1;$db->Execute('drop table ADOXYZ');
|
---|
| 263 | testdb($db,
|
---|
| 264 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date)");
|
---|
| 265 | } else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
|
---|
| 266 | }
|
---|
| 267 |
|
---|
| 268 |
|
---|
| 269 | // REQUIRES MySQL server at localhost with database 'test'
|
---|
| 270 | if (!empty($testmysqlodbc)) { // MYSQL
|
---|
| 271 |
|
---|
| 272 | $db = &ADONewConnection('odbc');
|
---|
| 273 | $db->hasTransactions = false;
|
---|
| 274 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 275 | if ($_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
|
---|
| 276 | else $server = "mangrove";
|
---|
| 277 | if ($db->PConnect('mysql', "root", ""))
|
---|
| 278 | testdb($db,
|
---|
| 279 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
|
---|
| 280 | else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
|
---|
| 281 | }
|
---|
| 282 |
|
---|
| 283 | if (!empty($testproxy)){
|
---|
| 284 | $db = &ADONewConnection('proxy');
|
---|
| 285 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 286 | if ($_SERVER['HTTP_HOST'] == 'localhost') $server = 'localhost';
|
---|
| 287 |
|
---|
| 288 | if ($db->PConnect('http://localhost/php/phplens/adodb/server.php'))
|
---|
| 289 | testdb($db,
|
---|
| 290 | "create table ADOXYZ (id int, firstname char(24), lastname char(24), created date) type=innodb");
|
---|
| 291 | else print "ERROR: MySQL test requires a MySQL server on localhost, userid='admin', password='', database='test'".'<BR>'.$db->ErrorMsg();
|
---|
| 292 |
|
---|
| 293 | }
|
---|
| 294 |
|
---|
| 295 | ADOLoadCode('oci805');
|
---|
| 296 | ADOLoadCode("oci8po");
|
---|
| 297 |
|
---|
| 298 | if (!empty($testoracle)) {
|
---|
| 299 | $dsn = "oci8po://juris10:natsoft@sherkhan?persist";
|
---|
| 300 | $db = ADONewConnection($dsn );//'oci8');
|
---|
| 301 |
|
---|
| 302 | //$db->debug=1;
|
---|
| 303 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 304 | if (true || $db->Connect('', "scott", "natsoft",''))
|
---|
| 305 | testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
|
---|
| 306 | else
|
---|
| 307 | print "ERROR: Oracle test requires an Oracle server setup with scott/natsoft".'<BR>'.$db->ErrorMsg();
|
---|
| 308 |
|
---|
| 309 | }
|
---|
| 310 | ADOLoadCode("oracle"); // no longer supported
|
---|
| 311 | if (false && !empty($testoracle)) {
|
---|
| 312 |
|
---|
| 313 | $db = ADONewConnection();
|
---|
| 314 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 315 | if ($db->PConnect("", "scott", "tiger", "natsoft.domain"))
|
---|
| 316 | testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
|
---|
| 317 | else print "ERROR: Oracle test requires an Oracle server setup with scott/tiger".'<BR>'.$db->ErrorMsg();
|
---|
| 318 |
|
---|
| 319 | }
|
---|
| 320 |
|
---|
| 321 | ADOLoadCode("odbc_db2"); // no longer supported
|
---|
| 322 | if (!empty($testdb2)) {
|
---|
| 323 | if (PHP_VERSION>=5.1) {
|
---|
| 324 | $db = ADONewConnection("db2");
|
---|
| 325 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 326 |
|
---|
| 327 | #$db->curMode = SQL_CUR_USE_ODBC;
|
---|
| 328 | #$dsn = "driver={IBM db2 odbc DRIVER};Database=test;hostname=localhost;port=50000;protocol=TCPIP; uid=natsoft; pwd=guest";
|
---|
| 329 | if ($db->Connect('localhost','natsoft','guest','test')) {
|
---|
| 330 | testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
|
---|
| 331 | } else print "ERROR: DB2 test requires an server setup with odbc data source db2_sample".'<BR>'.$db->ErrorMsg();
|
---|
| 332 | } else {
|
---|
| 333 | $db = ADONewConnection("odbc_db2");
|
---|
| 334 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 335 |
|
---|
| 336 | $dsn = "db2test";
|
---|
| 337 | #$db->curMode = SQL_CUR_USE_ODBC;
|
---|
| 338 | #$dsn = "driver={IBM db2 odbc DRIVER};Database=test;hostname=localhost;port=50000;protocol=TCPIP; uid=natsoft; pwd=guest";
|
---|
| 339 | if ($db->Connect($dsn)) {
|
---|
| 340 | testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
|
---|
| 341 | } else print "ERROR: DB2 test requires an server setup with odbc data source db2_sample".'<BR>'.$db->ErrorMsg();
|
---|
| 342 | }
|
---|
| 343 | echo "<hr />";
|
---|
| 344 | flush();
|
---|
| 345 | $dsn = "driver={IBM db2 odbc DRIVER};Database=sample;hostname=localhost;port=50000;protocol=TCPIP; uid=root; pwd=natsoft";
|
---|
| 346 |
|
---|
| 347 | $db = ADONewConnection('odbtp');
|
---|
| 348 | if ($db->Connect('127.0.0.1',$dsn)) {
|
---|
| 349 |
|
---|
| 350 | $db->debug=1;
|
---|
| 351 | $arr = $db->GetArray( "||SQLProcedures" ); adodb_pr($arr);
|
---|
| 352 | $arr = $db->GetArray( "||SQLProcedureColumns|||GET_ROUTINE_SAR" );adodb_pr($arr);
|
---|
| 353 |
|
---|
| 354 | testdb($db,"create table ADOXYZ (id int, firstname varchar(24), lastname varchar(24),created date)");
|
---|
| 355 | } else echo ("ERROR Connection");
|
---|
| 356 | echo $db->ErrorMsg();
|
---|
| 357 | }
|
---|
| 358 |
|
---|
| 359 |
|
---|
| 360 | $server = 'sherkhan';
|
---|
| 361 |
|
---|
| 362 |
|
---|
| 363 |
|
---|
| 364 | ADOLoadCode("mssqlpo");
|
---|
| 365 | if (!empty($testmssql)) { // MS SQL Server -- the extension is buggy -- probably better to use ODBC
|
---|
| 366 | $db = ADONewConnection("mssqlpo");
|
---|
| 367 | //$db->debug=1;
|
---|
| 368 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 369 |
|
---|
| 370 | $ok = $db->Connect('','adodb','natsoft','northwind');
|
---|
| 371 |
|
---|
| 372 | if ($ok or $db->PConnect("mangrove", "sa", "natsoft", "ai")) {
|
---|
| 373 | AutoDetect_MSSQL_Date_Order($db);
|
---|
| 374 | // $db->Execute('drop table adoxyz');
|
---|
| 375 | testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
|
---|
| 376 | } else print "ERROR: MSSQL test 2 requires a MS SQL 7 on a server='192.168.0.1', userid='adodb', password='natsoft', database='ai'".'<BR>'.$db->ErrorMsg();
|
---|
| 377 |
|
---|
| 378 | }
|
---|
| 379 |
|
---|
| 380 |
|
---|
| 381 | ADOLoadCode('odbc_mssql');
|
---|
| 382 | if (!empty($testmssql)) { // MS SQL Server via ODBC
|
---|
| 383 | $db = ADONewConnection();
|
---|
| 384 |
|
---|
| 385 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 386 |
|
---|
| 387 | $dsn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=$server;Database=northwind;";
|
---|
| 388 |
|
---|
| 389 | if ($db->PConnect($dsn, "adodb", "natsoft", "")) {
|
---|
| 390 | testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
|
---|
| 391 | }
|
---|
| 392 | else print "ERROR: MSSQL test 1 requires a MS SQL 7 server setup with DSN setup";
|
---|
| 393 |
|
---|
| 394 | }
|
---|
| 395 |
|
---|
| 396 | ADOLoadCode("ado_mssql");
|
---|
| 397 | if (!empty($testmssql) && !empty($testado) ) { // ADO ACCESS MSSQL -- thru ODBC -- DSN-less
|
---|
| 398 |
|
---|
| 399 | $db = &ADONewConnection("ado_mssql");
|
---|
| 400 | //$db->debug=1;
|
---|
| 401 | print "<h1>Connecting DSN-less $db->databaseType...</h1>";
|
---|
| 402 |
|
---|
| 403 | $myDSN="PROVIDER=MSDASQL;DRIVER={SQL Server};"
|
---|
| 404 | . "SERVER=$server;DATABASE=NorthWind;UID=adodb;PWD=natsoft;Trusted_Connection=No";
|
---|
| 405 |
|
---|
| 406 |
|
---|
| 407 | if ($db->PConnect($myDSN, "", "", ""))
|
---|
| 408 | testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
|
---|
| 409 | else print "ERROR: MSSQL test 2 requires MS SQL 7";
|
---|
| 410 |
|
---|
| 411 | }
|
---|
| 412 |
|
---|
| 413 | if (!empty($testmssql) && !empty($testado)) { // ADO ACCESS MSSQL with OLEDB provider
|
---|
| 414 |
|
---|
| 415 | $db = &ADONewConnection("ado_mssql");
|
---|
| 416 | print "<h1>Connecting DSN-less OLEDB Provider $db->databaseType...</h1>";
|
---|
| 417 | //$db->debug=1;
|
---|
| 418 | $myDSN="SERVER=localhost;DATABASE=northwind;Trusted_Connection=yes";
|
---|
| 419 | if ($db->PConnect($myDSN, "adodb", "natsoft", 'SQLOLEDB')) {
|
---|
| 420 | testdb($db,"create table ADOXYZ (id int, firstname char(24), lastname char(24),created datetime)");
|
---|
| 421 | } else print "ERROR: MSSQL test 2 requires a MS SQL 7 on a server='mangrove', userid='sa', password='', database='ai'";
|
---|
| 422 |
|
---|
| 423 | }
|
---|
| 424 |
|
---|
| 425 |
|
---|
| 426 | if (extension_loaded('odbtp') && !empty($testmssql)) { // MS SQL Server via ODBC
|
---|
| 427 | $db = ADONewConnection('odbtp');
|
---|
| 428 |
|
---|
| 429 | $dsn = "PROVIDER=MSDASQL;Driver={SQL Server};Server=$server;Database=northwind;uid=adodb;pwd=natsoft";
|
---|
| 430 |
|
---|
| 431 | if ($db->PConnect('localhost',$dsn, "", "")) {
|
---|
| 432 | print "<h1>Connecting $db->databaseType...</h1>";
|
---|
| 433 | testdb($db,"create table ADOXYZ (id int, firstname char(24) null, lastname char(24) null,created datetime null)");
|
---|
| 434 | }
|
---|
| 435 | else print "ERROR: MSSQL test 1 requires a MS SQL 7 server setup with DSN setup";
|
---|
| 436 |
|
---|
| 437 | }
|
---|
| 438 |
|
---|
| 439 |
|
---|
| 440 | print "<h3>Tests Completed</h3>";
|
---|
| 441 |
|
---|
| 442 | ?>
|
---|