تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف يمكن نسخ جدول من قاعدة بيانات الي اخري
#1
كيف يمكن  نسخ  جدول من قاعدة بيانات الي اخري
بالامر   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

هل هي مكتبة وكيف نرفقها
الرد
تم الشكر بواسطة:
#2
السادة احتاج كود استيراد جدول من قاهدة
الرد
تم الشكر بواسطة:
#3
وما العيب في SELECT ؟
الرد
تم الشكر بواسطة:
#4
(28-01-18, 01:04 AM)أبوبكر سويدان كتب : وما العيب في SELECT ؟



Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
ما تنفعش للجواز .. أصل بيقولو وحشة 



الكود الي أرفقة الأخ atefkhalf2004 
كتبة شخص آخر 
ولكن الأخ atefkhalf2004 لم يحصل على الكود كامل

والأمر CopyTableToDatabase مفقود


حتتجوز SELECT  يعني حتتجوز SELECT 
Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
مفيش Copy 
الرد
#5
البهوات والبشوات كما يقولون عندنا في مصر  للسادة العظماء
جملة select  تنقل البيانات  الي جدول جديد او موجود
اما  CopyTableToDatabase     اي نسخ  الجدول  تنسخه  كما هو 
مثل اسماء  راس الاعمدة  والشروط  validation 
مثلا   id    نص رأس العمود اي عنوان العمود يصبح     م  

الكود موجود  علي احد المواقع كما نسخته  لكن به  خطأ

ايضا   ليه اجوز  select    يمكن فيه عروسة احلي
تعجني انا وغيري   ونحل مشكلة الشباب ويجوزها اكثر من شخص
الرد
#6
(28-01-18, 03:10 PM)atefkhalf2004 كتب : البهوات والبشوات كما يقولون عندنا في مصر  للسادة العظماء
جملة select  تنقل البيانات  الي جدول جديد او موجود
اما  CopyTableToDatabase     اي نسخ  الجدول  تنسخه  كما هو 
مثل اسماء  راس الاعمدة  والشروط  validation 
مثلا   id    نص رأس العمود اي عنوان العمود يصبح     م  

الكود موجود  علي احد المواقع كما نسخته  لكن به  خطأ

ايضا   ليه اجوز  select    يمكن فيه عروسة احلي
تعجني انا وغيري   ونحل مشكلة الشباب ويجوزها اكثر من شخص




Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin Big Grin
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 
Heart Heart Heart Heart Heart Heart Heart
امتى الفرح
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#7
من اخر اعمالنا في البرمجة 

[img=1304x799]http://www.m5zn.com/newuploads/2018/01/28/png//m5zn_7e91c96a15bcb76.png[/img]


الملفات المرفقة صورة/صور
   
الرد
تم الشكر بواسطة:
#8
السادة الافاضل
واضح ان احد بص لي في العروسة  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 "
الرد
تم الشكر بواسطة:
#9
(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 "

اخي الكريم : اتبع نفس الكود في مشاركتي السابقة
فقط عدل اسماء الجداول ومسار القاعدة.
انت تضيف نص الاتصال بالكامل داخل جملة الاستعلام، اكيد لن يعمل الكود.
الرد
تم الشكر بواسطة:
#10
حضرتك استخدمت الكود الخاص بك   وايضا اعطي مشكلة

كود :
Dim cmd As New OleDb.OleDbCommand("SELECT Table1.* INTO TABLE1 IN 'C:\Database2.accdb' FROM Table1;", con)

كيف اجعل مسار القاعدة واجعلها المسار الحالي
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كود حذف صورة من جدول اكسس samira20 1 83 05-07-19, 07:50 PM
آخر رد: elgokr
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 5,570 01-07-19, 12:28 PM
آخر رد: essamprog
  الربط بين جهازين لقاعدة بيانات واحده makky 11 289 23-06-19, 12:07 AM
آخر رد: حريف برمجة
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,492 10-06-19, 09:31 PM
آخر رد: sherf
  مساعدة في تصميم قاعدة بيانات ادارة ساعات عمل الموظفين Rabeea Qbaha 6 197 06-06-19, 12:23 AM
آخر رد: elgokr
  استدعاء بيانات من اكثر من جدول المتألق9 1 178 04-06-19, 10:29 PM
آخر رد: احمد نعمة السلامي
  [VB.NET] رسالة خطأ عند الحذف أو تعديل بيانات جديدة #concurrency violation# sniperjawadino 11 541 28-05-19, 10:50 PM
آخر رد: sniperjawadino
  قاعدة البيانات بتقفل كل شوية احمد خطاب 5 280 11-05-19, 04:24 AM
آخر رد: احمد خطاب
  عرض اسم عميلين في جدول العملاء بشرط ارقامهم بجدول اخر يونس علي 1 171 26-04-19, 03:16 AM
آخر رد: محمد كريّم
  [VB.NET] قاعدة بيانات postgress tarek 2 254 06-04-19, 09:07 PM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم