(07-11-23, 12:08 PM)justforit كتب : (07-11-23, 11:01 AM)ranosh كتب : احتاج كود اعادة الترقيم في السنة الجديدة
ممكن صيغة الرقم لكي اطبق مثال عليه.
الرقم int
لدي text يضهر به تاريخ اليوم وهو Pdate.Value.ToString("yyyy/MM/dd")
احتاج يقرا اخر تاريخ واذا كانت السنة لهذا اليوم اكبر ان يعيد تسلسل ال id
If Sqlconn.State = ConnectionState.Open Then Sqlconn.Close()
Sqlconn.Open()
Try
Dim command As SqlCommand = Sqlconn.CreateCommand()
trans2 = Sqlconn.BeginTransaction(IsolationLevel.ReadCommitted)
command.Connection = Sqlconn
command.Transaction = trans2
command.CommandText = "insert into mainbook (idm,dateprint,too,idbook,idusers) values('" & idm.Text & "','" & Pdate.Value.ToString("yyyy/MM/dd") & "','" & too.Text & "','" & ComboBox4.SelectedValue & "','" & userId & "')"
command.ExecuteNonQuery()
trans2.Commit()
Roro()
MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
Catch ex As Exception
trans.Rollback()
Roro()
Sqlconn.Close()
End Try
