[Phpgroupware-cvs] phpgwapi/inc/adodb/tests/testmssql.php, 1.1.2.1

[nomail]

Update of /phpgwapi/inc/adodb/tests
Added Files:
        Branch: proposed-0_9_18-branch
          testmssql.php

date: 2004/12/30 04:51:48;  author: skwashd;  state: Exp;  lines: +76 -0

Log Message:
switch to ADOdb
=====================================================================
<?php

/** 
 * @version V4.50 6 July 2004 (c) 2000-2004 John Lim (address@hidden). All 
rights reserved.
 * Released under both BSD license and Lesser GPL library license. 
 * Whenever there is any discrepancy between the two licenses, 
 * the BSD license will take precedence. 
 *
 * Set tabs to 4 for best viewing.
 * 
 * Latest version is available at http://php.weblogs.com
 *
 * Test GetUpdateSQL and GetInsertSQL.
 */
 
error_reporting(E_ALL);


include('../adodb.inc.php');
include('../tohtml.inc.php');

//==========================
// This code tests an insert



$conn = &ADONewConnection("mssql");  // create a connection
$conn->Connect('localhost','sa','natsoft','northwind') or die('Fail');

$conn->debug =1;
$query = 'select * from products';
$conn->SetFetchMode(ADODB_FETCH_ASSOC);
$rs = $conn->Execute($query);
echo "<pre>";
while( !$rs->EOF ) {
        $output[] = $rs->fields;
        var_dump($rs->fields);
        $rs->MoveNext();
        print "<p>";
}
die();


$p = $conn->Prepare('insert into products (productname,unitprice,dcreated) 
values (?,?,?)');
echo "<pre>";
print_r($p);

$conn->debug=1;
$conn->Execute($p,array('John'.rand(),33.3,$conn->DBDate(time())));

$p = $conn->Prepare('select * from products where productname like ?');
$arr = $conn->getarray($p,array('V%'));
print_r($arr);
die();

//$conn = &ADONewConnection("mssql");
//$conn->Connect('mangrove','sa','natsoft','ai');

//$conn->Connect('mangrove','sa','natsoft','ai');
$conn->debug=1;
$conn->Execute('delete from blobtest');

$conn->Execute('insert into blobtest (id) values(1)');
$conn->UpdateBlobFile('blobtest','b1','../cute_icons_for_site/adodb.gif','id=1');
$rs = $conn->Execute('select b1 from blobtest where id=1');

$output = "c:\\temp\\test_out-".date('H-i-s').".gif"; 
print "Saving file <b>$output</b>, size=".strlen($rs->fields[0])."<p>";
$fd = fopen($output, "wb"); 
fwrite($fd, $rs->fields[0]); 
fclose($fd); 

print " <a href=file://$output>View Image</a>";
//$rs = $conn->Execute('SELECT id,SUBSTRING(b1, 1, 10) FROM blobtest');
//rs2html($rs);
?>