Login   Register  
PHP Classes
elePHPant
Icontem

File: test_create.php

Recommend this page to a friend!
Stumble It! Stumble It! Bookmark in del.icio.us Bookmark in del.icio.us
  Classes of Erwin Kooi  >  PHPXBase  >  test_create.php  >  Download  
File: test_create.php
Role: Example script
Content type: text/plain
Description: test create function
Class: PHPXBase
Access dbf/foxpro files without PHP ext.
Author: By
Last change: description change
Date: 2006-01-22 04:33
Size: 2,057 bytes
 

Contents

Class file image Download
<?
/**
* ----------------------------------------------------------------
*            XBase
*            test_create.php    
* 
*  Developer        : Erwin Kooi
*  released at      : Jan 2006
*  last modified by : Erwin Kooi
*  date modified    : Jan 2006
*                                                               
*  Info? Mail to info@cyane.nl
* 
* --------------------------------------------------------------
*
* Demonstration how to create a dbf from scratch
*
**/

    /* load the required classes */
    require_once "Column.class.php";
    require_once "Record.class.php";
    require_once "Table.class.php";
    require_once "WritableTable.class.php";

    /* sample data */    
    $fields = array(
        array("bool" , DBFFIELD_TYPE_LOGICAL),
        array("memo" , DBFFIELD_TYPE_MEMO),
        array("date" , DBFFIELD_TYPE_DATE),
        array("number" , DBFFIELD_TYPE_NUMERIC, 3, 0),
        array("string" , DBFFIELD_TYPE_CHAR, 50),
    );
    
    /* create a new table */
    $tableNew = XBaseWritableTable::create("test/created.dbf",$fields);
    
    /* insert some data */
    $r =& $tableNew->appendRecord();
    $r->setObjectByName("bool",true);
    $r->setObjectByName("date",time());
    $r->setObjectByName("number",123);
    $r->setObjectByName("string","String one");
    $tableNew->writeRecord();
    
    $r =& $tableNew->appendRecord();
    $r->setObjectByName("bool",false);
    $r->setObjectByName("date",time()/2);
    $r->setObjectByName("number",321);
    $r->setObjectByName("string","String two");
    $tableNew->writeRecord();

    $r =& $tableNew->appendRecord();
    $r->setObjectByName("bool",true);
    $r->setObjectByName("date",time()-(60*60*24));
    $r->setObjectByName("number",111);
    $r->setObjectByName("string","String trio");
    $tableNew->writeRecord();
    
    /* close the table */
    $tableNew->close();
    
    /* open created file*/
    $table =& new XBaseTable("test/created.dbf");
    $table->open();

    /* xml output */
    echo $table->toHTML();
    echo "<pre>\n";
    echo htmlspecialchars($table->toXML());
    echo "</pre>\n";

    /* close the table */
    $table->close();
?>