 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
小柯
註冊時間: 2003-11-27
文章: 78
第 1 樓
|
 發表於: 星期四 二月 17, 2005 11:23 am 文章主題: 請問：VFP如何讀取存在SQL內的圖形資料（Image) |
 |
|
| 如標題所問，請先進們解答，謝謝 |
|
| 回頂端 |
|
 |
goto-dream
註冊時間: 2004-05-11
文章: 909
第 2 樓
|
| 發表於: 星期五 二月 18, 2005 10:47 am 文章主題: |
|
|
你看看是不是這各!!!
轉貼更新程式
| 代碼: | 设计思路:
一,前台建一个text文件{
1行:servername=你的服务器IP &&服务器名
2行:updatecomputer=\\mis\系统更新\ok.exe&&以前在内部网更新路经,现无用到
3行:兴科系统(V43.0) }&&版本号
二,后台建一表version表(版本号,系统程序,更新程序 )3个字段,首先运行更新程序,检测到新版本号下载系统程序:涵数strtofile(),成功后写回版本号到text文件
SET DELETED on
SET NOTIFY off
SET STATUS off
SET TALK off
SET safety OFF
SET STATUS BAR OFF
SET DECIMALS TO 4
set cons off
SET SYSMENU off
PUBLIC path0,path1,path2,path3,path4,path5,path6,path7,handle,connect_string
path0=LEFT(SYS(16),RAT("\",SYS(16)))
path1=path0+'ok.exe'
path2=path0+'program\'
SET PATH TO &path2,&path0
=SQLSETPROP(0,'DispLogin', 3)
CREATE CURSOR detect(servername c(50))
SELECT detect
APPEND FROM servername.txt TYPE sdf
GO 1
c_server=ALLTRIM(detect.servername)
c_server=STRTRAN(c_server,'servername=','')
GO 2
c_updatecomputer=ALLTRIM(detect.servername)
c_updatecomputer=STRTRAN(c_updatecomputer,'updatecomputer=','')
n_at1=AT('\',c_updatecomputer,1)
n_at2=AT('\',c_updatecomputer,3)
c_computer=SUBSTR(c_updatecomputer,n_at1+2,n_at2-n_at1-2)
GO 3
c_version=ALLTRIM(servername)
c_connect="driver=sql server;server=&c_server;uid=sa;pwd=;database=erp"
handle=SQLSTRINGCONNECT(c_connect)
IF handle<0
WAIT windows '连接参数不正确,请与电脑中心联系'
return
ENDIF
ok=SQLEXEC(handle,"select version from 版本","version")
IF ok<1
WAIT windows "不能连接数据库"
quit
ENDIF
IF UPPER(ALLTRIM(version.version))!=UPPER(ALLTRIM(c_version)).or.!FILE("ok.exe")
ok=SQLEXEC(handle,"select * from 版本","version")
IF ok<1
WAIT windows "网络连接失败"
return
ENDIF
c_path="&path0.ok.exe"
IF STRTOFILE(updatefile,c_path)<1
WAIT windows "检测到新版本但更新失败" timeout 2
return
ELSE
WAIT windows "检测到新版本并已更新" timeout 2
endif
SELECT detect
GO 3
replace servername WITH version.version
c_mmm="COPY TO &path2.servername.txt type sdf"
&c_mmm
ENDIF
aa="RUN /n "+path1
&aa
quit |
_________________
福隆昌淨水有限公司--淨水器的專家,淨水器,飲水機,濾心!!
想了解更多，您可上幸福雞湯組.找尋!!丁澐瑄.老師.
愛作夢 |
|
| 回頂端 |
|
|
小柯
註冊時間: 2003-11-27
文章: 78
第 3 樓
|
| 發表於: 星期五 二月 18, 2005 4:32 pm 文章主題: |
|
|
我不是問VFP與SQL的連接問題,是如何調用已存在SQL內的圖形資料(IMAGE)來VFP使用,甚至能更進一步將之另存為*.JPG檔放在用戶端以作他用
謝謝 |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
