 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
Ruey
註冊時間: 2003-03-12
文章: 1698
來自: tunglo
第 1 樓
|
 發表於: 星期三 四月 28, 2004 11:01 pm 文章主題: VFP&Firebird (3)--記錄維護篇 |
 |
|
Firebird資料庫伺服器特色:
有免費版本/簡單易用/運作穩定/維護成本低/可以簡單快速的安裝
| 代碼: | &&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)
*!*====================================新增Record
TEXT to lc_SQLCommand TextMerge NoShow
INSERT INTO Customer
(Cu_No,Cu_Name,Cu_Addr)
VALUES
('001','001','xxxx')
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "新增資料--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "新增資料--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*!*====================================修改Record
TEXT to lc_SQLCommand TextMerge NoShow
UPDATE CUSTOMER
SET CU_NAME='AAA'
WHERE CU_NO='001'
ENDTEXT
IF SQLEXEC(ln_Handle,lc_SQLCommand) > 0
? "修改資料--執行成功!"
SQLCOMMIT(ln_Handle)
ELSE
? "修改資料--執行失敗!"
SQLROLLBACK(ln_Handle)
SQLDISCONNECT(ln_Handle)
RETURN
ENDIF
*!*====================================刪除Record
TEXT to lc_SQLCommand TextMerge NoShow
DELETE FROM CUSTOMER
WHERE CU_NO='001'
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才會更有趣~
############################# |
|
| 回頂端 |
|
 |
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
