الترقيم التلقائي للمدخلات في قواعد البيانات

تسحب أخر رقم id من قاعدة البينات وتضيف إليه رقم 1 مثلا لو كان في ال id رقم 5 

في البرنامج تعمل إستعلام يجلب لك أخر رقم في id  ومن ثم تضيف إليه 1 وتظهره في التيكس بوكس 

ايوة اخي هو المطلوب والمقصود بس كيف اتم العملية ؟

أخي الكريم قم بإجراء التالي:
 

Dim Da as new OleDBDataAdapter("Select Max(id)+1 From Sales", ConnectionName)
Dim Dt as new DataTable
Da.Fill(Dt)
Me.txtID.Text=Dt.Rows(0)(0).ToString()

للإشارة فقط فالشفرة كتبتها يدويا لأنني لا أتوفر على الفيجوال ستوديو على الحاسب، أي خطأ يحصل معك المرجو تنبيهنا إليه.

خالد السعداني كتب:

أخي الكريم قم بإجراء التالي:

 

Dim Da as new OleDBDataAdapter("Select Max(id)+1 From Sales", ConnectionName)
Dim Dt as new DataTable
Da.Fill(Dt)
Me.txtID.Text=Dt.Rows(0)(0).ToString()
مشكور يا غالي لي عودة بعد التجربة ..

للإشارة فقط فالشفرة كتبتها يدويا لأنني لا أتوفر على الفيجوال ستوديو على الحاسب، أي خطأ يحصل معك المرجو تنبيهنا إليه.