Dim accCon As New OleDb.OleDbConnection("...")
Dim sqlCon As New SqlClient.SqlConnection("...")
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("SELECT * FROM [table1]", accCon)
da.Fill(dt)
sqlCon.Open()
For Each r As DataRow In dt.Rows
Using cmd As New SqlCommand("INSERT INTO [table1] (column1, column2, ...) VALUES (@c1, @c2, ...)", sqlCon)
cmd.Parameters.AddWithValue("@c1", r(0))
cmd.Parameters.AddWithValue("@c2", r(1))
cmd.Parameters.AddWithValue(...
cmd.ExecuteNonQuery()
End Using
Next
sqlCon.Close()
(06-05-17, 10:09 PM)mansoor كتب : [ -> ]اعمل استعلام SELECT من جدول قاعدة بيانات أكسس على أن تكون النتيجة في DataTableالاستعلام ده اعمله فين بالظبط يا اخ منصور وانا شاكر على تجاوبك بسرعة كما عهدتك
ثم قم بالمرور على Rows الخاصة ب DataTable واضافتها ب INSERT في جدول قاعدة بيانات سيكويل سيرفر
وهذا مثال للطريقة
PHP كود :
Dim accCon As New OleDb.OleDbConnection("...")
Dim sqlCon As New SqlClient.SqlConnection("...")
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("SELECT * FROM [table1]", accCon)
da.Fill(dt)
sqlCon.Open()
For Each r As DataRow In dt.Rows
Using cmd As New SqlCommand("INSERT INTO [table1] (column1, column2, ...) VALUES (@c1, @c2, ...)", sqlCon)
cmd.Parameters.AddWithValue("@c1", r(0))
cmd.Parameters.AddWithValue("@c2", r(1))
cmd.Parameters.AddWithValue(...
cmd.ExecuteNonQuery()
End Using
Next
sqlCon.Close()
(06-05-17, 11:18 PM)mansoor كتب : [ -> ]في زر مثلا ولكن لا تنفذه أكثر من مرة والا سيكرر البيانات في جدول سيكويل سيرفر
النتيجة قد لا تكون كما تريد خصوصا اول قد تحدث خطا اذا كان هناك بيانات مرتبطة بجداول اخرى او بسبب حقول الترقيم التلقائي
المسألة ليست بسيطة
هناك طريقة ترحيل البيانات من ملف الاكسس الى سيكويل سيرفر قد تكون افضل من استخدام البرمجة
ولكن هذه تتم من داخل SqlServer Manegment
Start the SQL Server Import and Export Wizard
ايضا توجد هذه الطريقة ايضا، وجدتها بعد البحث، ولكن لم اعمل بها سابقا
Import data from Microsoft Access to SQL Server