دخول

**ranosh** · 07-11-23, 11:01 AM

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

**justforit** · 07-11-23, 12:08 PM

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

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

**ranosh** · 26-11-23, 10:26 AM

(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

**justforit** · 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 .
لعل احد الاخوة يكتب الحل.
ظنيت الموضوع ترقيم فقط.

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] سؤال بخصوص الترقيم التلقائي اليدوي	yosif	5	333	16-04-26, 01:05 AM آخر رد: أبو خالد الشكري
	احتاج مساعدة في كتابة كود	sloom00	2	236	28-01-26, 11:52 AM آخر رد: sloom00
	[VB.NET] احتاج مساعدة في كتابة كود	sloom00	2	1,132	21-08-25, 09:09 AM آخر رد: sloom00
	احتاج مساعدة في اظهار الصورة على PictureBox	sloom00	2	527	31-12-24, 11:29 PM آخر رد: sloom00
	[VB.NET] احتاج مساعدة في طابعة فواتير حرارية	zazasami	3	552	15-08-24, 05:48 PM آخر رد: PABLO
	[VB.NET] احتاج الى حل في عرض الملفات على داتا جرد فيو	raedre22	4	787	11-07-24, 06:32 PM آخر رد: raedre22
	[VB.NET] اعادة توجيه للرابط	ميدو الفنان	2	469	05-06-24, 02:18 PM آخر رد: ميدو الفنان
	كيف يمكنني إعداد ترقيم تلقائي ويتجدد الترقيم في كل سنة	mram3242	15	7,395	02-06-24, 08:25 PM آخر رد: atefkhalf2004
	[سؤال] مشكله كود TRansaction وحقل الترقيم التلقائي	01AHMED	0	455	09-02-24, 10:31 PM آخر رد: 01AHMED
	الترقيم التلقائي	محمد خيري	4	806	20-01-24, 03:12 AM آخر رد: محمد خيري