منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

لو ترفق مثال ليتم التعديل عليه.

(15-07-24, 06:28 PM)تركي الحلواني كتب : [ -> ]لو ترفق مثال ليتم التعديل عليه.

سوف يتم تجهيز وارفاق ملف العمل

تم ارسال المشروع على الخاص

(16-07-24, 03:23 AM)Zuhare كتب : [ -> ]

PHP كود :

Sub LoadRecords()
    Dim i As Integer = 0
    Dim total As Double = 0
    DataGridView1.Rows.Clear()

    cn.Open()

        Dim query As String = "SELECT * FROM tblProduct AS p " &
                          "INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID " &
                          "INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID " &
                          "INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID " &
                          "INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID " &
                          "INNER JOIN tblType AS t ON p.ProductType = TypeID " &
                          "WHERE ProductQuantity > 0 AND " & cboFilter.Text & " LIKE @SearchText"

    dim cm as New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@SearchText", "%" & txtSearch.Text & "%")

    dim dr as sqldatareader = cm.ExecuteReader()

         While dr.Read()
        i += 1
        total += CInt(dr.Item("ProductQuantity").ToString())
        DataGridView1.Rows.Add(i, 
                               dr.Item("ProductID").ToString(), 
                               dr.Item("ProductBarcode").ToString(), 
                               dr.Item("GenericName").ToString(), 
                               dr.Item("BrandName").ToString(), 
                               dr.Item("FromulationName").ToString(), 
                               dr.Item("ClassificationName").ToString(), 
                               dr.Item("TypeName").ToString(), 
                               dr.Item("ProductQuantity").ToString(), 
                               dr.Item("ProductBuyPrice").ToString(), 
                               dr.Item("ProductSalePrice").ToString(), 
                               Format(CDate(dr.Item("ProductDate").ToString()), "yyyy/MM"), 
                               dr.Item("ProductReorder").ToString())
    End While

       dr.Close()
    cm = Nothing
        cn.Close()

      lblCount.Text = "عدد المنتجات: " & Format(CLng(DataGridView1.Rows.Count), "#,##0") & Space(10) & " كمية المنتجات: " & Format(total, "#,##0")
End Sub  


شكر جزيلا ولكن نفس الخطأ في Like

(17-07-24, 07:39 AM)Zuhare كتب : [ -> ]

PHP كود :

Sub LoadRecords()
    Dim i As Integer = 0
    Dim total As Double = 0
    DataGridView1.Rows.Clear()

    cn.Open()

        Dim query As String = "SELECT * FROM tblProduct AS p " &
                          "INNER JOIN tblGeneric AS g ON p.ProductGeneric = GenericID " &
                          "INNER JOIN tblBrand AS b ON p.ProductBrand = BrandID " &
                          "INNER JOIN tblFromulation AS f ON p.ProductFromulation = FromulationID " &
                          "INNER JOIN tblClassification AS c ON p.ProductClassification = ClassificationID " &
                          "INNER JOIN tblType AS t ON p.ProductType = TypeID " &
                          "WHERE ProductQuantity > 0 AND " & cboFilter.Text & " LIKE '%'+@SearchText+'%'"

    dim cm as New SqlCommand(query, cn)
    cm.Parameters.AddWithValue("@SearchText",  txtSearch.Text )

    dim dr as sqldatareader = cm.ExecuteReader()

         While dr.Read()
        i += 1
        total += CInt(dr.Item("ProductQuantity").ToString())
        DataGridView1.Rows.Add(i, 
                               dr.Item("ProductID").ToString(), 
                               dr.Item("ProductBarcode").ToString(), 
                               dr.Item("GenericName").ToString(), 
                               dr.Item("BrandName").ToString(), 
                               dr.Item("FromulationName").ToString(), 
                               dr.Item("ClassificationName").ToString(), 
                               dr.Item("TypeName").ToString(), 
                               dr.Item("ProductQuantity").ToString(), 
                               dr.Item("ProductBuyPrice").ToString(), 
                               dr.Item("ProductSalePrice").ToString(), 
                               Format(CDate(dr.Item("ProductDate").ToString()), "yyyy/MM"), 
                               dr.Item("ProductReorder").ToString())
    End While

       dr.Close()
    cm = Nothing
        cn.Close()

      lblCount.Text = "عدد المنتجات: " & Format(CLng(DataGridView1.Rows.Count), "#,##0") & Space(10) & " كمية المنتجات: " & Format(total, "#,##0")
End Sub  


 اعتذر اتعبتكم معي جزيتم خيرا من الله

المشكله في محتوى cboFilter.Text فماذا يوجد بيها؟

---

المفروض يكون في cboFilter.Text اسم عمود صحيح بدون مسافات

(17-07-24, 10:11 AM)Zuhare كتب : [ -> ]المشكله في محتوى cboFilter.Text فماذا يوجد بيها؟

---

المفروض يكون في cboFilter.Text اسم عمود صحيح بدون مسافات

cbofilter كومبوبوكس يحتوي على طريقة البحث

لازم يكون اسم العمود موجود في مكان cboFilter.Text
وضعت متغير جديد اسمه filter وضعته بدل cboFilter.Tex في الاستعلام لكن راجع اسماء الاعمده ويكون يبدا باسم الجدول ثم نقطه ثم اسم العمود مثل tblBrand.ProductBrand

كم اخبرك الاخ (Zuhare)
مع وجود بعض التعديل على الكود الخاص به