11-10-16, 04:34 PM
السلام عليكم
بحثت كثيرا قبل طرح السؤال
هذه بداية الكود
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
علما ان اعمدة الاول تزيد واحد عن الثاني
وجزاكم الله خيرا
بحثت كثيرا قبل طرح السؤال
هذه بداية الكود
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
علما ان اعمدة الاول تزيد واحد عن الثاني
وجزاكم الله خيرا
اللهم لا علم لنا إلا ما علمتنا
http://www.facebook.com/samira.abdalla.980
http://www.facebook.com/samira.abdalla.980