تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن المساعدة في اجراء بحث كومبوبكس وتيكست
#5
جرب هذا 
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"

 
   cm = New SqlCommand(querycn)
 
   cm.Parameters.AddWithValue("@SearchText""%" txtSearch.Text "%")

 
   dr cm.ExecuteReader()

 
    DataGridView
    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 
[صورة مرفقة: images?q=tbn:ANd9GcT72OLJW7D1E5QW-HUeWeJ...TGoNeg2jnQ]
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
RE: ممكن المساعدة في اجراء بحث كومبوبكس وتيكست - بواسطة تركي الحلواني - 15-07-24, 11:50 AM

المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن ايضاح اكثر لـ continu for justforit 6 320 05-11-25, 12:10 AM
آخر رد: justforit
  [VB.NET] اذا ممكن مشروع ادارة مدرسة بدر إشتية 4 8,534 08-02-25, 02:05 AM
آخر رد: الورد2
  ارجو تعديل الكود جلب البيانات عن طريق اجراء مخزن - مرفق مثال new_programer 0 620 05-02-25, 01:51 AM
آخر رد: new_programer
  ممكن اعرف معنى مفهومي HLD ,LLD bassant 0 315 30-01-25, 02:07 PM
آخر رد: bassant
  [سؤال] اجراء المسح الضوئي وتصوير المستندات من خلال المستعرض ابوعبدالملك 3 361 24-01-25, 06:37 AM
آخر رد: ابوعبدالملك
  شيء غريب ممكن تفسير justforit 2 362 03-12-24, 11:44 PM
آخر رد: justforit
Exclamation [VB.NET] ممكن كود تشغيل ملف صوت MP3 الورد الصناعي 10 919 20-10-24, 03:08 PM
آخر رد: salamandal
Exclamation [VB.NET] ممكن عمل كود لحفظ المكتوب داخل اداة TextBox الورد الصناعي 9 797 17-10-24, 11:43 PM
آخر رد: salamandal
  ممكن طريقة عمل الصورة بشكل دائري بوحمد 3 485 14-10-24, 04:01 PM
آخر رد: بوحمد
  السلام عليكم ممكن كود بحث فى برنامج مصمم بالفيجوال بيسك وقاعدة بيانات اكسس خالد كامل1 1 459 08-10-24, 02:37 PM
آخر رد: salamandal

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


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