[صالح الشنطى]

(07-12-15, 11:11 PM)HASAN6.0 كتب :

PHP كود :

Dim x As Integer = 0
        Dim result() As DataRow = Tabel1.Select("date1 = '" & Format(DateTimePicker1.Value.Date, "yyyy/MM/dd") & "'")
        For Each row As DataRow In result :             x += 1 :         Next
        MsgBox(x) 


شكرا ياصديقى

وقد تم تعديل الكود  بهدا الشكل

PHP كود :

Dim da As New OleDbDataAdapter("select * from  employ1 where  tt9=#" & Format(DateTimePicker1.Value.Date, "MM/dd/yyyy") & "#", cn)
        Dim dt As New DataTable
        da.Fill(dt)
        Dim x As Integer = 0
        For Each row As DataRow In dt.Rows : x += 1 : Next
        MsgBox(x)