PHP Classes

File: ibclass_tester.php

Recommend this page to a friend!
  Classes of Henrik Schmidt   IB Class   ???   Download  
File: ???
Role: Example script
Content typex: text/plain
Description: A simple demoapplication
Class: IB Class
Connect to Interbase and get blobs transparently
Author: By
Last change: bugfix
Date: 22 years ago
Size: 2,858 bytes
 

Contents

Class file image Download
<html>
  <head>
    <title>InterBase ISQL</title>
  </head>
  <BODY bgcolor="#ffffff" text="black"><font face="arial,verdana,helvetica" size=3>

<?
  require_once("ibclass.php");
  //$qrystring = "SELECT u.a ttt, w.* FROM test3 w, test2 y, test u, test";
  //$qrystring = "SELECT * FROM test3, test2, test";
  //$qrystring = "select A, B, BLUBB from test left join test3 on val=(a-1)";
  $qrystring = "select * from test3 order by val ";

  $ibc = new TIBConnection("127.0.0.1:e:\\db\\test.gdb","sysdba","masterkey");

  if ( ! $ibc->IsOpen() )
     echo "Can't connect to database, sorry.";
  else
  {
    $ibq2 = new TIBQuery( $ibc);
    $ibq2->Execute( "insert into test values (3,'hejja')" );

    $ibq2->Execute( "insert into test3 values ( ?, ? )",
                     array( 22, $ibq2->BlobFromString("oj va gott det kan vara med glass ibland!") ) );

    $test = $ibq2->BlobFromFile("intext.txt");

    $ibq2->Execute( "insert into test3 values (32,?)", array( $test ) );

    $ibq2->Execute( "insert into test3 values (32,?)", array( NULL ) );
   
    echo "<br>";
   
    var_dump($ibc->GEN_ID("testgenerator2"));
   
    echo "<br>";


    unset($ibq2);

    $ibq = new TIBQuery( $ibc, $qrystring );

    if ( ! $ibq->Open() )
      echo "<br><font color=#AA0000>Can't run the query</font>";
    else
    {
      for ($i=0; $i < $ibq->FldCount; $i++)
      {
        echo "<table cellspacing='1' cellpadding='3' border='1' align=left>";
        echo "<tr bgcolor='#AAAAFF'><td colspan=2>Field: #$i</td></tr>";

        echo "<tr><td>Name</td><td>".$ibq->FldRealName($i)."</td></tr>";
        echo "<tr><td>Alias</td><td>".$ibq->FldAlias($i)."</td></tr>";
        echo "<tr><td>Table</td><td>".$ibq->FldTable($i)."</td></tr>";
        echo "<tr><td>Length</td><td>".$ibq->FldLength($i)."</td></tr>";
        echo "<tr><td>Type</td><td>".$ibq->FldType($i)."</td></tr>";

        echo "</table>";
      }

      echo "<br clear=all><table cellspacing='1' cellpadding='3' border='1'><tr bgcolor=#bed2e6>";

      for ($i=0; $i < $ibq->FldCount; $i++)
        echo "<td>".$ibq->FldAlias($i)."</td>";

      echo "<td>BLUPP extra</td>";
      echo "</tr>";

      while ( $ibq->Next() )
      {
        echo "<tr>";

          for ($i=0; $i<$ibq->FldCount; $i++)
          {
            echo "<td>" ;
            if( $ibq->FldIsEmpty($i) )
              echo "&lt;empty&gt;";
            else
              echo htmlentities( $ibq->Fld($i) );
           
            echo "</td>";
          }
          echo "<td>" . $ibq->Fld("blubb") . "</td>";
          echo "<td>" . $ibq->FldGetTextLength( "blubb" ) . "</td>";

        echo "</tr>";
      }
      echo "</table>";

      $ibq->Close();
    }
    $ibc->Close();
  }
?>
</body>
</html>