dde后更新数据库出错!

newstone 2003-08-11 12:05:24

本人做了一个从excel中取数据到Pb中(数据窗口控件为dw_1,该控件关联d_xbs).代码如下:
dw_1.SetTransObject(sqlca)
dw_1.retrieve()

//一些变量设置.....

//*************打开通道
handle_2=Handle(w_dde)
handle_1 = openchannel("excel",path,handle_2)

string data[]
int li_rtn

st_datetime.text=string(Today(),"m/d/yy hh:mm")

for ll_row = 2 to 5
//从excel读数据
getremote("r"+String(ll_row)+"c1",data[1],handle_1,handle_2)

getremote("r"+String(ll_row)+"c2",data[2],handle_1,handle_2)

getremote("r"+String(ll_row)+"c3",data[3],handle_1,handle_2)

getremote("r"+String(ll_row)+"c4",data[4],handle_1,handle_2)

getremote("r"+String(ll_row)+"c5",data[5],handle_1,handle_2)

getremote("r"+String(ll_row)+"c6",data[6],handle_1,handle_2)

getremote("r"+String(ll_row)+"c7",data[7],handle_1,handle_2)

//在数据窗口中写入记录

ls_var=dw_1.insertrow(0)//42

dw_1.setitem(ls_var,"reqname",data[1])//44
dw_1.setitem(ls_var,"sitenum",long(data[2]))//45
dw_1.setitem(ls_var,"devicenum",long(data[3]))//46
dw_1.setitem(ls_var,"pointtype",data[4])//47
dw_1.setitem(ls_var,"pointind",long(data[5]))//48
dw_1.setitem(ls_var,"seqnum",data[6])//49
dw_1.setitem(ls_var,"useraddr",data[7])//50
dw_1.ScrollToRow(ls_var)//51
next

li_rtn=dw_1.update()
if li_rtn=1 and SQLCA.SQLNRows > 0 THEN
COMMIT USING SQLCA;
ELSE
messagebox("提示","当前数据提交数据库时出错")
end if
数据可以取到dw_1控件中显示出来,但不能更新后台的access数据库(d_xbs的数据源),运行程序是提示:datawindow does not have UPDATE capability!然后出现:messagebox的信息!
请问怎么回事!

...全文