| 发表于:2007-05-26 17:15:19 楼主 |
代码如下: private sub command3_click() dim strsql as string set rs = new adodb.recordset strsql = "select * from csh优化配载查询表 " rs.cursorlocation = aduseclient rs.open strsql, cn, adopendynamic, adlockbatchoptimistic rs.addnew rs!车牌号 = trim(combo1.text) rs!商品车公司 = trim(combo2.text) with msflexgrid1 rs!装载率=.textmatrix(2, 1)) 。。。。 '(中间省去) end with msgbox "保存成功! ", vbokonly + vbexclamation, "提示 " end sub 运行后提示“保存成功!”但数据库中没有记录增加,请问什么原因,数据库中的主键是“车牌号”,其他设置均允许空,请高手指点,在线等 |
|
|
|
|