VFP 愛用者社區

[zfgg]

有一个grid1表格与本地数据表绑定在一起，共有10个字段，需要将本地表的内容插入到远端服务器SQL数据库表中，这个表有13个字段，现请教如何做？

我查过了已往的发表的内容，讲的是二个表的字段要相等。

[elleryq]

這好像不應該是問題啊~~
通常少的要塞到多的,一定是沒問題
多的要塞到少的裡面去才會有問題~~

用 insert into 應該就可以搞定了啊~~

[zfgg]

我用这个方法试了下categories表，好象没有变化：
SQLEXEC(handle,"select categoryid as id ,categoryname,description from categories","mycursor")
SELECT mycursor
CURSORSETPROP("Tables","categories","mycursor")
CURSORSETPROP("KeyFieldList","id","mycursor")
CURSORSETPROP("UpdatableFieldList" ,"id, categoryname,description","mycursor")
CURSORSETPROP("UpdateNameList"," id categories.categoryid,categoryname categories.categoryname,"+;
"description categories.description","mycursor")
CURSORSETPROP("SendUpdates" ,.t.,"mycursor")
我有一个本地的表'"dluser" 内容，需要加入到SQL表cf中，应如何写，请给我指导。

[zfgg]

以上问题还是请哪位大师帮助我啊！是不是用循环语句，读一条记录，然后再插入一条记录到sql的表中，直至将多条记录插完？

[syntech]

請問code就這麼多嗎?
可是我覺得這只有設定spt cursor而已.

再來應該是 append from, insert -sql , append blank,....
把dluser 的記錄加入mycursor中,
最後再做 tableupdate()作後端資料庫更新

[zfgg]

Syntech大师：
我将二个表的结构写出来，其目 的是将本地表（dluser）的1到若干条记录数据一次加入到SQL Server cftable 表中。但我不知道用何种方法实现。你能否在下面的sqlconnect() 语句格式中帮我守成代码。谢谢！

附二个表的结构：
1,dluser本地表结构：(10个字段)
xmdm C 14
xmmc C 30
xmxgg C 20
xmxdw C 4
ykdj Numeric 8,2
ypsl int 4
ypjer Numeric 8,2
dosage C 20
touse C 20
dayuse C 20

2,SQL Server 数据库的cftable表结构：(16个字段)
Tableid int 4
Cfid int 4
xmdm C 14
xmmc C 30
xmxgg C 20
xmxdw C 4
ykdj Numeric 8,2
ypsl int 4
ypjer Numeric 8,2
dosage C 20
touse C 20
dayuse C 20
kydate datetime 8
fytime datetime 8
brname C 10
fyrr C 10

我用的连接数据库的语句是：
handle=sqlconnect(SQLDSN_LOC,SQLUSER_LOC,SQLPWD_LOC)
...
sqldisconnect(handle)

请问如何将本地表（dluser）的若干条记录数据加入到SQL Server cftable 表中。

[garfield]

可用SPT的方式直接將資料更新後端資料庫.
因為不知道你所說的table的Primarykey是那個欄位, 就依你的情況模擬了以下2個table
1.本地端的table , table別名為 localtable ,其中pro_no C(10)為Primarykey ,欄位如下所示:
pro_no C(10) , name C(30) , qty N(10,2)
2.後端資料庫的table , table別名為 rmtable ,其中p_no C(10)為Primarykey ,欄位如下所示:
p_no C(10) , allname C(30) , quantity N(10,2)

**************
狀況1, 將本地端資料完全用新增(insert)的方式存入後端資料庫
handle=sqlconnect('DRIVER=SQL Server;SERVER=win2ksqlsrv;DATABASE=mydatabae;UID=sa;PWD=;')
sele localtable
scan
sqlexec( handle ,'insert into rmtable ( p_no,allname,quantity) values (?localtable.pro_no,?localtable.name,?localtable.qty)')
endscan
sqldisconnect(handle)

**************
狀況2, 將本地端資料完全用更新(update)的方式存入後端資料庫, 暫不判斷後端資料庫的資料是否真的存在.
handle=sqlconnect('DRIVER=SQL Server;SERVER=win2ksqlsrv;DATABASE=mydatabae;UID=sa;PWD=;')
sele localtable
scan
sqlexec( handle ,'update rmtable set allname=?localtable.name,quantity=?localtable.qty where p_no=?localtable.pro_no')
endscan
sqldisconnect(handle)

********************
以上方法原理說給你聽了, 其它的就要靠你自己去研究, 祝你成功.

[zfgg]

谢谢 Garfield！