المشاركات : 15
المواضيع 6
الإنتساب : Feb 2014
السمعة :
1
الشكر: 2
تم شكره 4 مرات في 3 مشاركات
السلام عليكم
اريد نقل البيانات من جدول داخل قاعدة بيانات الى جدول اخر فى قاعدة بيانات اخري .
مع العلم قاعدة البيانات والجدول ... هو بنفس اسم الجدول ونفس اسم قاعدة البيانات .
وشكرا
المشاركات : 103
المواضيع 14
الإنتساب : Sep 2012
السمعة :
1
الشكر: 14
تم شكره 65 مرات في 36 مشاركات
السلام عليكم و رحمة الله و بركاته
ينقل إلى القسم المناسب
بالنسبة لسؤالك ، تضع بيانات الجدول المراد نقله في DataTable ثم بواسطة حلقة for each ....... next تنقل الصفوف إلى الجدول الموجود في قاعدة البيانات الثانية بواسطة insert into ...........
السلام عليكم و رحمة الله و بركاته
المشاركات : 15
المواضيع 6
الإنتساب : Feb 2014
السمعة :
1
الشكر: 2
تم شكره 4 مرات في 3 مشاركات
السلام عليكم
شكرا اخي وبارك الله فيك .
هذا هو كودي ولاكنه يقوم بنقل السجل الاول فقط اكثر من مره .
حيث ان con هى القاعدة الاولة والجدول اسمه tabel2 .
وان conn هى القاعدة الثانية والجول اسمه tabel2
Dim s As String = "select * from tabel2"
Dim ad1 As New OleDbDataAdapter(s, Con)
Dim ds1 As New DataSet()
ds1.Clear()
ad1.Fill(ds1, "tabel2")
Dim ta1 As DataTable
Dim rs1 As DataRow
Dim i As Integer
ta1 = ds1.Tables("tabel2")
Dim add As String = "insert into tabel2 (auno,no1,no2,na1,no_s,dat1,con1,val_s,val1,mem1) values (@p,@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9) "
Dim p As New OleDbCommand(add, Conn)
For each i = 0 To ta1.Rows.Count - 1
Update()
rs1 = ta1.Rows(i)
p.Parameters.AddWithValue("@p", rs1("auno"))
' et.Parameters.Add("@e", rs1("item_no"))
p.Parameters.AddWithValue("@p1", rs1("no1"))
p.Parameters.AddWithValue("@p2", rs1("no2"))
p.Parameters.AddWithValue("@p3", rs1("na1"))
p.Parameters.AddWithValue("@p4", rs1("no_s"))
p.Parameters.AddWithValue("@p5", rs1("dat1"))
p.Parameters.AddWithValue("@p6", rs1("con1"))
p.Parameters.AddWithValue("@p7", rs1("val_s"))
p.Parameters.AddWithValue("@p8", rs1("val1"))
p.Parameters.AddWithValue("@p9", rs1.Table.Rows(i)("mem1"))
p.ExecuteNonQuery()
Update()
Next
Update()
p.Dispose()
ds1.Dispose()
MsgBox("End Move Database")
المشاركات : 15
المواضيع 6
الإنتساب : Feb 2014
السمعة :
1
الشكر: 2
تم شكره 4 مرات في 3 مشاركات
السلام عليكم ..
بارك الله فيكم جميعاً ماقصرتوا والله .. جزاكم الله خير .
مع اني استخدمت كود اخر باستخدام داتا جريد ثم عمل حلقة ونقل كل صف الى متغير ومن ثم اضافته .
للعلم : ربي يحفظكم والله انكم محترفين ،، وانا شخصياً استفدة جداً من طريقتكم واسلوبكم فى البرمجة .
شكرا لكم .