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

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

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

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


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


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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود حذف صورة من جدول اكسس samira20 1 172 05-07-19, 07:50 PM
آخر رد: elgokr
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 5,825 01-07-19, 12:28 PM
آخر رد: essamprog
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,671 10-06-19, 09:31 PM
آخر رد: sherf
  استدعاء بيانات من اكثر من جدول المتألق9 1 251 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  عرض اسم عميلين في جدول العملاء بشرط ارقامهم بجدول اخر يونس علي 1 220 26-04-19, 03:16 AM
آخر رد: محمد كريّم
  كود تصفير عمود في جدول اكسس samira20 1 284 31-03-19, 09:02 PM
آخر رد: بدري
  كود حذف سجل من جدول مرتبط مع جدول آخر samira20 3 311 28-03-19, 01:45 PM
آخر رد: Amir_Alzubidy
  (سؤال؟)كود اضافة التاريخ في قاعدة البيانات اسمهان 1 377 20-02-19, 11:08 AM
آخر رد: alfaiz678
  كود sql اضافة او تغير كلمة المرور لقاعدة البيانات اللورد محمود 1 313 28-01-19, 06:56 PM
آخر رد: عبد العزيز البسكري
  كيفية استرجاع جدول محدوف المتألق9 0 372 11-07-18, 08:34 PM
آخر رد: المتألق9

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


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