همونطور که دوستمون گفتن اصلا نیاز نیست اطلاعات شما در جای دیگه ایی ثبت بشه. شما اطلاعات رو در دیتابیس می ریزید و با کد زیر آخرین رکورد رو بر می گردونید:
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0 ;Data Source=" & Application.StartupPath & "\database.accdb")
Dim cmd As OleDbCommand = New OleDbCommand("select Top 1 * from student ORDER BY [number] DESC", con)
Dim reader As OleDbDataReader
con.Open()
reader = cmd.ExecuteReader()
reader.Read()
Dim number As String = reader("number").ToString()
Label1.Text = number
reader.Close()
con.Close()
در این کد از جدول student اخرین رکورد رو که دارای بزرگترین شماره هست رو می خونه و شماره رو بدست میاره(البته از روش max که دوستان گفتن هم می تونید استفاده کنید)
حالا باید چند تا نکته رو توجه کنید این روش شماره دهی تا ده سال دیگه مشکل ایجاد می کنه شما دو رقم سال رو می دید که در سال 1400 می شه 00 (مشکل سال 2000)
احتمالا هر سال شماره ها از نو شروع به اضافه شدن می کنن که باید این رو هم در نظر بگیرید
پاسخ با نقل قول
نوشته شده توسط mansourii
