forked from extern/egroupware
76 lines
2.0 KiB
PHP
76 lines
2.0 KiB
PHP
<?php
|
|
|
|
/**
|
|
* @version V4.20 22 Feb 2004 (c) 2000-2004 John Lim (jlim@natsoft.com.my). 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);
|
|
?>
|