VFP 愛用者社區

[syntech]

直接下SQL 命令.

[syntech]

SPT 方法 (未DEBUG):

[syntech]

上面兩種方式應該夠混口飯吃了. ^_^
不限於 MYSQL,
ORACLE,MSSQL,....... 只要支援 ODBC 就可以用.
有UNICODE 需求的,可以改用 VFP9 的 CursorAdapter.


此外,樓主應該更瞭解自己的武器,
還有很多沒有發揮出來.



其他就看個人造化.

[aforangel]

[quote="syntech"]直接下SQL 命令.


[code]

store sqlstringconnect("dsn=MySQL_TEST; userid=root; pwd=123456") to xconnhandle

SQLEXEC(xconnhandle, 'use successtime')
select invoice01
go top
if !eof()
do while !eof()
V1 = invoice01.F1
V2 = invoice01.F2
.
.
.

nC = "insert into successtime.invoice01(F1,F2,F3,....) values (?V1,?V2,?V3,...)"
sqlexec(xconnhandle,nC)

skip
enddo
endif

sqlcancel(xconnhandle)
sqldisconnect(xconnhandle)
[/code][/quote]

現正試用這方法, 已成功了一大步, 只有一個小問題, 括號內F1, F2, F3, 是實體FEILD NAME (例如: (name, tel, sex)), 還是像V1, V2, V3, 是一個變數, 如果是變數, 也要加上"?"在每一個變數前面嗎?

[aforangel]

[quote="syntech"]SPT 方法 (未DEBUG):

[code]

SET MULTILOCKS ON
store sqlstringconnect("dsn=MySQL_TEST; userid=root; pwd=123456") to xconnhandle

SQLEXEC(xconnhandle, 'use successtime')

SQLEXEC(xconnhandle, 'SELECT * FROM successtime.invoice01' ,'mysql_cursor')

=CURSORSETPROP("Buffering", 5 , 'mysql_cursor' )
=CURSORSETPROP("Tables",'successtime.invoice01','mysql_cursor')
=CURSORSETPROP("KeyFieldList",[自己看 SPT 說明..........],'mysql_cursor')
=CURSORSETPROP("UpdatableFieldList" ,[自己看 SPT 說明..........],'mysql_cursor')
=CURSORSETPROP("UpdateNameList",[自己看 SPT 說明..........],'mysql_cursor')
=CURSORSETPROP("SendUpdates" ,.t.,'mysql_cursor')


SELECT mysql_cursor
APPEND FROM invoice01.DBF
= TABLEUPDATE(.t. )

sqldisconnect(xconnhandle)
[/code][/quote]

假若, 我下一步也會研究一下這方法, 請問那裡可以找到SPT說明?

真的..萬二分感謝synetch 及 ckp 不厭其煩的解答, 在這裡, 真的學懂很多很多, 這裡就像是我們新手的天堂..

[ckp6250]

SPT的方法，資料量少時還好
若是大資料量就要考慮了

不過，多方比較，總是有益

[syntech]

那要看你怎麼定義"資料量大".
數千筆內,差異不大.
幾萬筆,大家都慢,慢多慢少而已.

不需要考慮這麼多,
前面說了,夠用了.

[kalok]

>有UNICODE 需求的,可以改用 VFP9 的 CursorAdapter.

unicode 是 vfp 的大缺點, cursoradapter 能解決多少?

[syntech]

[aforangel]

[quote="syntech"]直接下SQL 命令.


[code]

store sqlstringconnect("dsn=MySQL_TEST; userid=root; pwd=123456") to xconnhandle

SQLEXEC(xconnhandle, 'use successtime')
select invoice01
go top
if !eof()
do while !eof()
V1 = invoice01.F1
V2 = invoice01.F2
.
.
.

nC = "insert into successtime.invoice01(F1,F2,F3,....) values (?V1,?V2,?V3,...)"
sqlexec(xconnhandle,nC)

skip
enddo
endif

sqlcancel(xconnhandle)
sqldisconnect(xconnhandle)
[/code][/quote]

用這個方法, 已成功了, 把200多個紀錄全推上SQL SERVER......但還有一個問題未能解決...
nC = "insert into successtime.invoice01(F1,F2,F3,....) values (?V1,?V2,?V3,...)" 中 (F1,F2,F3)一定是要用FIELD的實名 (NAME,ADDRESS,FULL NAME)..但是, 這樣做, 不就很易超過255char? 可不可以像V1,V2,V3一樣, 用變數代體,但是我試用過, (?F1,?F2,?F3) values (?V1,?V2,?V3) 也是失敗的, 是有其他符號代替"?", 還是本來就一定要用實名...

[211482]

使用字串相加就沒有限制了
nC = "......" + ;
"......" + ;
"......"

[syntech]

"這樣做, 不就很易超過255char?"

沒有這個限制.

應該是 8K BYTE.
字串變數也是 8K BYTE

VFP 6/7 HELP:
http://msdn.microsoft.com/en-us/library/3kfd3hw9(v=vs.71).aspx

Maximum # of characters per command line 8,192

VFP 9 HELP:
http://msdn.microsoft.com/en-US/library/3kfd3hw9(v=vs.80).aspx

[syntech]

"可不可以像V1,V2,V3一樣, 用變數代體,但是我試用過, (?F1,?F2,?F3) values (?V1,?V2,?V3) "


再怎麼亂寫也應該是

(&F1,&F2,&F3)　　　　　


XD

[jerryclt]

請教一下諸大德,

小弟在 win7 下直接安裝了 MySQL Community 5.6.13.0
然後在 Command 視窗下 mysql -u root -p
再給予一個密碼後,
出現了 mysql>_

接著在VFP內輸入如下:
nSqlHandle=0
cSqlDriver="MySQL ODBC 5.2 Unicode Driver"
cSqlserver="192.168.1.101"
cSqlUser="root"
cSqlPwd="oo_xx_oo_xx"
cSqlDbc="lotodatabase"
cSqlstring="DRIVER="+cSqlDriver+";SERVER="+cSqlServer+";UID="+cSqlUser+";PWD="+cSqlPwd+;
";DATABASE="+cSqlDbc
=SQLSETPROP(0,"DispLogin",3)
nSqlHandle=SQLSTRINGCONNECT("&cSqlString.")

結果 nSqlHandle 都是-1
是不是小弟哪裡搞錯了?[/img]

[ckp6250]

再怎麼亂寫也應該可能或許是這一行有問題
cSqlDriver="MySQL ODBC 5.2 Unicode Driver"

請先確認一下這個 Driver 是否正確?