数据窗口共享的问题
子数据窗口共享主数据窗口的数据,数据显示出来了,更新子数据窗口中的数据进数据库,没有报错信息,但是数据未更新入数据库
目的是为了不同的数据库系统之间数据交换,如果用两个datastore实现数据共享可以么?
代码如下:
string ls_name
datastore lds_store,lds_st_update
disconnect;
fn_connect_store();
//lds_store = create datastore
dw_1.dataobject = "d_product_class"
st_1.text = "ÕýÔÚretrieveÊý¾Ý"
dw_1.settransobject(sqlca)
dw_1.retrieve()
i_dst = create transaction
i_dst.DBMS = "ODBC"
i_dst.AutoCommit = False
i_dst.DBParm = "ConnectString='DSN=query;UID=;PWD='"
connect using i_dst;
If i_dst.sqlcode <> 0 then
Messagebox("Ä¿±êÊý¾Ý¿âÁ¬½Ó´íÎó",i_dst.sqlerrtext)
Return -1
End If
dw_2.dataobject = "d_st_pro_class"
dw_2.settransobject(i_dst)
//dw_2.retrieve()
if dw_1.sharedata(dw_2) <> 1 then
messagebox("share date error","retry!")
return -1
end if
if dw_2.update() <> 1 then
messagebox("updateÊý¾Ýµ¼Èë³ö´í","ÇëÖØÐÂupdate!")
rollback;
return -1
end if
commit using i_dst;
messagebox("update success","ok")
disconnect using sqlca;
disconnect using i_dst;
destroy i_dst;
destroy lds_store;
destroy lds_st_update;