اضافة التاريخ الى جميع السجلات

كود :

 Dim strSQL As String = ""

        Dim Command As OleDbCommand



        If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        strSQL = " INSERT INTO tblAtten(ManagEmp, UserFullName, EmpGrade, Scale, GradeSerialN)SELECT ManagEmp, UserFullName, EmpGrade, Scale, GradeSerialN FROM tblEmployees ORDER BY GradeSerialN ASC, Scale DESC, EmpGrade DESC " ORDER BY GradeSerialN ASC, Scale DESC, EmpGrade DESC



        Command = New OleDbCommand(strSQL, Con)

        Command.ExecuteNonQuery()

        Con.Close()

كود :

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

        Me.ArabicDate1.MyText = Class1.GetTodayHijriDate

        Me.lblDays.Text = Class1.GetTodayHijriDay

        '--------------------------------------'

        ' تعاريف 

        Dim strSQL As String = ""

        Dim Command As New OleDbCommand()

        Dim cmd1, cmd2, cmd3, cmdUpdate As New OleDbCommand()

        ' فتح الاتصال

        If Con.State = ConnectionState.Open Then Con.Close()

        Con.Open()

        ' الاستعلام عن السجلات التي تحتوي تاريخ اليوم

        cmd1 = New OleDbCommand(" Select DateOfDay From tbl2 WHERE DateOfDay=#" & Me.ArabicDate1.MyText & "#", Con)

        Dim dr1 As OleDbDataReader = cmd1.ExecuteReader

        If dr1.HasRows Then

            MsgBox("بيانات هذا اليوم تم نقلها سابقا")

            Exit Sub

        Else

            ' اذا لم يكن هناك سجلات تحمل تاريخ اليوم سيتم اضافتها

            '-----نقل البيانات-------'

            strSQL = " INSERT INTO tbl2 (ManagEmp, UserName, EmpGrade)SELECT ManagEmp, UserName, EmpGrade FROM tbl1 "

            cmd2 = New OleDbCommand(strSQL, Con)

            cmd2.ExecuteNonQuery()

            '-----الاستعلام عن حقل التاريخ الفارغ ثم التعديل-------'



            cmd3 = New OleDbCommand(" Select DateOfDay From tbl2 WHERE ( DateOfDay IS NULL)", Con)

            Dim dr3 As OleDbDataReader = cmd3.ExecuteReader

            If dr3.HasRows Then

                cmdUpdate.CommandText = "UPDATE tbl2 SET DateOfDay= #" & Me.ArabicDate1.MyText & "# WHERE (DateOfDay IS NULL)"

                cmdUpdate.CommandType = CommandType.Text

                cmdUpdate.Connection = Con

                cmdUpdate.ExecuteNonQuery()



            End If

        End If

        ' اغلاق الاتصال

        Con.Close()

        Load_Data()

        Me.DataGridView1.DataSource = DataDT



    End Sub