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

مثال بسيط جدا احببت ان اخطه بيدي اقصد اشارك به وهو كالتالي:
نضيف عدد 2 شبيكة بيانات وزر امر
في منطقة التصريحات العامة نكتب
رمز برمجي:
كود :
Dim str As String = "provider=microsoft.ace.oledb.12.0; data source=|datadirectory|\db.accdb"
    Dim con As New OleDb.OleDbConnection(str)

    Dim sql1 As String = "select * from tb1"
    Dim sql2 As String = "select * from tb2"


    Dim ds1 As New DataSet
    Dim ds2 As New DataSet

    Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)
    Dim da2 As New OleDb.OleDbDataAdapter(sql2, con)
وعند حدث تحميل النموذج نكتب
رمز برمجي:
كود :
If con.State = ConnectionState.Open Then
            con.Close()
        End If


        ds1.Clear()
        ds2.Clear()

        DataGridView1.DataSource = Nothing
        DataGridView2.DataSource = Nothing

        da1.Fill(ds1, "tb1")
        da2.Fill(ds2, "tb2")



        DataGridView1.DataSource = ds1
        DataGridView1.DataMember = "tb1"


        DataGridView2.DataSource = ds2
        DataGridView2.DataMember = "tb2"
وعند حدث النقر للزر نكتب
رمز برمجي:
كود :
Dim cm As New OleDb.OleDbCommand("insert into tb2 select * from tb1", con)
        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        Try
            cm.ExecuteNonQuery()
            Call Form1_Load(Me, e)

        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            If con.State = ConnectionState.Open Then
                con.Close()
            End If
        End Try
انتهى!
هذا الكود مفيد لو حبيت اخذ نسخة من الجدول لجدول آخر عند التعديل او الحذف ولو احببت استرجاع النسخة فقط بدل في اسماء الجداول في جملة التنفيذ cm
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#2
ممكن استخدام السيكوال التالي لنسخ بيانات من الجدول الاول لجدول جديد

كود :
Select col1,col2,col3,col4 into newtable from tableone
Microsoft Partner
MCSE SQL Server 2012 Data platform
MCITP SQL Server 2008 Database design and developer
MCITP SQL server 2008 Business intelligence
MCT Microsoft Certified Trainer since 2010
MCTs Sharpoint Server 2010 Application Development
MCTs Visual studio 2010 web Application
MCTs Visual studio 2010 windows application
MOS Microsoft Office Access 2010
MOS Microsoft Office Access 2013
OCA Oracle 11g Certified Associated
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 72 04-11-16, 11:52 AM
آخر رد: أبولجين
  اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما) سعود 4 1,156 07-09-16, 12:14 AM
آخر رد: محمد بن عطية
  الإضافة و التعديل و الحذف من جدول عن طريق DataGrid MR Dev Boody 0 2,034 20-09-12, 04:04 AM
آخر رد: MR Dev Boody

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


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