VFP 愛用者社區

Bruce Lin · 註冊時間: 2004-03-28 文章: 24 來自: Taiwan,Taipei 第 1 樓

各位前輩好,
小弟初學VFP6+MS SQL,但摸了一陣子後仍不得要領,
故斗膽請求各位前輩是否有範例程式可提供參考,
感激不盡~~

elleryq · 註冊時間: 2007-06-21 文章: 768 第 2 樓

這邊有
紅狐那邊也有~~

用"搜尋"找找吧~~

syntech · 發表於: 星期一八月 02, 2004 9:54 am 文章主題:

我倒是覺得如果沒有所謂'商業機密'的問題的話,
把您目前了解的部份說明一下,
其他人再提供一下意見,
應該比您自己看範例摸索要快

goto-dream · 註冊時間: 2004-05-11 文章: 909 第 4 樓

先從基本功夫練起!!.

http://tech.sina.com.cn/c/2001-11-16/7225.html
VFP与SQL𡩣程异构䓡据�\\

http://vfp.sunyear.com.tw/viewtopic.php?t=46&highlight=sql
SPT指令集

Bruce Lin · 發表於: 星期二八月 03, 2004 5:16 pm 文章主題:

呵呵,沒有商業機密啦,只是初學者,怕大家見笑了~~
以下是我參考了SPT指令集後所寫的程式,讓各位前輩看一看,還有哪些地方該改進的~~ 謝謝各位前輩了的回覆及指導~

<<新增>>
m1=thisform.text2.value
m2=thisform.text3.value
m3=thisform.text4.value

CON=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.1;Uid=qqq;pwd=qqq;database=DB1")

IF CON>0
=SQLSETPROP(CON,"Transactions" ,2)&&&& 開始一個事務
=SQLPREPARE(CON, "INSERT INTO TEST VALUES ( '&m1','&m2','&m3' )" )
=SQLEXEC(CON)
QQ=MESSAGEBOX("是否存檔?",4+32,"QA")
IF QQ=6
=SQLCOMMIT(CON)&&&& 事務交付
=MESSAGEBOX("新增成功")
ELSE
=SQLROLLBACK(CON)&&&& 事務回滾
ENDIF

SQLSETPROP(CON,"Transactions" ,1)&&&& 重新回到自動事務處理狀態

=SQLEXEC(CON, "SELECT * FROM TEST","temp")
SELECT TEMP
GO BOTTOM
IF !EOF()
THISFORM.TEXT1.CONTROLSOURCE="TEMP.ID"
THISFORM.TEXT2.CONTROLSOURCE="TEMP.測試1"
THISFORM.TEXT3.CONTROLSOURCE="TEMP.測試2"
THISFORM.TEXT4.CONTROLSOURCE="TEMP.測試3"
ENDIF

THISFORM.TEXT1.VALUE=ID
THISFORM.TEXT2.VALUE=測試1
THISFORM.TEXT3.VALUE=測試2
THISFORM.TEXT4.VALUE=測試3
=SQLCANCEL(CON)
=SQLDISCONNECT(CON)
ELSE
=MESSAGEBOX("連線失敗")
ENDIF

<<刪除>>
mno=ALLTRIM(STR(thisform.text1.value))
CON=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.1;Uid=qqq;pwd=qqq;database=DB1")

IF CON>0
SQLSETPROP(CON,"Transactions" ,2)&&&& 開始一個事務
=SQLPREPARE(CON,"DELETE FROM TEST WHERE ID='"+MNO+"'")
=SQLEXEC(CON)
QQ=MESSAGEBOX("是否刪除?",4+32,"QA")
IF QQ=6
=SQLCOMMIT(CON)&&&& 事務交付
=MESSAGEBOX("刪除成功")
ELSE
=SQLROLLBACK(CON)&&&& 事務回滾
ENDIF

SQLSETPROP(CON,"Transactions" ,1)&&&& 重新回到自動事務處理狀態
=SQLEXEC(CON, "SELECT * FROM TEST","temp")
SELECT TEMP
GO BOTTOM
IF EOF()
THISFORM.TEXT1.CONTROLSOURCE=""
THISFORM.TEXT2.CONTROLSOURCE=""
THISFORM.TEXT3.CONTROLSOURCE=""
THISFORM.TEXT4.CONTROLSOURCE=""
ENDIF

THISFORM.TEXT1.VALUE=ID
THISFORM.TEXT2.VALUE=測試1
THISFORM.TEXT3.VALUE=測試2
THISFORM.TEXT4.VALUE=測試3
=SQLCANCEL(CON)
=SQLDISCONNECT(CON)

ELSE
=MESSAGEBOX("連線失敗")
ENDIF

<<修改>>
mno=ALLTRIM(STR(thisform.text1.value))
m1=thisform.text2.value
m2=thisform.text3.value
m3=thisform.text4.value

CON=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.1;Uid=qqq;pwd=qqq;database=DB1")

IF CON>0
SQLSETPROP(CON,"Transactions" ,2)&&&& 開始一個事務
=SQLPREPARE(CON,"UPDATE TEST SET 測試1='"+M1+"',測試2='"+M2+"',測試3='"+M3+"' WHERE ID = '"+MNO+"'")
=SQLEXEC(CON)
QQ=MESSAGEBOX("是否存檔?",4+32,"QA")
IF QQ=6
=SQLCOMMIT(CON)&&&& 事務交付
=MESSAGEBOX("修改成功")
ELSE
=SQLROLLBACK(CON)&&&& 事務回滾
ENDIF

SQLSETPROP(CON,"Transactions" ,1)&&&& 重新回到自動事務處理狀態

=SQLEXEC(CON, "SELECT * FROM TEST","temp")
SELECT TEMP
GO BOTTOM
THISFORM.TEXT1.VALUE=ID
THISFORM.TEXT2.VALUE=測試1
THISFORM.TEXT3.VALUE=測試2
THISFORM.TEXT4.VALUE=測試3
=SQLCANCEL(CON)
=SQLDISCONNECT(CON)
ELSE
=MESSAGEBOX("連線失敗")
ENDIF

syntech · 發表於: 星期二八月 03, 2004 6:08 pm 文章主題:

不知道所遇到的問題為何?

Bruce Lin · 發表於: 星期四八月 05, 2004 12:04 am 文章主題:

1.以上的寫法可執行,但連結的部份會不會有問題呢?
CON=SQLSTRINGCONNECT("driver=SQL Server;Server=192.168.1.1;Uid=qqq;pwd=qqq;database=DB1")

IF CON>0
.
.
.
=SQLCANCEL(CON)
=SQLDISCONNECT(CON)
ELSE
=MESSAGEBOX("連線失敗")
ENDIF

2.於form.init時,將所有資料取出=SQLEXEC(CON, "SELECT * FROM TEST","temp")
再將所有欄位帶入textbox.CONTROLSOURCE 各位也是這樣做的嗎?
3.承上,也是一開始就將所有資料取出的嗎?還是只取出部份資料呢?

望請各位前輩解惑,再次感謝~

elleryq · 註冊時間: 2007-06-21 文章: 768 第 8 樓

1. 連結字串的部份你要自己去修改~~~這個我們幫不了你~~~
2. 是的
3. 不一定,看情況

garfield · 發表於: 星期四八月 05, 2004 11:14 am 文章主題:

2.你可以做在 form.load , 這樣你的controlsource就可以在form設計的時候就指定好了.