[طالب برمجة]

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, DateTimePicker1.ValueChanged, DateTimePicker2.ValueChanged 


---

PHP كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
    If IsDate(TextBox1.Text) Then
        Dim conn As New OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=|datadirectory|\ABDELAZIZ.mdb ;Jet OLEDB:Database Password=1971")
        Dim dtsearch As New DataTable
        dtsearch.Clear()
        Dim dasearch As New OleDbDataAdapter("select * from STUDENT where BBIRTHDATE=@d", conn)
        dasearch.SelectCommand.Parameters.AddWithValue("@d", CDate(TextBox1.Text))
        dasearch.Fill(dtsearch)
        DataGridView1.DataSource = dtsearch
        If dtsearch.Rows.Count = 0 Then
            'MsgBox("لا توجد نتائج للبحث")
            dasearch = New OleDbDataAdapter(" SELECT * from STUDENT", conn)
            dasearch.Fill(dtsearch)
            DataGridView1.DataSource = dtsearch
        End If
    End If
End Sub