تقييم الموضوع :
  • 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
الله يعطيكم العافيه تمام



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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة البيانات لا تعمل على الشبكة !! starosta 14 1,661 24-10-16, 05:57 PM
آخر رد: ابو ليلى

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


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