 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期三 四月 28, 2004 10:38 pm 文章主題: VFP&Firebird (2)--資料表維護篇 |
 |
|
Firebird資料庫伺服器特色:
有免費版本/簡單易用/運作穩定/維護成本低/可以簡單快速的安裝
| 代碼: | VFP&Firebird (2)--維護資料表
&&By Ruey
LOCAL ln_Handle,lc_ConnectString,lc_SQLCommand,ln_OK
TEXT to lc_ConnectString TextMerge NoShow
DRIVER=Firebird/InterBase(r) driver;
DBNAME=d:\s1.fdb;
UID=SYSDBA;
PWD=masterkey;
ENDTEXT
ln_Handle=SQLSTRINGCONNECT(lc_ConnectString)
IF ln_Handle<=0
? "連線錯誤"
*SQLDISCONNECT(ln_Handle)
RETURN
ELSE
? "連線成功"
ENDIF
=SQLSetProp(ln_Handle,'Transactions',2)
SQLTABLES(ln_Handle,"'TABLE'","mycursor") &&列出所有Table
= SQLCOLUMNS(ln_Handle, "CUSTOMER", "NATIVE", 'MyCursor')
BROWSE
*!*====================================建立Table
TEXT to lc_SQLCommand TextMerge NoShow
CREATE TABLE Customer (
Cu_No CHAR(10),
Cu_Name CHAR(20),
Cu_Addr CHAR(60)
);
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "建立資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "建立資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*!*====================================修改Table
*增�[欄位
TEXT to lc_SQLCommand TextMerge NoShow
ALTER TABLE CUSTOMER
ADD CU_TEL CHAR(20);
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "修改資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "修改資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*修改欄位大小
TEXT to lc_SQLCommand TextMerge NoShow
ALTER TABLE CUSTOMER
ALTER CU_TEL TYPE CHAR(30);
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "修改資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "修改資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*更改欄位名稱
TEXT to lc_SQLCommand TextMerge NoShow
ALTER TABLE CUSTOMER
ALTER CU_TEL TO CU_FAX;
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "修改資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "修改資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*移除欄位
TEXT to lc_SQLCommand TextMerge NoShow
ALTER TABLE CUSTOMER
DROP CU_FAX;
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "修改資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "修改資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*!*====================================移除Table
TEXT to lc_SQLCommand TextMerge NoShow
DROP TABLE Customer;
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "移除資料表--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "移除資料表--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
SQLDISCONNECT(ln_Handle) |
參考文章:
1.VFP書籍整理
http://vfp.sunyear.com.tw/viewtopic.php?t=451
2.SPT指令集
http://vfp.sunyear.com.tw/viewtopic.php?t=46&highlight=spt
3.童心未泯VFP&SQL
http://vfp.sunyear.com.tw/viewtopic.php?t=1039&highlight=sql+server
4.Firebird書籍
http://www.ibphoenix.com/main.nfs?a=ibphoenix&page=ibp_download_documentation
若你對Firebird有興趣的話.到以下網站
http://wiki.sunyear.com.tw/index.php?page=FirebirdSQL
_________________
#############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
