VFP 愛用者社區

[saint]

我個人覺得也許可以試試下面的方式，只是不知道DBF是否有支援，已經很久沒有用DBF

[syntech]

[syntech]

如果要用正常的sql server,又不想花錢,
明明就有 m$ sql server express 可用呀.
也不見得就要用mysql吧,
這應該也是一種迷思. ^^;;;

vfp 上移精靈也可以用.
m$ sql server express 2012 提供的容量也夠中小型企業使用.
雖然接 php 比較麻煩, m$ 故意把 php driver 寫爛,
但是應用上是差不多的.

[syntech]

[ckp6250]

saint 的語法不太保險
會有資料失漏的可能

[ckp6250]

[syntech]

因為想到"免費",就會想到 LINUX, MYSQL,PHP,Apache web server,OPEN OFFICE, ^_^

M$ 從 MSDE 一路放寬功能限制,大家還是MYSQL, MYSQL 的喊個不停.

[ckp6250]

[aforangel]

我想嘗試寫程式送data上SQL, 這樣能嗎?

store sqlstringconnect("dsn=MySQL_TEST; userid=root; pwd=123456") to xconnhandle
if xconnhandle < 0
else
SQLEXEC(xconnhandle, 'use successtime')
select invoice01
go top
if !eof()
nN = fcount()
nM = ""
do while !eof()
nM = ""
for nI = 1 to nN
nA = field(nI)
nB = vartype(&nA)
do case
case nB == "C"
nA = "'"+alltrim(&nA)+"'"
case nB == "D"
nA = dtoc(&nA)
case nB == "T"
nA = dtoc(&nA)+" 12:00:00 AM"
case nB == "N"
nA = alltrim(str(&nA))
otherwise
endcase
nM = nM + nA +","
next nI
nL = len(nM)-1
nM = left(nM,nL)
nC = "insert into successtime.invoice01 values ("+nM+")"
sqlexec(xconnhandle,nC) **執完後沒error, 但也沒新增檔案, 請問要怎改

skip
enddo
endif
endif
sqlcancel(xconnhandle)
sqldisconnect(xconnhandle)

[ckp6250]

建議不要使用 dsn 的方式
所有的欄位植,都比照文字欄位, 前後都加上 "'"

[aforangel]

do while !eof()
nM = ""
nC = ""
for nI = 1 to 4
nA = field(nI)
nB = vartype(&nA)
do case
case nB == "C"
nA = "'"+alltrim(&nA)+"'"
case nB == "D"
nA = "'"+dtoc(&nA)+"'"
case nB == "T"
nA = "'"+dtoc(&nA)+" 12:00:00 AM"+"'"
case nB == "N"
nA = "'"+alltrim(str(&nA))+"'"
otherwise
endcase
nM = nM + nA +","
next nI
nL = len(nM)-1
nM = left(nM,nL)
nC = "insert into successtime.invoice01 (inv_no,inv_date,cust_code,custlname) values (" + nM +")"
y = sqlexec(xconnhandle,nC)
?y
skip
enddo

ckp大大, 依你所言, 全部比照文字欄位, 前後加上"'", 成功了....但是, ...為何如果這個dbf有5筆record, 每一次執行, 也只能把第一筆record 推上sql server, 永遠第一筆record傳回給 y 是1, 其餘4筆紀錄都傳回-1....

另請教..為何我在原文有做縮行, 送出之後都變並排, 害大家看得這麼辛苦

[ckp6250]

不要一筆一筆上傳，這樣效率太差
把所有 record 整理成一個字串，
再上傳

像這樣子
nc="insert into successtime.invoice01 (....) values (....),(....),(....),(....)"
sqlexec(xconnhandle,nC)

一次搞定!

建議：先別急著上移資料，
把 Mysql 的一些基本特性都看一遍吧

[saint]

[saint]

ckp 的解法是一種
我常做的方式是，把它們整理成一個 filename.sql
再利用

[ckp6250]