تقييم الموضوع :
  • 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)

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حفظ مسار الصور في قاعدة البيانات sql Hassan.syria 1 81 10-11-19, 09:54 PM
آخر رد: Hassan.syria
  نسخ بيانات حقل لحقل اخر في نفس الجدول bassant 4 151 09-11-19, 12:51 AM
آخر رد: baha
  [سؤال] فك كلمة مرور معقدة على قاعدة البيانات اكسس ahmed saba 8 9,397 27-10-19, 05:37 PM
آخر رد: Musayahya2015
  قاعدتين بيانات من نوع اكسس في نفس البرنامج الوايلي 0 85 26-10-19, 09:26 AM
آخر رد: الوايلي
  سؤال : طريقة ربط الفيجوال بيسك بقاعدة بيانات mysql عن طريق صفحة php وسيطة alfaiz678 5 299 30-09-19, 11:53 AM
آخر رد: alfaiz678
  اظهار قيمة الـــ DateTimePicker عند استدعائها من قاعدة البيانات mr_hso 4 294 04-09-19, 12:33 PM
آخر رد: mr_hso
  كود حذف صورة من جدول اكسس samira20 1 246 05-07-19, 07:50 PM
آخر رد: elgokr
  منع التكرار في اضافة بيانات لقاعدة بيانات أكسس vb.net ahmedshafea 3 6,036 01-07-19, 12:28 PM
آخر رد: essamprog
  الربط بين جهازين لقاعدة بيانات واحده makky 11 708 23-06-19, 12:07 AM
آخر رد: حريف برمجة
Information [سؤال] انشاء قاعدة بيانات access واضافة جدول وحقول بكود vb.net fefooo29 4 3,856 10-06-19, 09:31 PM
آخر رد: sherf

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


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