تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اضافة التاريخ الى جميع السجلات
#1
السلام  عليكم ورحمة الله وبركاته


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

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

   
كود :
 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()

هذا الكود المستخدم في نقل البيانات من جدول الى الجدول الثاني
الرد
تم الشكر بواسطة: asemshahen5
#2
السلام عليكم ورحمة الله وبركاته
اخي الكريم قم باضافة كود تعدبل لحقل التاريخ بدون شرط بعد جملة الانسرت بحيث يأخذ من اداة التاريخ وبهذا سيتم تعديل كل السجلات بتاريخ اداة التاريخ
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: aftfm , asemshahen5 , asemshahen5
#3
جزيت خيراً اخي العزيز

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

لكن اريده بشروط معينة

1- عدم التكرار في حالة وجود نفس تاريخ اليوم


بيحث يتم نقل البيانات والتعديل على التاريخ في حالة ما إذا كان التاريخ غير موجود



كود :
    Dim cmdUpdate As New OleDbCommand
            cmdUpdate.CommandText = "UPDATE tblAtten SET DateOfDay= #" & Me.txtDateOfDay.MyText & "#"
            cmdUpdate.CommandType = CommandType.Text
            cmdUpdate.Connection = Con
            cmdUpdate.ExecuteNonQuery()

وضعت شرط التحقق من التاريخ



كود :
 Dim cmd As New OleDbCommand(" Select DateOfDay From tblAtten Where DateOfDay = #" & Me.txtDateOfDay.MyText & "#", Con)
        Dim dr As OleDbDataReader = cmd.ExecuteReader
        If dr.HasRows Then

        endif

ولكنه يقوم بتعديل التاريخ في حميع ا لسجلات

للتوضيح

اريد كل يوم نقل البيانات مع تاريخ جديد
وفي حالة التاريخ موجود لا يتم نقل البيانات
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5
#4
السلام عليكم
اخي الكريم 
لم تذكر انك تقوم بنقل سجلات كل يوم
اما وانك تقوم بنسخ سجلات معينة كل يوم وقد تكون عددا معينا وتريد عند نقلها ان تأخذ تاريخ اليوم وبما ان الجدول فيه بيانات سابقة قد تم ادخال تاريخ مختلف لكل مجموعة تم نقلها هنا سنعمل شرط اضافة التاريخ للسجلات التي تم نقلها اليوم بأن يكون التعديل شرط  ان يكون حقل التاريخ ب Is Null   او  Nothing وبهذا سيتم اضافة تاريخ اليوم يجب التجربة (لانني لم اجرب)
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: aftfm , asemshahen5
#5
هذا مثال للتوضيح


الملفات المرفقة
.rar   TransferAndUpdate.rar (الحجم : 112.62 ك ب / التحميلات : 7)
الرد
تم الشكر بواسطة: ابراهيم ايبو , asemshahen5 , asemshahen5
#6
السلام عليكم ورحمة الله وبركاته
اخي الكريم هذا كود النقل واضافة التاريخ وان كانت السجلات قد تم نقلها اليوم سوف لن يتم نقلها
اتمنى ان اكون قد فهمت منك ماتريد وان يلبي هذا الكود مرادك
1- قم بحذف السجلات من الحدول ثم شغل الكود ولاحط اضافة تاريخ اليوم
2 - اعد النقر على كود النقل سوف يخبرك ان بيانات هذا اليوم قد تم نقلها
3 - اذهب الى قاعدة البيانات الجدول الثاني وغير التاريخ الى تاريخ اقدم ثم شعل البرنامج وقم بنقل السجلات ستلاحط انه تم النقل واضافة تاريخ اليوم
بقي مسألة التاريخ الهجري يمكنك تعديله او حلها حسب ماترى
دمت بخير
كود :
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
اعمل الخير واجرك لاتنتظره فالله خير من اليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد
تم الشكر بواسطة: asemshahen5 , aftfm
#7
الف شكر اخي العزيز ابراهيم

الكود شغام 100%

هل في حالة اذا تغيير اليوم يتم نقل البيانات من جديد بتاريخ اليوم الجديد
صح كذا
الرد
تم الشكر بواسطة: asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوص حفظ التاريخ في قاعدة البيانات من نوع mysql 3loosh44 2 91 19-09-21, 08:47 PM
آخر رد: 3loosh44
  [VB.NET] كيفية اضافة ال public key token في البرنامج Codack 0 134 07-09-21, 07:30 PM
آخر رد: Codack
Exclamation [VB.NET] سؤال حول مشكلة كتابة التاريخ في جملة update ali bajmmal 4 405 01-09-21, 06:35 PM
آخر رد: Anas Mahmoud
  كود اضافة الفواصل العشرية ahmedbezia 7 463 09-08-21, 12:00 AM
آخر رد: ابراهيم ايبو
  عرض التاريخ الهجري في الكريستال ريبورت جيولوجي مبتدئ 8 385 06-08-21, 01:36 AM
آخر رد: جيولوجي مبتدئ
  فحص التاريخ و التوقيت و ظهور رسالة تخبرني بذلك العيدروس 4 235 04-08-21, 11:49 PM
آخر رد: العيدروس
  [VB.NET] تغير عرض التاريخ باداة DateTimePicker احمد 2021 0 189 02-08-21, 12:03 PM
آخر رد: احمد 2021
  [VB.NET] مشكلة فى التاريخ asdfar1977 5 468 02-08-21, 02:59 AM
آخر رد: asdfar1977
  مشكل فى التاريخ asdfar1977 0 284 01-08-21, 06:18 PM
آخر رد: asdfar1977
  [سؤال] كيف استبدال جميع أيقونات الفورمز مرة واحدة؟ abomo3ath 5 360 18-07-21, 10:51 PM
آخر رد: ابو انس

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم