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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  [VB.NET] البحث باستخدام CheckedListBox لتكون نتيجة التحديد شرط لجملة الاستعلام ahmedramzyaish 0 116 19-02-24, 03:44 AM
آخر رد: ahmedramzyaish
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  فلترة datagridview بدون قاعدة بيانات صالح عبدالله 3 295 02-02-24, 04:07 PM
آخر رد: صالح عبدالله
  البحث بالهوية annagui 2 315 25-01-24, 01:00 PM
آخر رد: annagui
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
Photo [كود] مطلوب كود يستخدم الأوامر فقط لتحديث قاعدة بيانات بـ vb.net AhmedEissa 4 638 18-01-24, 11:40 PM
آخر رد: العتيق
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 274 18-01-24, 05:04 PM
آخر رد: loay775

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


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