تقييم الموضوع :
  • 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]
بالتوفيق
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  قاعدة بيانات ضمن المشروع flawer69 2 87 , 03:35 PM
آخر رد: DR.YASER
  ما هو نوع البيانات الخاص بالصور فى قاعدة بيانات Accsess ؟ mmaalmesry 1 69 21-05-22, 11:52 PM
آخر رد: سعود
  انشاء قاعدة بيانات SQL SERVER +عمل أتاتش + جداول+حقول بالكود DR.YASER 4 397 20-05-22, 02:47 PM
آخر رد: DR.YASER
Exclamation ملفات تشغيل قاعدة البيانات Access أبو خالد الشكري 2 130 20-05-22, 12:26 AM
آخر رد: أبو خالد الشكري
  [سلسلة تعليمية] انشاء قاعدة بيانات +جداول+حقول بالكود .تطوير للمشروع السابق DR.YASER 3 175 19-05-22, 07:05 PM
آخر رد: DR.YASER
  [كورس] انشاء قاعدة بيانات فارغة و جديدة أثناء التشغيل-درس مهم و مثال DR.YASER 9 310 19-05-22, 04:43 AM
آخر رد: DR.YASER
  [VB.NET] انشاء قاعدة بيانات access فارغة وقت التشغيل mmaalmesry 2 208 14-05-22, 11:20 PM
آخر رد: mmaalmesry
  كيف يمكن اضافة 100 سجل بسيريال مسلسل الى قاعدة بيانات dr.programming 3 310 11-05-22, 03:08 PM
آخر رد: dr.programming
  ترحيل البيانات من فيجوال الى الوورد strongriseman 4 264 05-05-22, 12:50 PM
آخر رد: strongriseman
  مساعدة بكود الاتصال بقاعدة البيانات نيمو 2 397 14-04-22, 05:02 AM
آخر رد: ابراهيم ايبو

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


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