10-02-18, 12:01 AM
لو سمحتم ياريت تساعدوني ... عندما ابحث عن التاريخ واكتب هذا الكود لا يعمل ولا تظهر نتائج وعندي مشكلة في السطر هذا :
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