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