如何解决如果VB.Net中的日期发生变化,如何重设自动编号?
我已经在文本框(TxtNumb.Text)中创建了自动编号,如果数据库为空,它将显示REG01,如果有任何内容,则文本框将显示REG02,REG03,依此类推。
程序中有一个文本框,用于显示日期,格式为TxtDate.Text = Date.Now.ToString("dd MMM yyyy")
。问题是如果日期更改(文本框再次变为REG01),如何重置自动编号?
以前我已经做到了,但是如果第二天没用,下面是我创建的代码:
Sub AutoNumb()
Call Connection() `This section is for connecting to the MS.Access DB`
dbCommand = New OleDbCommand("select Kd_Testing from tblTesting order by Kd_Testing desc",dbConn)
dataReader = dbCommand.ExecuteReader
dataReader.Read()
If Not dataReader.HasRows Then
TxtNumb.Text = "REG01"
Else
TxtNumb.Text = "REG" + Format(Microsoft.VisualBasic.Right(dataReader("Kd_Testing"),2) + 1,"00")
End If
End Sub
以前,谢谢您的回答。
#Edit,添加
我想通过将其保存到数据库来创建程序,如下例所示,我上面创建的代码只能对其自动编号,例如:REG01,REG02,...,REG05等。
|Kd_Testing|Name_Testing |Date_Testing|
|REG01 |Testing 01,day 20th|20 Aug 2020 |
|REG02 |Testing 02,day 20th|20 Aug 2020 |
|REG01 |Testing 01,day 21th|21 Aug 2020 |
|... |... |... |
|REG10 |Testing 10,day 21th|21 Aug 2020 |
|REG01 |Testing 01,day 22th|22 Aug 2020 |
然后在REG99期间,该程序将收到错误消息,因此如果日期更改,则我想使它出错,然后Kd_Testing重新开始到REG01。
解决方法
修改您的SQL以仅检索日期为今天的记录,
Sub AutoNumb()
Call Connection() *This section is for connecting to the MS.Access DB*
dbCommand = New OleDbCommand("select Kd_Testing from tblTesting where Date_Testing='" & Date.Now.ToString() & "' order by Kd_Testing desc",dbConn)
dataReader = dbCommand.ExecuteReader
dataReader.Read()
If Not dataReader.HasRows Then
TxtNumb.Text = "REG01"
Else
TxtNumb.Text = "REG" + Format(Microsoft.VisualBasic.Right(dataReader("Kd_Testing"),2) + 1,"00")
End If
End Sub
您可能需要调整Date.Now,以获取将日期存储在Date_Testing
中的正确格式。
使您的连接保持在使用方法的本地。
在vb.net中通常不需要Call关键字。
连接需要关闭和拆除。需要处理命令。即使有错误,Using...End Using
块也会为您处理。
我在您的Select语句中添加了Where子句,并带有用于今天日期的参数。
请启用“严格选项”。这是一个两部分的过程。首先针对当前项目-在解决方案资源管理器中,双击我的项目。选择左侧的编译。在Option Strict下拉菜单中,选择ON。第二个用于将来的项目-转到“工具”菜单->“选项”->“项目和解决方案”->“ VB默认值”。在Option Strict下拉菜单中,选择ON。这样可以避免在运行时出现错误。
您将看到数据类型可能有问题。我展示了如何使用.net方法而不是旧的vb6方法。我还展示了如何使用Visual Studio 2015 Forward中可用的插值字符串。
Sub AutoNumb()
Using cn As New OleDbConnection("Your connection string"),dbCommand As New OleDbCommand("select Kd_Testing from tblTesting Where Date_Testing = @Date order by Kd_Testing desc",cn)
dbCommand.Parameters.Add("@Date",OleDbType.VarChar).Value = Now.ToString("dd MMM yyyy")
cn.Open()
Using dataReader As OleDbDataReader = dbCommand.ExecuteReader
If Not dataReader.HasRows Then
TxtNumb.Text = "REG01"
Else
dataReader.Read()
Dim firstRecord = dataReader.GetString(0)
Dim last2Characters = firstRecord.Substring(firstRecord.Length - 2)
TxtNumb.Text = $"REG{CInt(last2Characters) + 1:00}"
End If
End Using
End Using
End Sub
滚动自己的自动号码是个坏主意。数据库非常擅长为记录分配唯一编号。让他们去做。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。