IT猫扑网文章教程

分类分类

Foxpro到MySQL的数据转换技术介绍

2015-06-28 00:00作者:网管联盟

  传统的 C/S 模式的编程环境下,Visual Foxpro 曾经是风靡一时的数据库类型,然而,在轻型的数据库级别里,MySQL 具有远比 VFP 要好得多的特性,最大的好处当然是跨平台特性。在本文介绍的这个应用里(这是一个实际的例子),我们把在 VFP 环境下频繁更新的数据,通过 PHP 的 ADODB 接口同步到 MySQL 数据库,并在入库之前,对其中的文本的关键字打上标记,使之关联到对应的连接。

  下面列出程序片段。

  conv.php
  $ADODB_PATH=&C:/Apache/PHP/PEAR/ADODB&;
  include(&$ADODB_PATH/adodb.inc.php&); // ADODB 的类
  include(&$ADODB_PATH/db_mysql.php&); // 采用了 VBB 中的类
  $conn = &ADONewConnection('vfp'); // 指定 ADODB 的连接类型为 VFP。
  $conn->PConnect('gn','sa',''); // gn 是建立在本机上的ODBC 系统 DSN 名字。
  function parse_keyword ( $oldmem ) {
  $ADODB_CACHE_DIR = 'c:/temp'; // Cache 的目录
  $ADODB_FETCH_MODE = ADODB_FETCH_NUM;
  $mysql_conn = &ADONewConnection('mysql'); // 指定 ADODB 的连接类型为 mysql
  $mysql_conn->PConnect('localhost','username','password','db_name');
  $sql = &select keyword,url from KEYWORD &;
  $rs = $mysql_conn->CacheExecute(1500,$sql);
  // 对 KEYWORD 的查找采用 1500 秒的缓冲。
  if (!$rs) print $mysql_conn->ErrorMsg();
  $all_col=$rs->GetArray();
  $rs->Close();
  $keyword= array();
  $url = array();
  for ( $i = 0; $i< count($all_col); $i++ ) {
  $keyword[$i] = $all_col[$i][0];
  $url[$i] = $all_col[$i][1];
  }
  $newmem=str_replace($keyword,$url,$oldmem);
  // 这是本函数里最大的功能,数组替换文本。
  // 一个语句解决一段文本里所有关键字的替换。
  $mysql_conn->Disconnect();
  $mysql_conn->Close();
  return $newmem;
  }
  $DB_Site = new DB_Sql;
  $DB_Site->connect();
  echo &Processing Table ...n&;
  $sql = & SELECT max(seq) as seq FROM mysql_table WHERE type=0200&;
  $seqinfo = $DB_Site->query_first($sql);
  $seq = $seqinfo[seq];// 取出目标数据库中最大的 seq 值。
  $sql = & SELECT seq,type,body FROM vfp_table WHERE seq > &.$seq.&& & ;
  //取出源数据库中最新的记录。
  $rs = $conn->Execute($sql);
  if ( $rs->EOF ) echo &Table had No new record, Max seq is [$seq].n&;
  while (!$rs->EOF) {
  $sql = & INSERT INTO mysql_table VALUES ($rs->fields[seq],$rs->
  fields[type],&.parse_keyword($rs->fields[body]).&')&;
  $DB_Site->query($sql);
  $rs->MoveNext();
  }
  $rs->Close();
  $DB_Site->close();
  $conn->Disconnect();
  $conn->Close('gn');
  ?>
展开全部

相关文章

说两句网友评论
    我要跟贴
    取消