اخوانى اريد انا اقوم بالبحث داخل الدتا جريد فيو بعد اختيار قيمتين من 2 كومبوبكس و الضغط على زر البحث
طلب طريقة بحث فى الداتاجريدفيو المشروع مرفق
تريد أن تبحث عن ماذا؟
يعني الكمبو بوكس الأول يحمل الأشهر والثاني الأيام والأعمدة التي في داتا جريد فيو ليس بها عمود أشهر ولا أيام
ismail2012 كتب:تريد أن تبحث عن ماذا؟
يعني الكمبو بوكس الأول يحمل الأشهر والثاني الأيام والأعمدة التي في داتا جريد فيو ليس بها عمود أشهر ولا أيام
فعلا اخى كلامك مضبوط و تم رفع المشروع من جديد
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim ConStr As String = "your_connection_string"
Dim cmd As OleDbCommand
Dim dr As OleDbDataReader
Dim da As OleDbDataAdapter
Dim Conn As New OleDbConnection(ConStr)
Dim dt As New DataTable("Table1")
Dim SQLstr As String = "SELECT * FROM Table1"
Dim DataSet1 As New DataSet
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
DataGridView1.DataSource = DataSet1.Tables("Table1").DefaultView
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Button1_Click( sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dataview_in_grid as DataView = Me.DataGridView1.DataSource
Dim filter_by_month, filter_by_day As String
If ComboBox1.Text = "" and ComboBox2.Text = ""
dataview_in_grid.RowFilter = ""
Exit Sub
End If
If ComboBox1.Text <> ""
filter_by_month = " mothe = " + Chr(39) + ComboBox1.Text + Chr(39)
Else
MsgBox("Please select month")
Exit Sub
End If
If ComboBox2.Text <> ""
filter_by_day = " AND " + " day = " + ComboBox2.Text
Else
MsgBox("Please select Day")
Exit Sub
End If
Dim filter_expr = filter_by_month + filter_by_day
'MsgBox(filter_expr)
dataview_in_grid.RowFilter = filter_expr
End Sub
End Class
تم تعديل هذه المشاركة بواسطة samir ibrahim في 19 سبتمبر 2013 في 22:08
أخي الكريم ليس لي خبرة كافية بالداتا جريد فيو ولكن سأعطيك طريقة بالبحث في قاعدة البيانات نفسها بنفس طلبك
أدرج في المشروع ListBox1
واكتب هذا الكود في زر البحث
ListBox1.Items.Clear()
For i As Integer = 0 To DataSet1.Tables("Table1").Rows.Count - 1
If DataSet1.Tables("Table1").Rows(i).Item(5) = ComboBox1.Text And DataSet1.Tables("Table1").Rows(i).Item(6) = ComboBox2.Text Then
ListBox1.Items.Add(DataSet1.Tables("Table1").Rows(i).Item(1))
End If
Nextممتاذ يا أستاذ سمير
ملاحظة: عندما قمت بالتعليق لم الاحظ مشاركتك لأن الصفحة كانت مفتوحة ولم اعمل لها تحديث قبل التعليق
شكرا اخوانى لكن عند طبيق الاكود تظهر هذه الرسالة
انا اعمل بالفيجوال بيسك 2008
ismail2012 كتب:ممتاذ يا أستاذ سمير
ملاحظة: عندما قمت بالتعليق لم الاحظ مشاركتك لأن الصفحة كانت مفتوحة ولم اعمل لها تحديث قبل التعليق
مرحبا اسماعيل
ولا يهمك. يمكن حد تاني يستفيد من مشاركتك
اقتباس
انا اعمل بالفيجوال بيسك 2008
ليس لدي 2008 ولم اسنطع تحديد السطر الذي به خطأ؟ ما هو السطر؟
اخى samir ibrahim
لقد قمت بعمل المشروع من جديد و استخدمت الكود الذى ارفقته حضرتك و بالفعل اشتغل 100%
انا اعجز عن شكرك حقاً
المرفق بعد تطبيق الكود
اخى ismail2012 شكرا للمحاولة