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

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

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

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


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


الملفات المرفقة
.zip   saud.zip (الحجم : 3.26 ك ب / التحميلات : 82)
الرد }}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 83)
الرد }}}
تم الشكر بواسطة: Sajad
#8
شكرا لحضرتك تعبتك كثيييييييييييييييييييييييييييييييير
عاجز عن الشكر لك
الرد }}}
تم الشكر بواسطة:
#9
الاستاذ الفاضل

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  *[- تم الحل -]* ما هو كود اضافة ميزة المفتاح الاساسي لعمود ترقيم تلقائي موجود سعود 2 493 27-05-23, 01:44 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 959 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  عدد السجلات ورقم السجل الحالى فى ال datagridview اسلام الكبابى 2 1,105 10-09-21, 07:36 PM
آخر رد: dalas
  [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW atef_020 9 28,315 31-08-21, 04:59 AM
آخر رد: a7med saba
  [سؤال] مشكلة اضافة التاريخ مع قاعدة بيانات alims 6 2,335 25-01-21, 02:45 AM
آخر رد: alims
  [سؤال] نقل البيانات من جدول إلى أخر SQL Server 2008 semsemalex 7 14,779 19-04-20, 12:00 AM
آخر رد: essamprog2020
  اضافة ارقام تسلسلية فيsql Hassan.syria 1 1,367 21-11-19, 09:07 PM
آخر رد: Hassan.syria
  كود حذف صورة من جدول اكسس samira20 1 1,787 05-07-19, 07:50 PM
آخر رد: elgokr
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 10,219 01-07-19, 12:28 PM
آخر رد: essamprog
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 7,936 10-06-19, 09:31 PM
آخر رد: sherf

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


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