منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احتاج كود اعادة الترقيم في السنة الجديدة

(07-11-23, 11:01 AM)ranosh كتب : [ -> ]احتاج كود اعادة الترقيم في السنة الجديدة

ممكن صيغة الرقم لكي اطبق مثال عليه.

(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

(26-11-23, 10:26 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

معذرة لا افهم في الـ Transaction .
لعل احد الاخوة يكتب الحل.
ظنيت الموضوع ترقيم  فقط.