كيف يمكن نسخ جدول من قاعدة بيانات الي اخري
بالامر 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
هل هي مكتبة وكيف نرفقها
السادة احتاج كود استيراد جدول من قاهدة
البهوات والبشوات كما يقولون عندنا في مصر للسادة العظماء
جملة select تنقل البيانات الي جدول جديد او موجود
اما CopyTableToDatabase اي نسخ الجدول تنسخه كما هو
مثل اسماء راس الاعمدة والشروط validation
مثلا id نص رأس العمود اي عنوان العمود يصبح م
الكود موجود علي احد المواقع كما نسخته لكن به خطأ
ايضا ليه اجوز select يمكن فيه عروسة احلي
تعجني انا وغيري ونحل مشكلة الشباب ويجوزها اكثر من شخص
من اخر اعمالنا في البرمجة
[img=1304x799]http://www.m5zn.com/newuploads/2018/01/28/png//m5zn_7e91c96a15bcb76.png[/img]
السادة الافاضل
واضح ان احد بص لي في العروسة 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 "
اخي الكريم : اتبع نفس الكود في مشاركتي السابقة
فقط عدل اسماء الجداول ومسار القاعدة.
انت تضيف نص الاتصال بالكامل داخل جملة الاستعلام، اكيد لن يعمل الكود.
حضرتك استخدمت الكود الخاص بك وايضا اعطي مشكلة
كود :
Dim cmd As New OleDb.OleDbCommand("SELECT Table1.* INTO TABLE1 IN 'C:\Database2.accdb' FROM Table1;", con)
كيف اجعل مسار القاعدة واجعلها المسار الحالي
