27-11-23, 01:25 AM
(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 .
لعل احد الاخوة يكتب الحل.
ظنيت الموضوع ترقيم فقط.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير