您的位置：程序门 -> vb -> 基础类

☆怎样对datagrid中的数据进行更新☆

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

☆怎样对datagrid中的数据进行更新☆

发表于：2007-05-11 10:14:20 楼主

有两个问题：
1。当对datagrid1中的数据进行添加，当添加一行而未输入任何数据，再点添加时会出来提示：“无法插入空行，行必须至少有一个列值集！”请问该如何对datagrid1中的数据进行实时更新，有人说用 ado.updatebatch，可好象没用，代码：private sub cmdadd_click（)
adodc1.recordset.updatebatch
adodc1.recordset.addnew
也没有效果！~有人说利用datagrid1中的error事件对其错误进行屏蔽。用代码：private sub datagrid1_error（byval dataerror as integer, response as integer)
response = 0
end sub
可还是不能屏蔽！！~~我希望能按两次添加或删除都能实现，即按添加后能及时更新数据库~~
2。在按一定条件查询过数据库后，datagrid控件中显示查询结果，当要通过按command命令（显示全部）返回显示数据库中原有的数据该如何设置！！？~~
代码：
private sub command3_click（)
adodc1.recordsource = vb.app.path & "零件功能库 " & current & ".mdb "
end sub
为何没有效果？

解决下燃眉之急。。谢谢了。。。。时间不多了。。。

发表于：2007-05-11 10:41:451楼得分:0

不如直接用代码来实现好了！

发表于：2007-05-11 13:40:562楼得分:0

第二个问题已经解决。。。第一个。。。怎么解决呢？？？

发表于：2007-05-11 13:53:573楼得分:0

判断你加的数据，如果是null，则改成空格，然后addnew

发表于：2007-05-11 14:25:494楼得分:0

那具体代码该怎么写呢？on error goto 又是怎么个用法？
private sub cmdadd_click（)

adodc1.recordset.addnew
on error goto b：
b：msgbox "请先输入数据 ",, "提示 "

end sub
这样的代码，但按添加时，列表中会添加一行，但同时又会有提示出现，而且当多次按添加而未输入数据后，还是会出错！！~

发表于：2007-05-11 18:26:175楼得分:0

有人帮个忙不？？？？愁。。。/_\~~

发表于：2007-05-11 22:15:576楼得分:0

把datagrid控件的allowdelete allowupdate allowaddnew属性都设置为true
然后操作完成后adodc.update一下就可以了！

发表于：2007-05-11 22:24:027楼得分:0

你应该这么写啊

dim rs as new adodb.recordset

其中rs是你的数据库记录集

记住：你还要连接数据库哦！！

private sub cmdadd_click（)

if not rs.eof = true then

adodc1.recordset.addnew

end if

其中rs是你的数据库记录集

发表于：2007-05-11 23:26:418楼得分:0

按ls的。。。当点按扭后出现“对象关闭时不允许操作”的提示。。。另--怎么知道原有的数据库是否允许空行~~！！！allowdelete allowupdate allowaddnew属性我都设置为true 的，ado.update之后还是一样。。。。

下一篇：求vb中，在file 读写操作中功能等于vc的file.flush（)的函数
上一篇：为什么在启动项中会删除自身失败

其他资讯