ترحيل البيانات

لقد تقصد عن طريق الاكسس ممكن تسأل في منتدي الاكسس

لو عن طريق الكود ابدأ بالطريقة البسيطة

اتصل بالقاعدتين ثم اعمل select من الجدول الاول ثم insert في الجدول التاني

حياك الله اخي AhmedElbaz

أنا اقصد عن طريق البرمجة بالفيجوال بيسك .

على العموم انا وجدت الحل وهو كالتالي :

 Dim sourceConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=" & Ps & ";" & "Data Source =" & Application.StartupPath & "\" & "FromData.mdb"
		Dim sourceSQL As String = "SELECT * FROM " FromTable

		Dim targetConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=" & Ps & ";" & "Data Source =" & Application.StartupPath & "\" & "IntoData.mdb"
		Dim targetSQL As String = "SELECT * FROM " & IntoTable

		Dim targetCon As New OleDbConnection(targetConStr)
		Dim targetDA As New OleDbDataAdapter(targetSQL, targetCon)
		Dim cb As New OleDbCommandBuilder(targetDA)
		Dim targetCommand As OleDbCommand = cb.GetInsertCommand

		Dim sourceCon As New OleDbConnection(sourceConStr)
		Dim sourceCommand As New OleDbCommand(sourceSQL, sourceCon)
		targetCommand.Connection.Open()
		sourceCon.Open()
		Dim sourceReader As OleDbDataReader
		sourceReader = sourceCommand.ExecuteReader()
		While sourceReader.Read()
			For i As Integer = 0 To sourceReader.FieldCount - 1
				targetCommand.Parameters(i).Value = sourceReader(i)
			Next
			targetCommand.ExecuteNonQuery()
		End While
		sourceReader.Close()
		sourceCon.Close()
		targetCommand.Connection.Close()

ولكن لدي مشكلة وهي :

عند ترحيل البيانات الى الجدول الآخر أجد أن ترتيب الصفوف Row تغيرت , وهذا ما لا اريده فما الحل ؟

Up

لو فيه pk هيترتب علي اساسه

علي العموم و انت بتعمل select اعمل order by بالشكل المطلوب