تقييم الموضوع :
  • 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][email protected],[out_count][email protected]_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 ك ب / التحميلات : 18)
سورس كود برنامج محاسبة ومبيعات احترافي ومتكامل- قم بالاطلاع على البرنامج 

واتساب 00963951283515
الرد }}
تم الشكر بواسطة: خالد20



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


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