تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
احتاج كود ايجاد اكبر قيمة من قاعدة البيانات للعمود id
#1
السلام عليكم ... يعطكيم العافيه 


احتاج كود ايجاد اكبر قيمة في العمود id مع اضافة +1

عندي كود لكن لا يفي بالغرض واحتاج تعديله لتشغيله على مشروع  asp


كود :
File_ID_PKTextBox.Text = (ModDataSet.Tables("tblFiles").Compute("Max(File_id_Pk)", "File_id_Pk >= 0") + "1")


شكرا لكم



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}
تم الشكر بواسطة:
#2
القاعدة اكسس او اسكيوال سيرفر ؟

ضع اسم الجدول واسم الحقل المراد جلب آخر Id له .
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: rnmr , rnmr , hglogtd , Amir_Alzubidy , Amir_Alzubidy
#3
وعليكم السلام ورحمة الله وبركاتة



لجلب أكبر رقم في الجدول الموجود لديك في الذاكرة : ( من الجدول الموجود في الـ DataSet )
كود :
       Dim MaxID As Integer = ModDataSet.Tables("tblFiles").AsEnumerable().Max(Function(Row) Convert.ToInt32(Row("File_id_Pk")))
       Dim NewID As Integer = MaxID + 1
       MsgBox(NewID)






لجب أكبر رقم في الجدول الموجود في قاعدة البيانات مباشرتاً :  
إستخدم جملة الإستعلام هذة :

كود :
SELECT MAX(File_id_Pk) FROM tblFiles
الناتج أضف له 1 



بالتوفيق ...
الرد }}}
تم الشكر بواسطة: rnmr , hglogtd , Amir_Alzubidy , Amir_Alzubidy
#4
جرب هذا

كود :
File_ID_PKTextBox.Text = ModDataSet.Tables("tblFiles").Compute("Max(File_id_Pk)", Nothing) + 1
الرد }}}
تم الشكر بواسطة: hglogtd , hglogtd , Amir_Alzubidy , Amir_Alzubidy
#5
وبعد عملية الحفظ مباشرة يجلب لك ID السجل الأخير الذي تم حفظه للإستفادة منه في عملية أخرى :

أكسس :


كود :
Dim ID As Integer
Using conn As New OleDbConnection(connect)
  Using cmd As New SqlCommand("insert Into Categories (CategoryName) Values (@CategoryName)", conn)
    cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
    conn.Open()
    cmd.ExecuteNonquery()
    cmd.Commandtext="select @@Identity"
    ID = cmd.ExecuteScalar()
    conn.close()
  End Using
End Using 

اسكيوال سيرفر :


كود :
Dim query As String = "insert Into Categories (CategoryName) Values (@CategoryName);" & _
    "select Scope_Identity()"

Dim ID As Integer

Using conn As New SqlConnection(connect)
  Using cmd As New SqlCommand(query, conn)
    cmd.Parameters.AddWithValue("@CategoryName", Category.Text)
    conn.Open()
    ID = cmd.ExecuteScalar()
  End Using
End Using
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة: rnmr , rnmr , hglogtd , Amir_Alzubidy
#6
الله يعطيكم العافيه تمام



بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] اريد كود يبحث في قاعدة بيانات من صفحة flawer69 0 1,752 19-03-23, 01:39 PM
آخر رد: flawer69
  [SQL] مشكلة في قاعدة البيانات gazy1984 5 2,761 14-11-21, 11:58 AM
آخر رد: ahmedabdelaliem
  مشكل في الترميز عندي قاعدة بيانات اكسيس مستخدمه في سرفر محلي ahmedhhh2 0 1,743 11-12-19, 01:32 AM
آخر رد: ahmedhhh2
  قاعدة البيانات لا تعمل على الشبكة !! starosta 14 7,384 24-10-16, 05:57 PM
آخر رد: ابو ليلى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم