[مصمم هاوي]

السلام عليكم

عندي سؤالان، أبدأ بالسؤال الأول:
1: هل يمكن التعديل على هذا المثال البسيط بخصوص الترقيم التلقائي في الداتا قريد فيو
حيث يتم خزن الترقيم في حقل id.
فالترقيم التلقائي في قاعدة البيانات لا أحبذه كثيراً

سامحوني؛ ولكنني مازلت في بداية الطريق في عالم الدوت نت بعد أن تركتها، ولكن امكانياتها الكبيرة
جعلتني أعود إليها

ملاحظة: لا أقصد بالسجل  حقل الــ (ID)، إنما المقصود به سجل خاص لكتابة العقود يحتوي على عدد (25) صفحة أو عقداً
وكذلك القصد أن يكون الترقيم تلقائي لحقل ID من خلال الداتا قريد فيو
بعد إجابة السؤال الأول أنتقل للسؤال الثاني إن شاء الله تعالى
المثال في المرفقات


  الترقيم التلقائي في الداتا قريدفيو.rar (الحجم : 650.01 ك ب / التحميلات : 79)

[نيمو]

(11-08-22, 09:54 AM)مصمم هاوي كتب : السلام عليكم

عندي سؤالان، أبدأ بالسؤال الأول:
1: هل يمكن التعديل على هذا المثال البسيط بخصوص الترقيم التلقائي في الداتا قريد فيو
حيث يتم خزن الترقيم في حقل id.
فالترقيم التلقائي في قاعدة البيانات لا أحبذه كثيراً

سامحوني؛ ولكنني مازلت في بداية الطريق في عالم الدوت نت بعد أن تركتها، ولكن امكانياتها الكبيرة
جعلتني أعود إليها

ملاحظة: لا أقصد بالسجل  حقل الــ (ID)، إنما المقصود به سجل خاص لكتابة العقود يحتوي على عدد (25) صفحة أو عقداً
وكذلك القصد أن يكون الترقيم تلقائي لحقل ID من خلال الداتا قريد فيو
بعد إجابة السؤال الأول أنتقل للسؤال الثاني إن شاء الله تعالى
المثال في المرفقات




بالنسبة للترقيم التلقائي فاستخدم الدالة ذي , استخدمهه من فيديو اكاديمية حسونه

كود :

Private Function AutoNum(TblName As String, ColName As String) As String
       Dim Str As String = "SELECT MAX(" & ColName & ") + 1 FROM " & TblName & " where TblName = '" & Name & "'"
       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

استبدل ( where TblName = '" & Name & "'" ) بالجدول المناسب

[مصمم هاوي]

حاولت تطبيق الكود ولكن فشلت فشلا ذريعا.
فأرجو التعديل على المثال المرفق.
مع العلم ان تعبئة البيانات يتم يدويا عن طريق الداتا قريدفيو.
اسم الجدول موجود في بوتن الحفظ واسم الحقل id

[نيمو]

(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 طبعا

[مصمم هاوي]

أستاذي الفاضل وأخي الحبيب سعود جزاك الله كل خير
وهذا هو المطلوب حرفياً