+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : كيف يمكن نسخ جدول من قاعدة بيانات الي اخري (/showthread.php?tid=23476)
كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - atefkhalf2004 - 22-01-18
كيف يمكن نسخ جدول من قاعدة بيانات الي اخري
بالامر copy وليس select
اي
كانه استيراد جدول من قاعدة الي اخي بالمعالج
حصلت علي هذا الكود
لكن
If CopyTableToDatabase("Table1", Application.StartupPath & "\db1.mdb", "", Application.StartupPath & "\db2.mdb", "", False) Then
'If CopyTableToDatabase("Table1", Application.StartupPath & "\Database1.accdb", "", Application.StartupPath & "\Database1.accdb", "", True) Then
MsgBox("تم النسخ بنجاح")
Else
MsgBox("فشلت عملية النسخ")
End If
يظهر حطا تحت
CopyTableToDatabase
هل هي مكتبة وكيف نرفقها
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - atefkhalf2004 - 26-01-18
السادة احتاج كود استيراد جدول من قاهدة
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - أبوبكر سويدان - 28-01-18
وما العيب في SELECT ؟
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - عبدالله الدوسري - 28-01-18
(28-01-18, 01:04 AM)أبوبكر سويدان كتب : وما العيب في SELECT ؟
ما تنفعش للجواز .. أصل بيقولو وحشة
الكود الي أرفقة الأخ atefkhalf2004
كتبة شخص آخر
ولكن الأخ atefkhalf2004 لم يحصل على الكود كامل
والأمر CopyTableToDatabase مفقود
حتتجوز SELECT يعني حتتجوز SELECT
مفيش Copy
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - atefkhalf2004 - 28-01-18
البهوات والبشوات كما يقولون عندنا في مصر للسادة العظماء
جملة select تنقل البيانات الي جدول جديد او موجود
اما CopyTableToDatabase اي نسخ الجدول تنسخه كما هو
مثل اسماء راس الاعمدة والشروط validation
مثلا id نص رأس العمود اي عنوان العمود يصبح م
الكود موجود علي احد المواقع كما نسخته لكن به خطأ
ايضا ليه اجوز select يمكن فيه عروسة احلي
تعجني انا وغيري ونحل مشكلة الشباب ويجوزها اكثر من شخص
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - عبدالله الدوسري - 28-01-18
(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 موجود فيها نفس الجدول بنفس الاسم سيتم حذفة وإنشاء جدول جديد بنفس الهيل وترحيل كل البيانات الموجودة في الجدول القديم
مبروك عليك الـ SELECT
امتى الفرح
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - مصمم الدوادمي - 28-01-18
من اخر اعمالنا في البرمجة
[img=1304x799]http://www.m5zn.com/newuploads/2018/01/28/png//m5zn_7e91c96a15bcb76.png[/img]
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - atefkhalf2004 - 29-01-18
السادة الافاضل
واضح ان احد بص لي في العروسة 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 "
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - عبدالله الدوسري - 29-01-18
(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 "
اخي الكريم : اتبع نفس الكود في مشاركتي السابقة
فقط عدل اسماء الجداول ومسار القاعدة.
انت تضيف نص الاتصال بالكامل داخل جملة الاستعلام، اكيد لن يعمل الكود.
RE: كيف يمكن نسخ جدول من قاعدة بيانات الي اخري - atefkhalf2004 - 30-01-18
حضرتك استخدمت الكود الخاص بك وايضا اعطي مشكلة
كود :
Dim cmd As New OleDb.OleDbCommand("SELECT Table1.* INTO TABLE1 IN 'C:\Database2.accdb' FROM Table1;", con)كيف اجعل مسار القاعدة واجعلها المسار الحالي