| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2628 人关注过本帖
标题:VB+access,在查找后得到的数据,如何删除?每次都是删除了第一条
只看楼主 加入收藏
jamesh
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2004-11-13
收藏
 问题点数:0 回复次数:4 
VB+access,在查找后得到的数据,如何删除?每次都是删除了第一条
VB+access,在查找后得到的数据,如何删除?每次都是删除了第一条
我的查找程序: Private Sub find_Click() Dim rs As ADODB.Recordset If Text1.Text Like "[A-Z]####" <> True Then Text1.SetFocus Text1.Text = "" Exit Sub End If openDB Set rs = New ADODB.Recordset rs.Open "select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1, adOpenKeyset, adLockPessimistic ' rs.find "select * from jbinfo where ygbh='" & Text1.Text & " ' ", mydb1, adSearchBackward If rs.EOF And rs.BOF Then Text1.SetFocus Text1.Text = "" MsgBox "该员工编号不存在,请重新输入!", vbOKOnly + vbExclamation, "警告" Exit Sub End If ygxm.Text = rs!ygxm ygbh.Text = rs!ygbh bm.Text = rs!bm xb.Text = rs!xb csny.Text = rs!csny jg.Text = rs!jg cjgz.Text = rs!cjgz jrgs.Text = rs!jrgs byxx.Text = rs!byxx xl.Text = rs!xl zy.Text = rs!zy bz.Text = rs!bz cmddel.Enabled = True cmddel.SetFocus End Sub
我的删除程序: Private Sub cmddel_Click() Dim response As Integer response = MsgBox("确定要修改这条记录?", vbYesNo, "警告") If response = vbNo Then Exit Sub With rs .Delete .MovePrevious If .EOF Then .MoveLast If .BOF Then .MoveFirst mydb1.Close End With display find.SetFocus Text1.Text = "" End Sub
搜索更多相关主题的帖子: access 数据 TABLE 
2004-11-13 04:48
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
收藏
得分:0 
Rs.Delete是删除当前记录

天津网站建设 http://www./
2004-11-13 11:03
jayson
Rank: 1
等 级:新手上路
帖 子:46
专家分:0
注 册:2004-11-4
收藏
得分:0 

应该可以设指针指向具体某一条记录的,我记得不太清楚了,好像是rs.CursorLocation = adUseClinet,但是删除就不知道怎样做了,我也试过好多种方法,不行!!


2004-12-16 16:20
163pony
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2004-12-1
收藏
得分:0 
干吗不先定位到你需要删除的记录在进行呢!DELETE没错呀!

我爱论坛!
2004-12-17 21:18
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
rs.find "select * from jbinfo where ygbh='" &amp; Text1.Text &amp; " ' ", mydb1, adSearchBackward
  好像Recordset的find方法的条件是直接“ygbh='" &amp; Text1.Text &amp; " ' “这么写就可以,因为select * from jbinfo where ygbh='" &amp; Text1.Text &amp; " ' ", mydb1你这里就返回了记录集对象,find方法是在当前记录集里查找纪录。应该不需要在返回一个记录集对象了,所以可以“ygbh='" &amp; Text1.Text &amp; " ' “这么写查询条件,而且后面好像是少参数吧?记不太清楚了。
2004-12-17 22:13
快速回复:VB+access,在查找后得到的数据,如何删除?每次都是删除了第一条
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.034261 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved