如何使用ADO控件实现指定删除某一行的记录

Question

我最近在编程的时候遇到一个问题就是:我在使用ADO控件实现指定删除某一行的代码时程序运行结果为"Refresh方法的ladodc失败"我一直没有找到原因请大家帮帮忙!
 代码如下:
Private Sub Command2_Click()
Adodc1.RecordSource = "select * from zhushi where 日期='" & Text5.Text & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Recordset.Delete
Adodc1.Recordset.Update
Else
Dim pros As String
pros = MsgBox("无法找到所查找的记录", vbYesNo + vbInformation + vbOKOnly, "操作失败")
End If
End Sub我使用的是ADO控件连接ACCESS数据库
其中Command2_Click()连接的表的表名是zhushi

Answer 1

我刚刚试了一下你的方法"删除Adodc1.Refresh"虽然没有报错但是删除的却不是指定的那一行记录而是删除指针说指的当前的那一行记录.
  因此,我不能给你分,请谅解.并且非常感谢你的回复skskaas

Answer 2

数据库为SQL：
Adodc1.RecordSource = "delete from zhushi where 日期='" & Text5.Text & "'"
数据库为ACCESS：
Adodc1.RecordSource = "delete from zhushi where 日期=#" & Text5.Text & "#"

Answer 3

在Adodc1.RecordSource = "select * from zhushi where 日期='" & Text5.Text & "'"前面加上
Adodc1.CommandType = adCmdText

Answer 4

Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from zhushi where 日期='" & Text5.Text & "'"

Answer 5

感谢Leftie的回复,我试了试似乎在我电脑的VB6.0的这个版本的编辑环境中日期='" & Text5.Text & "'"与日期=#" & Text5.Text & "#"没有太大的区别?再次感谢您的回复感谢zzyong00以及clear_zero(clear_zero)的回复我试了试你们说的方法运行的结果还是删除的不是指定的那一行记录而是删除指针所指的当前所在的一行记录.
  因此,我不能给你分,请谅解.并且非常感谢你们的回复我想
是不是因为我在Access数据库的zhushi表中的类型选择的是日期/时间数据类型,而我在Text5中所输入的日期是(比如:在2008-8-1中的"-"符号我按的是数字键"+"号上面的"-"键)是不是这个原因使得在Adodc1.RecordSource = "select * from zhushi where 日期='" & Text5.Text & "'"
中系统无法识别Text5.Text 中所对应的日期类型数据以至于不能实现指定的删除而只是删除指针所指的当前所在的一行记录呢?
                               
                      请各位朋友帮帮忙呀!谢谢!

Answer 6

Private Sub Command1_Click()
On Error GoTo err
Label1.Caption = Format(CDate(Text1.Text), "yyyy-mm-dd")
If Label1.Caption = Format(Date, "yyyy-mm-dd") Then
Label1.Caption = "ok"
End If
Exit Sub
err:
End Sub
你看一下这个先例子吧，是日期类型的转换和比较，希望对你有些帮助

Answer 7

非常感谢nofishok的回复!我会认真对待的.我试了一下您给的程序但是我只是执行到Label1.Caption = Format(CDate(Text1.Text), "yyyy-mm-dd")不能执行IF语句
虽然我暂时不能找到原因.但是还是谢谢你的帮助!

Answer 8

在此我也很感谢wucanbi的意见.需要解释的是
我是第一次在Csdn里面提问题,如果有的朋友提出了非常宝贵的意见,但是还是没有解决我的问题.如果我没有给分,会不会让对方很失望呢?所以我有必要说明一下.请你不要误解.不知道如果一旦给了分这个问题又没有解决的话.是不是要重新拿出分来再次提问呢?也正因为如此,我才迟迟没有给分,也请各位不要误解了.
除此以外我还有许多不懂的地方,请大家多多包含
             谢谢!

Answer 9

在text1文本框中输入2007-8-27这种格式的字符串就可以了，我这个小程序的功能是：把你文本中输入的日期和系统日期进行比较，如果相同就输出“OK”
    希望你的问题可以早日解决

Answer 10

不好意思，我不怎么上csdn，所以刚看到你的问题，希望还来得及让你派上用场。

Answer 11

感谢nofishok的回复,我今天运行成功了.感谢你的支持.我相信我的问题会得到解决的.