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

حاولت اضافة السجلات المختلفة من جدول student الي جدول gubjects

لم اعرف اصيغ الحلقات التكراربة

برجاء تعديل الكود


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 109.88 ك ب / التحميلات : 51)
الرد }}}}
تم الشكر بواسطة:
#2
شوف فورم جديد باسم saud لان الاصدار اللي عند 2010 المثال مرفق


الملفات المرفقة
.zip   saud.zip (الحجم : 3.26 ك ب / التحميلات : 46)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Sajad
#3
السد الفاضل
هذا يضيف كل السجلات
كيف يضيف المحتلف فقط
برجاء الرد
الرد }}}}
تم الشكر بواسطة:
#4
هلا بيك
ثلاث ايام انتظر رايك Smile
على كل حال مافهمت الجزئية التي تخص الاختلاف! كتبت المثال بناء على مافهمته من الموضوع.
ممكن فضلا .. ان تبين بشكل اكثر المقصود بــ
إقتباس : المحتلف فقط
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
اولا اشكرك علي اهتمامك
ثانيا انا احيانا ادخل سريع علي الموقع لان هذه الايام ايام امتحانات
لكن عندما اضع الموضوع اتابعه لاني اكون محتاجه جدا جدا

ثالثا : انا اريد عندي جدولين لهم نفس الحقول
ارغب في اضافة السجلات المختلفة من الجدول الاول الي الثاني
اي
يتم مقارنة السجلات في الجدول الاول بالسجلات في الجدول الثاني
ويتم اضافة المختلف فقط
حضرتك اظهرت الاختلاف في الجريد
لكن كيف اضيف المختلف ؟؟؟
الرد }}}}
تم الشكر بواسطة:
#6
إقتباس :حضرتك اظهرت الاختلاف في الجريد
لكن كيف اضيف المختلف ؟؟؟
اللي استخدمته كود حفظ محتويات الجدول الاول الى الثاني من غير شروط.
لكن يبدو ان الفكرة صارت اوضح من قبل واظن اننا بحاجة لجدول ثالث لاضافة المختلف بين الجدولين.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
شوف!
اضف ثلاث جداول كل جدول به عمود باسم tn نصي
اضف للجدول الاول والثاني قيم مكررة واخرى فريدة اي بجدول واحد فقط
ثم انظر لهذا الكلاس
PHP كود :
Imports System.Data.OleDb

Public Class Form1
    Dim str 
As String "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    
Dim con As New OleDbConnection(str)
    
Dim ds As New DataSet

    
Private Sub gd()
        If 
con.State ConnectionState.Open Then
            con
.Close()
        
End If
        
ds.Clear()
        
d1.DataSource Nothing
        d2
.DataSource Nothing
        d3
.DataSource Nothing

        Dim da1 
As New OleDbDataAdapter("select * from tb1"con)
        
Dim da2 As New OleDbDataAdapter("select * from tb2"con)
        
Dim da3 As New OleDbDataAdapter("select * from tb3"con)


        
da1.Fill(ds"tb1")
        
da2.Fill(ds"tb2")
        
da3.Fill(ds"tb3")



        
d1.DataSource ds.Tables(0)
        
d2.DataSource ds.Tables(1)
        
d3.DataSource ds.Tables(2)


    
End Sub

    
Private Sub Form1_FormClosing(sender As ObjectAs System.Windows.Forms.FormClosingEventArgsHandles Me.FormClosing
        
If con.State ConnectionState.Open Then
            con
.Close()
        
End If
    
End Sub
    
Private Sub Form1_Load(sender As System.ObjectAs System.EventArgsHandles MyBase.Load
        gd
()
    
End Sub

    
Private Sub Button1_Click(sender As System.ObjectAs System.EventArgsHandles Button1.Click
        Dim cm 
As New OleDbCommand("select tn from tb1"con)
        If 
con.State ConnectionState.Closed Then
            con
.Open()
        
End If
        
Dim dr As OleDbDataReader cm.ExecuteReader
        
While dr.Read
            Dim sql 
As New OleDbCommand("select tn from tb2 where tn='" dr.Item("tn") & "'"con)
            If 
con.State ConnectionState.Closed Then
                con
.Open()
            
End If
            
Dim dr2 As OleDbDataReader sql.ExecuteReader
            
If dr2.Read False Then
                Dim ins 
As New OleDbCommand("insert into tb3 (tn) values(@tn)"con)
                
ins.Parameters.AddWithValue("@tn"dr.Item("tn"))
                If 
con.State ConnectionState.Closed Then
                    con
.Open()
                
End If
                
ins.ExecuteNonQuery()
            
End If
        
End While
        
gd()
    
End Sub
End 
Class 



المثال مرفق وهو يقوم بفحص سجلات الجدول الاول ويقارنها بسجلات الجدول الثاني وان وجد سجلا في الاول وغير موجود في الثاني يضيفه للجدول الثالث


الملفات المرفقة
.zip   For_atefkhalf2004.zip (الحجم : 46.81 ك ب / التحميلات : 44)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة: Sajad
#8
شكرا لحضرتك تعبتك كثيييييييييييييييييييييييييييييييير
عاجز عن الشكر لك
الرد }}}}
تم الشكر بواسطة:
#9
الاستاذ الفاضل

فعلا محتاج كيف اضيف من ملف اكسل الي الاكسس
بفرض ان الجدول الذي سوف نضيف منه الي الاكسس هو ورقة اكسل
الرد }}}}
تم الشكر بواسطة:
#10
الاستاذ الفاضل


كيف اضيف مباشر من الاكسل الي الاكسس
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 283 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 178 04-11-16, 09:25 AM
آخر رد: thevirus
  التنبيه عند اضافة عميل makky 2 190 18-06-16, 07:22 PM
آخر رد: boudyonline
  مشكلة ربط قواعد البيانات للفورمات المختلفة ali jamal 0 161 07-06-16, 02:31 PM
آخر رد: ali jamal
  تعديل بيانات حقل في جميع السجلات aftfm 2 276 31-05-16, 06:32 PM
آخر رد: Sajad
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 358 31-05-16, 12:10 AM
آخر رد: kofa
  [Acces2010] نقل عدد من السجلات من نموذج لاخر gamarat 2 283 28-04-16, 10:43 PM
آخر رد: amgad525
  [سؤال] نقل بيانات من جدول الى اخر shawq 1 252 22-04-16, 04:19 AM
آخر رد: khodor1985
  كيفية التأكد من تعبئة الحقول في جدول بقاعدة البيانات aftfm 6 337 06-04-16, 08:38 PM
آخر رد: aftfm
  نسخ جدول من قاعدة الي اخري atefkhalf2004 8 489 27-02-16, 10:25 PM
آخر رد: atefkhalf2004

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


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