30-08-21, 12:10 AM
السلام عليكم ورحمة الله وبركاته
استخدمت هذا الكود لنقل جزء من البيانات الى جدول آخر
ويوجد في الجدول الثاني حقل لتاريخ اليوم و الملاحظات
وارغب في اضافة وتعبئة حقل التاريخ الى جميع السجلات حسب ما هو مكتوب في اداة التاريخ
هذا الكود المستخدم في نقل البيانات من جدول الى الجدول الثاني
استخدمت هذا الكود لنقل جزء من البيانات الى جدول آخر
ويوجد في الجدول الثاني حقل لتاريخ اليوم و الملاحظات
وارغب في اضافة وتعبئة حقل التاريخ الى جميع السجلات حسب ما هو مكتوب في اداة التاريخ
كود :
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()
هذا الكود المستخدم في نقل البيانات من جدول الى الجدول الثاني