|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 1 樓
|
發表於: 星期二 九月 23, 2003 12:19 am 文章主題: Visual Foxpro 到 MySQL 的數據轉換技朮介紹(轉貼) |
|
|
Visual Foxpro 到 MySQL 的數據轉換技朮介紹
來源:php link http://phplink.net/article.php?id=145
傳統的 C/S 模式的編程環境下,Visual Foxpro 曾經是風靡一時的數據庫類型,然而,在輕型的數據庫級別里,MySQL 具有遠比 VFP 要好得多的特性,最大的恆cccccccccΦ比皇強縉教ㄌ匭浴T詒疚慕檣艿惱飧□τ美錚ㄕ饈且桓鍪導實睦□櫻□□頤前言冼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');
?> _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|