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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 2 51 منذ 1 ساعه مضت
آخر رد: توفي العراقي
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 3 73 منذ 2 ساعة مضت
آخر رد: tryold
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 40 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 33 أمس, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 189 أمس, 04:47 PM
آخر رد: صبري زينوبي
  [VB.NET] كود البحث لا يظهر اي نتائج ولا اي اخطاء Asmaa adel 1 46 أمس, 09:41 AM
آخر رد: ابراهيم النعيمي
  [كود] تعديل كود البحث بين تاريخينب hglogtd 2 38 29-11-16, 01:37 AM
آخر رد: hglogtd
  البحث مثل جوجل Samosoft 4 59 29-11-16, 01:35 AM
آخر رد: Samosoft
  خطأ عند البحث khalid475 1 44 28-11-16, 06:23 PM
آخر رد: khalid475
  [سؤال] كود البحث عن طريق اسم naden 1 68 28-11-16, 02:05 PM
آخر رد: Adrees

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


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