وعليكم السلام ورحمة الله وبركاته
خلاف ان رد الاخ 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)
تحياتى لك وللجميع
وتمنياتى للجميع التوفيق
