VFP 愛用者社區

[sthuang66]

請教各位高手!!我VFP做一個Form要填入MSSQL2012資料庫時,當寫入欄位超過14個時!就會跳錯誤訊息!下面是我的code,當14個欄位時可以正常寫入!我的form有九項是要填入!!其他8項要填入空白!!!當我加到15個欄位時就會跳錯誤訊息
K1=THISFORM.TEXT1.VALUE
K2=THISFORM.TEXT2.VALUE
K3=THISFORM.TEXT3.VALUE
K4=THISFORM.TEXT4.VALUE
K5=THISFORM.TEXT5.VALUE
K6=THISFORM.TEXT6.VALUE
K7=THISFORM.TEXT7.VALUE
K8=THISFORM.TEXT8.VALUE
K9=THISFORM.TEXT9.VALUE

SQLEXEC(&CONN,"INSERT INTO [base].[DBO].[data] (No,ID,Name,Sex,Birthday,Number,BirthdayEn,BirthdayCt,;
date,Tel,Height,Weight,Introducer,Blood);
VALUES ('"+K1+"','"+K2+"','"+K3+"','"+K4+"','"+K5+"','"+K6+"','"+K7+"','"+K8+"','"+K9+"',' ',' ',' ',' ',' ')")

[foxy]

這個 可以嗎?
TEXT TO lctxt textmerge noshow pretext 15
INSERT INTO [base].[DBO].[data] (No,ID,Name,Sex,Birthday,Number,BirthdayEn,BirthdayCt,
date,Tel,Height,Weight,Introducer,Blood)
VALUES('<<k1>>','<<k2>>','<<k3>>','<<k4>>','<<k5>>','<<k6>>','<<k7>>','<<k8>>','<<k9>>','','','','','')
endtext

SQLEXEC(&CONN,m.lctxt)

[syntech]

方法A:
cSQLCMD = " INSERT INTO [base].[DBO].[data] (No,ID,Name,Sex,Birthday,Number,BirthdayEn,BirthdayCt, "
cSQLCMD =cSQLCMD+ " date,Tel,Height,Weight,Introducer,Blood) "
cSQLCMD =cSQLCMD+ "VALUES "
cSQLCMD =cSQLCMD+ "('"+K1+"','"+K2+"','"+K3+"','"+K4+"','"+K5+"','"+K6+"','"+K7+"','"
cSQLCMD =cSQLCMD+K8+"','"+K9+"',' ',' ',' ',' ',' ')"

SQLEXEC(&CONN,cSQLCMD)



方法B:
cSQLCMD = " INSERT INTO [base].[DBO].[data] (No,ID,Name,Sex,Birthday,Number,BirthdayEn,BirthdayCt, "
cSQLCMD =cSQLCMD+ " date,Tel,Height,Weight,Introducer,Blood) "
cSQLCMD =cSQLCMD+ "VALUES "
cSQLCMD =cSQLCMD+ "(?K1,?K2,?K3,?K4,?K5,?K6,?K7,?K8,?K9,' ',' ',' ',' ',' ')"

SQLEXEC(&CONN,cSQLCMD)


------
兩法的原因可以自己找答案

[sthuang66]

謝謝兩位的熱心!!我試試

[sthuang66]

謝謝大家的幫助!!果然可以了!!萬分感激