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

For a = 0 To dgv.Rows.Count - 1
            Dim adp As New SqlDataAdapter("select * from item where  Itemcode=N'" & (dgv.CurrentRow.Cells(0).Value) & "'", sqlconn)
            Dim ds As New DataSet
            adp.Fill(ds)
            Dim dt = ds.Tables(0)

            Dim dr = dt.Rows(0)

            Dim profits1 As Decimal = dr!profits
            Dim out_count1 As Decimal = dr!out_count
            Dim itemcount1 As Decimal = dr!itemcount

            Dim sqlQuery As String = "update item set [itemcount]= @itemcount,[profits]=@profits,[out_count]=@out_count where itemcode=" & Val(dgv.Rows(a).Cells(0).Value)
            Dim cmd As New SqlCommand(sqlQuery, sqlconn)

            cmd.Parameters.AddWithValue("@itemcount", itemcount1 - Val(dgv.Rows(a).Cells(16).Value))
            cmd.Parameters.AddWithValue("@profits", profits1 + dgv.Rows(a).Cells(8).Value)
            cmd.Parameters.AddWithValue("@out_count", out_count1 + dgv.Rows(a).Cells(16).Value)

            If sqlconn.State <> ConnectionState.Open Then sqlconn.Open()

            Dim sqlQuery2 As String = "update [item] set total_price = itemcount * itembuyprice "
            Dim cmd2 As New SqlCommand(sqlQuery2, sqlconn)
            cmd.ExecuteNonQuery()
            cmd2.ExecuteNonQuery()

          
            dt.Clear()
        Next
        sqlconn.Close()
الرد
تم الشكر بواسطة: salim0ham , ابو انس
#2
وعليكم السلام
استخدم ستوريد بروسيجر stored procedure  لحل مشكلة البطئ
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20 , salim0ham
#3
(09-08-21, 06:22 PM)ابو انس كتب : وعليكم السلام
استخدم ستوريد بروسيجر stored procedure  لحل مشكلة البطئ

كيف ممكن التوضيح بمثال
الرد
تم الشكر بواسطة: خالد20
#4
راجع هذا الرابط
http://vb4arb.com/vb/showthread.php?tid=5496
وهذا
http://vb4arb.com/vb/showthread.php?tid=16736
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: salim0ham , خالد20
#5
السلام عليكم ورحمة
عندي كمبوبوكس فيه خياران(عادي ومخفض)
عند اختيار (عادي) نقوم عملية ضرب تكس بوكس(1) في 5%
او عند اخيار (مخفض) نقوم بعملية ضرب تكس بوكس (1) في 2%
كيفية عمل المعادلة اخوتي الكرام
الرد
تم الشكر بواسطة: خالد20
#6
(13-08-21, 05:29 PM)سالم الصديق كتب : السلام عليكم ورحمة
عندي كمبوبوكس فيه خياران(عادي ومخفض)
عند اختيار (عادي) نقوم عملية ضرب تكس بوكس(1) في 5%
او عند اخيار (مخفض) نقوم بعملية ضرب تكس بوكس (1) في 2%
كيفية عمل المعادلة اخوتي الكرام
 وعليكم السلام ورحمة الله وبركاته

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If ComboBox1.Text = "عادي" Then
           TextBox2.Text = (Val(TextBox1.Text) * 5) / 100
       ElseIf ComboBox1.Text = "منخفض" Then
           TextBox2.Text = (Val(TextBox1.Text) * 2) / 100
       End If
   End Sub
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20
#7
مشكور اخي ابو انس  علي الرد لكن الكود لايعمل
الرد
تم الشكر بواسطة:
#8
(14-08-21, 01:04 AM)سالم الصديق كتب : مشكور اخي ابو انس  علي الرد لكن الكود لايعمل

لا الكود يعمل
انظر في المرفقات بعثت لك المشروع وفيه الكود وهو يعمل 100 /100


الملفات المرفقة
.rar   5-2.rar (الحجم : 71.38 ك ب / التحميلات : 16)
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 
 مجاناااااا
واتساب 00963951283515
الرد
تم الشكر بواسطة: خالد20


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة تطبيق هذا الكود عل الدتا قريد ahmedbezia 2 82 , 01:52 PM
آخر رد: ahmedbezia
  [VB.NET] ممكن مساعدة في جدول Category وعرضه في Data grid love_hell 0 100 10-09-21, 12:15 AM
آخر رد: love_hell
  عمل جدول اقساط بالفيجوال بيسك ابو نور الهدى 5 491 30-08-21, 12:43 PM
آخر رد: ابو نور الهدى
  عرض البيانات من الداتا قريد فيو الى الادوات aftfm 7 288 28-08-21, 10:50 PM
آخر رد: aftfm
  [SQL] تابع_ الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 3 358 21-08-21, 06:32 PM
آخر رد: mmaalmesry
  حذف صفوف في جدول داخل قاعدة بيانات سيكوال سيرف momani33 5 246 21-08-21, 02:14 PM
آخر رد: momani33
  تصدير البيانات من نوع جديد اليوم السابع 3 665 18-08-21, 09:37 PM
آخر رد: يونس علي
Star [SQL] الكود الخاص بحفظ و جلب صورة Image من و إلى قاعدة بيانات mmaalmesry 7 425 14-08-21, 10:05 AM
آخر رد: mmaalmesry
  كيفية جلب بيانات جدول داخل موقع إلى الداتاجريدفيو باستخدام مكتبة cefsharp bahnay0 0 202 12-08-21, 01:49 AM
آخر رد: bahnay0
  تعديل على كود الحفظ aftfm 1 203 04-08-21, 09:10 PM
آخر رد: ابراهيم ايبو

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


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