[aftfm]

السلام  عليكم ورحمة الله وبركاته


استخدمت هذا الكود لنقل جزء من البيانات الى جدول آخر

ويوجد في الجدول الثاني حقل لتاريخ اليوم و الملاحظات 
وارغب في اضافة وتعبئة حقل التاريخ الى جميع السجلات حسب ما هو مكتوب في اداة التاريخ

   

كود :

 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()

هذا الكود المستخدم في نقل البيانات من جدول الى الجدول الثاني