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

أرفع مثالك .... سوف يتم الرد عليك
الرد }}}}
تم الشكر بواسطة:
#3
كيفك عزيزي مالك
انا عملت الربط بطريقة ال wizrd ليس بالكود
وكان كود البحث عن حقل الاسم عندي ناجح والصيغة العامة له هي
TabelBindingSource.Filter = " [name] LIKE '%" & Trim(InputBox(" search")) & "%'" h

حرف h بالاخير زائد

ما التعديل على الكود لكي يبحث عن الارقام والتاريخ
الرد }}}}
تم الشكر بواسطة:
#4
اخي انا عملت هذا عن طريق ال query
وعندي شغال اذا تحب ارسله لك
الرد }}}}
تم الشكر بواسطة:
#5
اخي شكرا على الرد
ارسلي المثال او البرنامج وذا عندي مشكلة اراسلك
الرد }}}}
تم الشكر بواسطة:
#6
اخي الفاضل حاولت ارفعه يقول ان الملف كبير والحجم المخصص لي قليل
واحتمال ذلك لن نقاطي قليله
الرد }}}}
تم الشكر بواسطة:
#7
Heart 
السلام عليكم

الكود التالي للبحث في قاعدة البيانات عن اسم القطعة وعرضها في DataGridView، ربما يفيدك:
PHP كود :
Private Sub SearchByPartDescription()
        
Dim LSQL As String "select * from Parts where Description like '%" txtSearchByPartDescription.Text "%' order by ID"
        
Dim LAdapter As New OleDbDataAdapter(LSQLCon)
        
Dim LDataSet As New DataSet
        Dim RowsCount 
As Integer
        Dim i 
As Integer

        dgvParts
.Rows.Clear()

        If 
Con.State ConnectionState.Closed Then
            Con
.Open()
            
LAdapter.Fill(LDataSet"Parts")
            
RowsCount LDataSet.Tables("Parts").Rows.Count
            
If RowsCount 0 Then
                dgvParts
.Rows.Clear()
                
LDataSet.Reset()
                
Con.Close()
                Exit 
Sub
            
Else
                
dgvParts.Rows.Add(RowsCount)

                
' Now: fill DGV with data
                For i = 0 To RowsCount - 1
                    With dgvParts
                        .Rows(i).Cells(0).Value = LDataSet.Tables("Parts").Rows(i).Item("ID")
                        .Rows(i).Cells(1).Value = LDataSet.Tables("Parts").Rows(i).Item("Description")
                        .Rows(i).Cells(2).Value = LDataSet.Tables("Parts").Rows(i).Item("Quantity")
                        .Rows(i).Cells(3).Value = LDataSet.Tables("Parts").Rows(i).Item("UnitCostPrice")
                        .Rows(i).Cells(4).Value = LDataSet.Tables("Parts").Rows(i).Item("UnitSellingPrice")
                        .Rows(i).Cells(5).Value = LDataSet.Tables("Parts").Rows(i).Item("CountryOfOrigine")
                        .Rows(i).Cells(6).Value = LDataSet.Tables("Parts").Rows(i).Item("BarcodeNumber")
                    End With
                Next
                LDataSet.Reset()
                Con.Close()
            End If
        Else
            LAdapter.Fill(LDataSet, "Parts")
            RowsCount = LDataSet.Tables("Parts").Rows.Count
            If RowsCount = 0 Then
                dgvParts.Rows.Clear()
                LDataSet.Reset()
                Con.Close()
                Exit Sub
            Else
                dgvParts.Rows.Add(RowsCount)

                ' 
Nowfill DGV with data
                
For 0 To RowsCount 1
                    With dgvParts
                        
.Rows(i).Cells(0).Value LDataSet.Tables("Parts").Rows(i).Item("ID")
                        .
Rows(i).Cells(1).Value LDataSet.Tables("Parts").Rows(i).Item("Description")
                        .
Rows(i).Cells(2).Value LDataSet.Tables("Parts").Rows(i).Item("Quantity")
                        .
Rows(i).Cells(3).Value LDataSet.Tables("Parts").Rows(i).Item("UnitCostPrice")
                        .
Rows(i).Cells(4).Value LDataSet.Tables("Parts").Rows(i).Item("UnitSellingPrice")
                        .
Rows(i).Cells(5).Value LDataSet.Tables("Parts").Rows(i).Item("CountryOfOrigine")
                        .
Rows(i).Cells(6).Value LDataSet.Tables("Parts").Rows(i).Item("BarcodeNumber")
                    
End With
                Next
                LDataSet
.Reset()
                
Con.Close()
            
End If
        
End If 
    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم
طالما الكود عندك ناجح - كما قلت - فقم فقط بتغيير ما بين القوسين المركنين
[Name]
إلى ما تريده مثلا رقم
[Number]
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 رَبِّ اغْفِرْ لِي وَلِوَالِدَيَّ
Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [VB.NET] تخزين مصفوفة Arraylist في قاعدة بيانات Access youssef mester 5 58 منذ 35 دقيقة مضت
آخر رد: silverlight
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 6 107 منذ 4 ساعة مضت
آخر رد: gmailali
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 52 22-01-17, 01:39 PM
آخر رد: thevirus
  عرض البيانات من قاعده البيانات لليوم الحالي. Rabeea Qbaha 0 38 22-01-17, 06:47 AM
آخر رد: Rabeea Qbaha
  [سؤال] ماذا افعل ؟ في ضياع قاعدة بيانات سكيول سيرفر 2008 salah mansour 3 63 21-01-17, 03:55 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 223 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  [VB.NET] التجميع و الفرز قواعد البيانات tifagreet 4 66 19-01-17, 04:21 AM
آخر رد: tifagreet
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 99 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 132 14-01-17, 12:36 PM
آخر رد: أبووسم
  ياشباب ارجو منكم المساعده لدي مشاكل في اضافه الصورة الى قاعده البيانات وعمل بحث ammar ali 3 175 13-01-17, 11:15 PM
آخر رد: ammaraliali

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


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