编程论坛 → VB.NET论坛

.net删除问题

lhj56459897 发布于 2017-07-28 12:32， 1875 次点击

我的数据表里最后一个字段是文本类型,存的时候是用now()存的日期型数据,2017/7/27 20:27:37,今天是28号,我想把不同于今天日期的所有记录删除掉怎么写SQL语句
  Dim STRcon As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Application.StartupPath + "\vb1\KScount.mdb" ';Persist Security Info=False"
        Dim myConn As OleDbConnection = New OleDbConnection(STRcon)
        myConn.Open()

        '删除按条件查找出来的记录

        Dim STRdle As String = "delete from Tcount where 姓名='" & TextBox1.Text & "'"
            就是上面这条语句怎么写可以判断出不是今天的日期......
        Dim mycommand1 As New OleDbCommand(STRdle, myConn)
        mycommand1.ExecuteNonQuery()
注:Tcount是KScount.mdb中的一个表

3 回复

#2

qingcong332017-07-28 13:35

delete from Tcount where 姓名 not in ('" & TextBox1.Text & "')

#3

lhj564598972017-07-28 15:45

2楼,谢谢,但还有一个小问题delete from Tcount where 日期 not in ('" & today & "') ，因为存的时候是表的最后一个字段是now()存的，值是例如这般:2017/7/27 20:27:37,用这条语句把今天的也删除了,要实现的是把不同于今天的删除,today的值是例如:2017/7/27这样的

解决了 Dim Strcom As String = "delete from Tcount where 日期 < '" & Today & " 00:00:00 '" /字符串00前有一空格

[此贴子已经被作者于2017-7-28 16:10编辑过]

#4

lhj564598972017-07-28 16:25

Dim Strcom As String = "delete from Tcount where 日期 not between '" & Today & " 00:00:00' and '" & Today & " 23:59:59'"
00 和23前面都有一空格,这样就完美的实现了初衷。。不在今天日期之内的全部删除,谢谢二楼给了启发

[此贴子已经被作者于2017-7-28 16:27编辑过]

1