OCIBindByName

<?php
/* OCIBindByName példa - thies@thieso.net (980221)
  Három rekord felvétele a "dolgozok" táblába, és a ROWID
  használata az adatok frissítésére rögtön a felvitel után.
*/

$conn = OCILogon("scott","tiger");

$stmt = OCIParse($conn,"insert into dolgozok (dolgozoid, dnev) ".
					   "values (:dolgozoid,:dnev) ".
					   "returning ROWID into :rid");

$adatok = array(1111 => "Larry", 2222 => "Bill", 3333 => "Jim");

$rowid = OCINewDescriptor($conn, OCI_D_ROWID);

OCIBindByName($stmt,":dolgozoid",&$dolgozoid, 32);
OCIBindByName($stmt,":dnev",     &$dnev,      32);
OCIBindByName($stmt,":rid",      &$rowid,     -1, OCI_B_ROWID);

$update = OCIParse($conn,
              "update dolgozok set fizetes = :fizetes ".
              "where ROWID = :rid");
OCIBindByName($update,":rid",     &$rowid,     -1, OCI_B_ROWID);
OCIBindByName($update,":fizetes", &$fizetes,   32);

$fizetes = 10000;

while (list($dolgozoid,$dnev) = each($adatok)) {
	OCIExecute($stmt);
	OCIExecute($update);
} 

$rowid->free();

OCIFreeStatement($update);
OCIFreeStatement($stmt);

$stmt = OCIParse($conn,"select * from dolgozok where dolgozoid in (1111,2222,3333)");
OCIExecute($stmt);
while (OCIFetchInto($stmt, &$tomb, OCI_ASSOC)) {
	var_dump($tomb);
}
OCIFreeStatement($stmt);

/* Töröljük a "szemetünket" a dolgozok táblából.... */
$stmt = OCIParse($conn,"delete from dolgozok where dolgozoid in (1111,2222,3333)");
OCIExecute($stmt);
OCIFreeStatement($stmt);

OCILogoff($conn);
?>