您的位置:程序门 -> vb -> 数据库(包含打印,安装,报表)



msflexgrid控件中的保存不到数据库了!急---啊


[收藏此页] [打印本页]选择字色:背景色:字体:[][][]


msflexgrid控件中的保存不到数据库了!急---啊
发表于: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
运行后提示“保存成功!”但数据库中没有记录增加,请问什么原因,数据库中的主键是“车牌号”,其他设置均允许空,请高手指点,在线等
发表于:2007-05-26 18:45:291楼 得分:0
rs.addnew
rs!车牌号   =   trim(combo1.text)
rs!商品车公司   =   trim(combo2.text)
with   msflexgrid1
rs!装载率=.textmatrix(2,   1))
。。。。 '(中间省去)
end   with
rs.update         '---> 加上这句
发表于:2007-05-26 18:46:372楼 得分:0
也可以这样保存:
cn.EXECute   "insert   into   tablename(...)   values(...) "
发表于:2007-05-26 19:58:113楼 得分:0
to   leftie(左手,为人民币服务)   ,加上了也没用的
还有值比较多的,用insert好像写起来太麻烦了吧,有没有其他地方可能会出问题啊?
发表于:2007-05-26 20:11:314楼 得分:0
原来是要加   rs.updatebatch     真郁闷才试出来,谢谢to   leftie(左手,为人民币服务)了
不过我还是不清楚为什么rs.updatebatch为什么就可以,两个有什么区别吗?


快速检索

最新资讯
热门点击