تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر
#1
        السلام عليكم اخواني الكود التالي يعمل بشكل ممتاز ولاكن هل يمنك كتابته بطريقة اخرى حيث ان الوضع الحالي عند كثرة السجلات يؤدي الى البطيء الشديد وشكرا لكم جميعا


 Dim sql = "select * from invoice_add where invoice_number=N'" & (invoice_number.Text) & "'"
        Dim adp As New SqlDataAdapter(sql, sqlconn)
        Dim ds As New DataSet
        adp.Fill(ds)
        Dim dt = ds.Tables(0)
        If dt.Rows.Count > 0 Then

            For a = 0 To dgv.Rows.Count - 1
                adp = New SqlDataAdapter("select * from item where itemcode=N'" & (dgv.Rows(a).Cells(0).Value) & "'", sqlconn)
                ds = New DataSet
                adp.Fill(ds)
                dt = ds.Tables(0)
                Dim dr3 = dt.Rows(0)
                'تحديث سجل كمية المادة المتبقية
                dr3!itemcount = Val(dgv.Rows(a).Cells(14).Value)
                dr3!total_price = dr3!itemcount * dr3!itembuyprice

                'تحديث سجل كمية المادة المباعه
                If dr3!out_count.ToString = "" Then
                    dr3!out_count = 0
                    dr3!out_count = Val(dr3!out_count) + Val(dgv.Rows(a).Cells(16).Value)
                    dr3!Profits = Val(dr3!Profits) + Val(dgv.Rows(a).Cells(8).Value)

                Else

                    dr3!out_count = Val(dr3!out_count) + Val(dgv.Rows(a).Cells(16).Value)
                    dr3!Profits = Val(dr3!Profits) + Val(dgv.Rows(a).Cells(8).Value)

                End If

                dr3!date_sale = invoice_date.Value
                Dim cmd4 As New SqlCommandBuilder(adp)
                adp.Update(dt)
            Next
            adp.Dispose()
            ds.Dispose()
            dt.Dispose()
           
            '---------------------------------------------------------------------------
            '----------------------------------------------------------------------------
            My.Computer.Audio.Play(My.Resources.alert, AudioPlayMode.WaitToComplete)
        End If
الرد
تم الشكر بواسطة: حريف برمجة
#2
السبب هو الاستعلام داخل For وهو خطأ جدا

adp = New SqlDataAdapter("select * from item where itemcode=N'" & (dgv.Rows(a).Cells(0).Value) & "'", sqlconn)

حاول ان تجعل الاستعلام مرة واحدة خارج For ومن ثم معالجته داخل for بعد ذلك
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#3
للاسف تمت المحاول ولم تفلح العملية حيث اخراج جملة الاستعلام من داخل For ادى الى تحديث جميع القيم في الجدول المكون من 2000 سجل لقيمة واحدة وهذا خطا
اذا كان يوجد لديك تعديل الرجاء المساعده
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة
#4
طيب ارسل مثال او اذكر تفاصيل عن البرنامج او قاعدة البيانات
الرد
تم الشكر بواسطة: حريف برمجة , حريف برمجة


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  نسخ قاعدة بيانات sql بشكل آلي باستخدام تايمر كريم عبودي 0 16 منذ 10 ساعة مضت
آخر رد: كريم عبودي
  [VB.NET] التعديل علي كود خاص بي التعديل علي ملف ftp ميدو الفنان 5 127 , 10:54 PM
آخر رد: ميدو الفنان
  بناء قاعدة Access بالأوامر ؟ ZaerAllail 1 75 25-11-20, 12:35 AM
آخر رد: Jounior_P
  [VB.NET] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 701 16-11-20, 12:10 AM
آخر رد: sherf
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 1 120 10-11-20, 04:32 PM
آخر رد: mmali127
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 186 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 148 08-11-20, 12:17 AM
آخر رد: برحوت
  مشكلة حفظ البيانات الموجودة في اداة listview في قاعدة بيانات SQL shado1796 7 2,072 07-11-20, 02:47 PM
آخر رد: sherf
  ممكن تعديل علي الكود ليكون بشكل صحيح modywassem520 6 237 06-11-20, 11:16 PM
آخر رد: سعود
  هل استطيع الاتصال بقاعدة بيانات Access موجودة على سيرفر خارجي mohamedgadain61 4 230 05-11-20, 05:24 PM
آخر رد: kiki

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


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