تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث الشامل في جميع اعمدة كيف يتمListView nmst70 5 73 أمس, 12:07 PM
آخر رد: nmst70
  مساعدة في عزل قاعدة بيانات صور الموظفين في جدول منفصل . أبووسم 6 79 28-03-17, 11:43 PM
آخر رد: أبووسم
  استفسار حول عدم تكرار البيانات في جمل SQL المتألق9 5 68 28-03-17, 09:10 PM
آخر رد: مساعدة
  استفسار عن امكانية جمع اكثر من حقل من قاعدة البيانات.. Marwan9990 26 379 23-03-17, 02:51 AM
آخر رد: awidan76
  [سؤال] كيف اضيف اكثر من جدول من نفس قاعدة لبيانات Marwan9990 1 71 22-03-17, 10:19 AM
آخر رد: abdualla
  [سؤال] استفسار بخصوص انواع كود البحث.. Marwan9990 2 186 21-03-17, 05:01 PM
آخر رد: zinab ali
  [سؤال] تصدير بيانات الى قاعدة البيانات ahmed99 8 178 18-03-17, 03:01 AM
آخر رد: sendbad100
  [VB.NET] استفسار بخوصوص الاتصال بقاعدة البيانات الخاصه بموقعي dubai.eig 0 68 14-03-17, 08:38 PM
آخر رد: dubai.eig
  اريد اخفاء البيانات من الفورم أثناء بداية عمل البرنامج أبووسم 6 125 12-03-17, 03:42 AM
آخر رد: أبووسم
  حماية قاعدة البيانات عبدالرحمن المكاوي 0 68 11-03-17, 09:38 PM
آخر رد: عبدالرحمن المكاوي

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


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