[elgokr]

وعليكم السلام ورحمة الله وبركاته

خلاف ان رد الاخ hglogtd

لمخص كل ما تريده خصوصاً فى الفيديو الثاني

دون اى معاناه او تعب فى تحويل قاعدة البيانات

رغم طلبك للطريقة الذى شرحها الاخ حريف برمجة

حيث انه تم ارفاقها كا سورس من خلال الاخ princelovelorn

من حيث تشابه الفكرة 

اليك سورس يوضح الفكرة اكثر لطريقة نقل البيانات من قاعدة بيانات الى اخري

تذكر السورس المرفق ما هو الا مثال بسيط وعليك من تطوير الفكرة وتم عمله حتى تعم الفائدة

صورة البرنامج

صورة انشاء جدول قاعدة البيانات Access

البيانات داخل جدول قاعدة بيانات الـ Access

الان عليك انشاء قاعدة بيانات Sql وتجعل الجدول طبقاً بيانات التالى

عند تشغيل البرنامج لنقل البيانات من Access الى Sql

ستجد البيانات بالنهاية فى جدول Sql بهذا الشكل

كود الفورم كاملاً المستخدم فى السورس

كود :

Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports System.Globalization
Imports System.Threading

Public Class Form1

   ' Access Database 2007 : Up
   Dim strAcc As String = "provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\Database.accdb"
   Dim conAcc As OleDbConnection = New OleDbConnection(strAcc)
   Dim adpAcc As OleDbDataAdapter
   Dim cmmAcc As OleDbCommandBuilder
   Dim comAcc As OleDbCommand

   ' Sql Server Database
   Dim conSql As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=Database;Integrated Security=True")
   Dim adpSql As SqlDataAdapter

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

       ' Select Data Access Database
       Dim dtAcc As New DataTable
       dtAcc.Clear()
       Dim SelectAcc As String = "SELECT * FROM " & TextBox1.Text
       adpAcc = New OleDbDataAdapter(SelectAcc, conAcc)
       cmmAcc = New OleDbCommandBuilder(adpAcc)
       adpAcc.Fill(dtAcc)

       ' Insert Data Sql Server
       Dim cmd As New SqlCommand
       cmd.CommandType = CommandType.Text
       cmd.Connection = conSql
       If conSql.State = ConnectionState.Closed Then conSql.Open()
       For ii As Integer = 0 To dtAcc.Rows.Count - 1
           Dim SelectSql As String = "INSERT INTO " & TextBox2.Text & " (MyName, DateDay) VALUES ('" & dtAcc(ii)(1) & "', '" & dtAcc(ii)(2) & "')"
           cmd = New SqlCommand(SelectSql, conSql)
           cmd.ExecuteNonQuery()
       Next
       conSql.Close()



       MsgBox("Complete the data import successfully.")

   End Sub

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ' هذا السطر لجعل التاريخ ميلادى تجنباً لحدوث اى مشكلة فى التواريخ بين الهجري والميلادي عند النقل
       Thread.CurrentThread.CurrentCulture = CultureInfo.CreateSpecificCulture("en-US")
   End Sub
End Class

تذكر عليك ان تجعل الرنامج يعمل على بيئة 32Bit وليس AnyCPU 

تجنباً من حدوث اى مشكلة تحدث بسبب قواعد بيانات الـ Access

مرفق السورس + برنامج للاختبار مع قواعد البيانات الموضحة بالرد مع صور الرد

السورس (2015)

تحياتى لك وللجميع

وتمنياتى للجميع التوفيق