[Nedaa]

لو سمحتم ياريت تساعدوني ... عندما ابحث عن التاريخ واكتب هذا الكود لا يعمل ولا تظهر نتائج وعندي مشكلة في السطر هذا :

da .fill = (dt)

وهذا هو الكود ياريت حد يفيدني وين المشكلة ...

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")

        Dim da As New OleDbDataAdapter

        Dim dt As New DataTable

        Dim dtp As Date = DateTimePicker1.Value

        dt.Clear()

        da = New OleDbDataAdapter("select * from T1 where DateBirth= #" & dtp.Day & "/" & dtp.Month & "/" & dtp.Year & "#", conn)

        da.Fill = (dt)   =====المشكلة هنا لا ينفذ هذا السطر لماذا

        DataGridView1.DataSource = dt

        If dt.Rows.Count = 0 Then

            MsgBox("Not Found")

            da = New OleDbDataAdapter(" SELECT * from T1", conn)

            da.Fill(dt)

            DataGridView1.DataSource = dt

        End If

    End Sub

[Nedaa]

يطلع لي دائماً المسج هذا:
Error 1 Overload resolution failed because no accessible 'Fill' accepts this number of arguments.-

[Nedaa]

الحمد لله تم حل المشكلة كانت المشكلة فقط في وجود علامة = بعد كلمة fill

[محمود صالح]

الكود بعد التعديل

PHP كود :

       Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
        Dim dt As New DataTable
        dt.Clear()
        Dim da As New OleDbDataAdapter("select * from T1 where DateBirth= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'", conn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
        If dt.Rows.Count = 0 Then
            MsgBox("Not Found")
            da = New OleDbDataAdapter(" SELECT * from T1", conn)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End If 


[Nedaa]

(10-02-18, 03:26 AM)محمود صالح كتب : الكود بعد التعديل

PHP كود :

       Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\D22.mdb")
        Dim dt As New DataTable
        dt.Clear()
        Dim da As New OleDbDataAdapter("select * from T1 where DateBirth= '" & Format(DateTimePicker1.Value, "yyyy/MM/dd") & "'", conn)
        da.Fill(dt)
        DataGridView1.DataSource = dt
        If dt.Rows.Count = 0 Then
            MsgBox("Not Found")
            da = New OleDbDataAdapter(" SELECT * from T1", conn)
            da.Fill(dt)
            DataGridView1.DataSource = dt
        End If 


بارك الله فيك أخي الكريم