[نيمو]

(11-08-22, 02:19 PM)مصمم هاوي كتب : حاولت تطبيق الكود ولكن فشلت فشلا ذريعا.
فأرجو التعديل على المثال المرفق.
مع العلم ان تعبئة البيانات يتم يدويا عن طريق الداتا قريدفيو.
اسم الجدول موجود في بوتن الحفظ واسم الحقل id

تم تعديل اللازم تجدها في المرفقات
الدالة تكون

كود :

 Private Function AutoNum(TblName As String, ColName As String) As String
       Dim Str As String = "SELECT MAX(" & ColName & ") + 1 FROM " & TblName & ""
       Dim Tbl As New DataTable
       Tbl = GetTable(Str)
       Dim MyIDNum As String
       If Tbl.Rows(0)(0) Is DBNull.Value Then
           MyIDNum = "1"
       Else
           MyIDNum = Tbl.Rows(0)(0)
       End If
       Return MyIDNum
   End Function

فقط غير الجدول

اعتبرت تكست رقم 2 يسجل الترقيم فكتبت في الفورم لود

كود :

TextBox2.Text = AutoNum("TBL_almadhuniiyn", "ID")

عند فتح التطبيق رح تشوف الترقيم 11 لان اخر تسجيل للقاعدة هو عشرة
هسه تكدر تغير المطلوب واي توضيح انا حاظر

---

اضافة لكود الحفظ نسيتها طبعا  

كود :

.AddWithValue("@ID", AutoNum("TBL_archives", "ID")).DbType = DbType.String

مع ضرورة تعديل insert طبعا