如何查找和自动增加或减少女士接取2007年在VB6中的数据

你写你的问题时，需要更加明确。请包括代码，您正在使用和为什么它不工作的详细交代。包括你得到的错误消息。

在一般情况下，这听起来像你想寻找一个关键值数据库，然后更新quanitity的价值。这是一种很常见的任务，你也许可以找到了很多关于它是如何使用Google或代码项目在这里寻找文章的文章。唯一的困难，我可以看到的是，你在VB6中的编码。这是一个严格的要求呢？ VB6是一种古老的语言。如果你有选择的话，你真的应该看看VB.NET。 Visual Studio Express的免费版本的IDE。你会发现很多的文件和文章，以帮助您用新的语言。

] VB6数据访问的教程，可以帮助指导你一些谷歌的结果

|我认为维生素B6点到MSAccess2007版本不支持Himachandra:........我已经尝试该......更好地使用老版本的MSAccess
pengeniso

亲爱的，很抱歉这么晚回应，感谢您的帮助，我的试验和错误后，我终于找到了答案。此编码，我做了，也许我的朋友有一个解决方案，更简单，更容易？---------------------------------------------------------------------昏暗的DB作为ADODB.Connection暗淡RS作为936私人小组Command1_Click（）SLine作为字符串暗淡作为字符串昏暗的编曲（）为输入打开（App.Path"\Hasil.txt"）＃1这样做虽然没有EOF（1）线路输入＃1，sLine如果sLineLT，GT;"ARR=斯普利特（sLine，"|"）结束如果如果rs.RecordCountLT，GT;0，则rs.MoveFirst rs.Find"编号='"修剪（ARR（0））"'" 如果rs.AbsolutePositiongt;0 如果RS！desc1=修剪（ARR（1））RS！数量=（rs!数量）1其他 RS！数量=（rs!数量）-1 结束如果rs.Update结束如果结束如果rs.MoveNext循环关闭1＃rs.MoveFirst结束小组私人小组Command2_Click（）卸下我的结束小组私人小组的Form_Load（）StrDB作为字符串暗淡ChDriveApp.PathCHDIRApp.Path设置DB=新ADODB.ConnectionstrDB=App.Path"\db1.mdb的"db.Open"提供MSDATASHAPE;数据提供=Microsoft.Jet.OLEDB.4.0;数据源="strDB"，坚持安全信息=假"设置RS=936 rs打开"选择*从表顺序编号"，DB，adOpenDynamic，adLockOptimisticrs.Requery设置DataGrid1.DataSource=RSfrmDataEnv.Caption=rs.RecordCount结束小组-----------------------------------------------------------------------------非常感谢你，-最好的问候，hariyanto