تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] حل: كيف يمكن نسخ جدول من قاعدة بيانات إلى اخرى
#1
السلام عليكم
رمضان كريم، وتقبل الله منا ومنكم الصيام
أنا اعما على مشروع وصادفتني المشكلة التالية:
أتعامل مع مجموعة من قواد البيانات أكسس، لها نفس المحتوى، فقد تختلف من حيث الاسم.
أقوم بفتح قاعدة البيانات التي أريد العمل عليها دون أي مشكل، لكني لم أعرف كيف أنسخ الجدول Table1 من قاعدة البيانات التي فتحتها إلى قاعدة بيانات أخرى اسمها db_work.

تلخيصا لما سبق، أن المشكلة تكمن أني في كل مرة أتعامل مع قاعدة بيانات جديدة

المشروع مرفق، ومن لديه المعرفة فليفرج عنا هذه المعضلة وجزاكم الله كل خير.


الملفات المرفقة
.rar   copy table.rar (الحجم : 105.78 ك ب / التحميلات : 36)
الرد
تم الشكر بواسطة:
#2
الامور تترتب على ان المسميات الداخلية ثابتة او متغيرة
اذا كانت متغيرة ستحتاج لعمل كود لجلب جميع مسميات الجداول بداخل قاعدة البيانات
واذا كان ثابت والاسماء موحدة فى الجميع

يمكنك تنفيذ تلك الكود لاتمام انشاء الجدول
كود :
Create table Table1([N°] AUTOINCREMENT  PRIMARY KEY, [nom] TEXT(255), [prenom] TEXT(255))

واذاكنت بحاجة بنقل المحتوى بداخل الجدول الى الجديد

سيتم عمل كود لمعرفة اجمالى عدد محتوى الجدول
من ثم جود استعلام لجلب جميع محتوى الجدول
من ثم عمل For لاتمام عمل تكرار الكود الادخال INSERT 
ويتم اعطاء الداتا من الاستعلام الى كود الاضافة

وبكده تتم عملية النسخ

يارب تكون الفكرة مبسطة في الشرح

تحياتى لك
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد
تم الشكر بواسطة:
#3
هذا الاستعلام يقوم بنقل بيانات الجدول الى جدول جديد فى قاعدة البيانات المحددة 

كود :
SELECT Table1.N°, Table1.nom, Table1.prenom INTO Table1 IN 'C:\Users\Yossof\Desktop\copy table\copy table\copy table\bin\Debug\DataBases\db_work.mdb'
FROM Table1;
 و هذا كود الزر لنقل الجدول 
كود :
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Try
           Using con As New OleDb.OleDbConnection("Provider=Microsoft.jet.oledb.4.0;Jet OLEDB:Database Password=123;Data Source=DataBases\db1.mdb")
               Using cmd As New OleDb.OleDbCommand("SELECT Table1.N°, Table1.nom, Table1.prenom INTO Table1 IN '" & Application.StartupPath & "\DataBases\db_work.mdb' FROM Table1;", con)
                   con.Open()
                   cmd.ExecuteNonQuery()
                   con.Close()
               End Using
           End Using
           MsgBox("table copied")
       Catch ex As Exception
           MsgBox("table already exists")
       End Try
   End Sub
الرد
تم الشكر بواسطة: elgokr , sendbad100
#4
جزاكم الله خيرا على الرد والمساعدة
لقد استخدمت الكود وهو يعمل بشكل جيد
مشككككككورين
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [سؤال] كيف يمكن ان يكون البرنامج دائما في المقدمه black coder 2 60 اليوم, 04:58 AM
آخر رد: black coder
Exclamation [سؤال] مشكلة عدم قبول النصوص الطويل في قاعدة البيانات على برنامج فيجوال بيسك 2010 الرائد 12 335 14-06-19, 03:03 PM
آخر رد: elgokr
  كيفية استخراج بيانات من اكثر من جدول وطباعتها المتألق9 4 241 12-06-19, 11:41 AM
آخر رد: new2016
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 8 194 05-06-19, 03:40 AM
آخر رد: heshamelkomy71
  مشكلة في اضافة التاريخ الي قاعدة بيانات اكسس makky 11 367 04-06-19, 03:12 PM
آخر رد: elgokr
  هل يمكن طباعة التقرير في كريستال ريبورت مباشرة دون عرض التقرير abu.hanen4u 4 146 31-05-19, 01:15 AM
آخر رد: sami4
  [سؤال] طلب مساعدة كود التحكم بعرض بيانات حقل حسابية في التكست بكس على ان لا يظهر لاصفار essawq 12 762 29-05-19, 10:43 PM
آخر رد: egbest2
  هل يمكن ان يتشابة ارقام معالج مع اخر makky 13 394 28-05-19, 10:27 AM
آخر رد: ابراهيم ايبو
Heart [VB.NET] كل عام وانتم بخير ... محتاج كود نسخ قاعدة البيانات تلقائيا abdullhadi999 32 899 15-05-19, 08:24 PM
آخر رد: asemshahen5
Rainbow [VB.NET] حذف بيانات الجلسة لل WebBrowser1 DK-x 0 86 03-05-19, 11:03 AM
آخر رد: DK-x

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


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