كيف يمكن نسخ جدول من قاعدة بيانات الي اخري
بالامر copy وليس select
اي
كانه استيراد جدول من قاعدة الي اخي بالمعالج
حصلت علي هذا الكود
لكن
If CopyTableToDatabase("Table1", Application.StartupPath & "\db1.mdb", "", Application.StartupPath & "\db2.mdb", "", False) Then
البهوات والبشوات كما يقولون عندنا في مصر للسادة العظماء
جملة select تنقل البيانات الي جدول جديد او موجود
اما CopyTableToDatabase اي نسخ الجدول تنسخه كما هو مثل اسماء راس الاعمدة والشروط validation مثلا id نص رأس العمود اي عنوان العمود يصبح م
الكود موجود علي احد المواقع كما نسخته لكن به خطأ
ايضا ليه اجوز select يمكن فيه عروسة احلي تعجني انا وغيري ونحل مشكلة الشباب ويجوزها اكثر من شخص
28-01-18, 11:38 PM (آخر تعديل لهذه المشاركة : 28-01-18, 11:39 PM {2} بواسطة عبدالله الدوسري.)
(28-01-18, 03:10 PM)atefkhalf2004 كتب : البهوات والبشوات كما يقولون عندنا في مصر للسادة العظماء
جملة select تنقل البيانات الي جدول جديد او موجود
اما CopyTableToDatabase اي نسخ الجدول تنسخه كما هو مثل اسماء راس الاعمدة والشروط validation مثلا id نص رأس العمود اي عنوان العمود يصبح م
الكود موجود علي احد المواقع كما نسخته لكن به خطأ
ايضا ليه اجوز select يمكن فيه عروسة احلي تعجني انا وغيري ونحل مشكلة الشباب ويجوزها اكثر من شخص
atefkhalf2004 الله يجوزك الي تحب إن شاء الله
نفذ جملة الإستعلام التالية :
كود :
Dim cmd As New OleDb.OleDbCommand("SELECT Table1.* INTO TABLE1 IN 'C:\Database2.accdb' FROM Table1;", con)
سيتم نسخ الجدول , الهيكل مع البيانات
من القاعدة 1 إلى القاعدة 2
الـ Connection لقاعدة البيانات 1
وقاعدة البيانات 2 موجودة في جملة الإستعلام
إذا كانت قاعدة البيانات 2 موجود فيها نفس الجدول بنفس الاسم سيتم حذفة وإنشاء جدول جديد بنفس الهيل وترحيل كل البيانات الموجودة في الجدول القديم
29-01-18, 04:06 PM (آخر تعديل لهذه المشاركة : 29-01-18, 04:10 PM {2} بواسطة atefkhalf2004.)
السادة الافاضل
واضح ان احد بص لي في العروسة select
استخدمت الكود التالي وبه خطا
الجدول المراد نسخه هو school الي جدول تحت اسم gggg في القاعدة الموجودة علي ال d:
If Conn.State = ConnectionState.Open Then Conn.Close()
Dim SavInto7 As New OleDb.OleDbCommand
SavInto7.Connection = Conn
SavInto7.CommandType = CommandType.Text
'SavInto7.CommandText = "SELECT * INTO bbbb FROM student"
SavInto7.CommandText = "SELECT school.* into gggg in '[MS Access;PWD=123321;DATABASE=d:\primary1617.mdb]' FROM school "
Conn.Open()
SavInto7.ExecuteNonQuery()
Conn.Close()
حضرتك الطريقة دي تنسخ السجلات فقط
ارغب في عمل استيراد للجدول مثل نسخ الجدول من خلال المعالج لانه يسخه كله بما في ذلك تعريفات الاعمدة الحقول
وايضا هذا الكود اعطي خطا لماذا
SavInto7.CommandText = "SELECT school.* INTO [;DATABASE=MS Access;PWD=123321;DATABASE=d:\primary1617.mdb].aaaa2 FROM school "
(29-01-18, 04:06 PM)atefkhalf2004 كتب : السادة الافاضل
واضح ان احد بص لي في العروسة select
استخدمت الكود التالي وبه خطا
الجدول المراد نسخه هو school الي جدول تحت اسم gggg في القاعدة الموجودة علي ال d:
If Conn.State = ConnectionState.Open Then Conn.Close()
Dim SavInto7 As New OleDb.OleDbCommand
SavInto7.Connection = Conn
SavInto7.CommandType = CommandType.Text
'SavInto7.CommandText = "SELECT * INTO bbbb FROM student"
SavInto7.CommandText = "SELECT school.* into gggg in '[MS Access;PWD=123321;DATABASE=d:\primary1617.mdb]' FROM school "
Conn.Open()
SavInto7.ExecuteNonQuery()
Conn.Close()
حضرتك الطريقة دي تنسخ السجلات فقط
ارغب في عمل استيراد للجدول مثل نسخ الجدول من خلال المعالج لانه يسخه كله بما في ذلك تعريفات الاعمدة الحقول
وايضا هذا الكود اعطي خطا لماذا
SavInto7.CommandText = "SELECT school.* INTO [;DATABASE=MS Access;PWD=123321;DATABASE=d:\primary1617.mdb].aaaa2 FROM school "
اخي الكريم : اتبع نفس الكود في مشاركتي السابقة
فقط عدل اسماء الجداول ومسار القاعدة.
انت تضيف نص الاتصال بالكامل داخل جملة الاستعلام، اكيد لن يعمل الكود.