+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى (/showthread.php?tid=17632)
نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى - samira20 - 11-10-16
السلام عليكم
بحثت كثيرا قبل طرح السؤال
هذه بداية الكود
If con2.State = ConnectionState.Closed = False Then con2.Close()
con2.Open()
Dim dtp As New OleDbDataAdapter("select * from test", con2)
Dim ds As New DataSet
dtp.Fill(ds, "test")
con2.Close()
If con1.State = ConnectionState.Closed = False Then con1.Close()
con1.Open()
Dim dtp1 As New OleDbDataAdapter("select * from tp1", con1)
Dim ds1 As New DataSet
dtp1.Fill(ds1, "tp1")
con1.Close()
اريد نسخ بيانات من tp1 الى test
علما ان اعمدة الاول تزيد واحد عن الثاني
وجزاكم الله خيرا
RE: نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى - silverlight - 11-10-16
استخدم الأمر Clone
هنا لا تحتاج الي انشاء Dataset جديدة
Dim ds2 as DataSet = ds1.clone
RE: نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى - samira20 - 12-10-16
جزاكم الله خيرا
ممكن تعديل الكود ...ما نجح معي
RE: نسخ بيانات جدول في داتا اكسس الى جدول في داتا اخرى - ابو ليلى - 12-10-16
و عليكم السلام و رحمة الله و بركاته
اختي الكريمة استخدمي الخاصية Copy ثم احذفي العمود المخالف بين الجدولين كما يلي
PHP كود :
test = tb1.Copy()
test.Columns.Remove("اسم الحقل المختلف")