تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
نسخ جدول من قاعدة الي اخري
#1
Dim connect As String = "Provider=Microsoft.Jet.OLEDB.4.0 ;Jet OLEDBBig Grinatabase Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh.mdb"

        Using conn As New OleDbConnection(connect)
            Using cmd As New OleDbCommand()
                cmd.Connection = conn
                cmd.CommandText = "SELECT * INTO [MS Access;Database Password='123321';Data Source=" & Application.StartupPath & "\dbkarneh1.mdb].[student] FROM [student]"
                conn.Open()
                cmd.ExecuteNonQuery()
            End Using
        End Using
        MsgBox("تم التسويه  بنجاح", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "  ")


يعطي خطأ
Invalid argument.
الرد }}}
تم الشكر بواسطة:
#2
هل الملف الثاني موجود بالفعل أم سيتم انشاؤه ؟

وإن كان موجود بالفعل هل يحتوي على بيانات ؟
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#3
القاعدة االاخري موجودة ومغرفة في جملة الاتصال
شكرا
الرد }}}
تم الشكر بواسطة:
#4
جرب هذا الكود


PHP كود :
Public Shared Sub TransportTable(ByVal sourceDbPath As StringByVal targetDbPath As StringByVal lstTables As List(Of String))
 
       Dim constr As String = ((Convert.ToString("Provider=Microsoft.JET.OLEDB.4.0;data source=") & targetDbPath) + ";Persist Security Info=False;")
 
       Dim conn = New OleDbConnection(constr)
 
       Dim yescommander = New OleDbCommand()
 
       conn.Open()
    
lstTables.ForEach(Sub(tableName As [String]) 
 
       yescommander.CommandType CommandType.Text
        yescommander
.Connection conn
        yescommander
.CommandText = (Convert.ToString("SELECT f.* INTO " tableName " FROM " tableName " AS f IN '") & sourceDbPath) + "';"
 
       Dim result As Integer yescommander.ExecuteNonQuery()

End Sub)
    
conn.Close()
End Sub 
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#5
السيد الفاضل

معلهش
اظهر خطأ املائي
كثير
في
lstTables.ForEach(Sub(tableName As [String])
الرد }}}
تم الشكر بواسطة:
#6
بالطبع أخي الفاضل هناك الكثير من الأكواد تحتاج إلى التصحيح تبعا لأسماء الكائنات لديك

مثل : lstTables والتي تشير الى اسم قاعدة البيانات الأولى
tableName اسم الجدول لديك
targetDbPath مسار قاعدة البيانات


فغير ما يلزم
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#7
معلهش يا استاذ
انا غعلا معرفتش
وحاولت التنسيق والتعديل لكن لم انج
برجاء تعديل الكود حسب القواعد والمسميات الواردة في مثالي

Dim constr As String = ((Convert.ToString("Provider=Microsoft.JET.OLEDB.4.0;data source=") & Application.StartupPath & "\dbkarneh.mdb") + ";Persist Security Info=False;")
Dim conn = New OleDbConnection(constr)
Dim yescommander = New OleDbCommand()
conn.Open()

dbkarneh.ForEach(Sub(tableName As [String])

yescommander.CommandType = CommandType.Text
yescommander.Connection = conn
yescommander.CommandText = (Convert.ToString("SELECT f.* INTO " & student & " FROM " + student + " AS f IN '") & Application.StartupPath) + "';"
Dim result As Integer = yescommander.ExecuteNonQuery()

توجد اخطاء اتمني ان تتحملننا وتحل لكن المشكلة
الرد }}}
تم الشكر بواسطة:
#8
أخي الفاضل :

بارك الله فيك ... وأنا لم أرتقي لهذه الدرجة لأكون أستاذ ولكني مثلك تلميذ في هذه المدرسة العظيمة

وكل ما أرجوه أن نستفيد من بعضنا البعض ... ولنحمد الله على ما نتعلمه ونتبادله مع اخواننا ... فإن الله في عون العبد مادام العبد في عون أخيه


الحمد لله أعددت لك مثالا بالمرفقات لنسخ جدول كامل ببياناته من قاعدة بيانات إلى قاعدة بيانات أخرى

أتمنى أن يكون هذا مرادك وأسأل الله التوفيق لكم ولي


الملفات المرفقة
.rar   CopyTable.rar (الحجم : 81.57 ك ب / التحميلات : 80)
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة: khodor1985
#9
فعلا هو المراد
شكرا علي تعبك
مرة اخري
يا استاذ
رضيت ام ترضي
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عدم إظهار الصور مع النص فى Listview من قاعدة البيانات alims 2 1,577 27-08-23, 12:22 PM
آخر رد: رضوان الجماعي
  [نقاش] مشاركة قاعدة بيانات SQL على شبكه داخليه morkoskhalaf 3 3,003 06-01-23, 03:20 AM
آخر رد: عبدالكريم برشدان
  قاعدة بيانات xml djelloul 3 2,798 07-11-22, 10:27 PM
آخر رد: Am7
  استفسار عن تخزين الوقت في قاعدة البيانات strongriseman 2 1,126 22-04-22, 07:27 PM
آخر رد: strongriseman
  [سؤال] مشكلة فى عرض الصورة من ادخل قاعدة البيانات alims 2 1,259 17-11-21, 10:09 AM
آخر رد: سعود
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 959 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  مشكلة ظهور بياانات حقلين في قاعدة بيانات على شكل علامة استفهام bassant 5 1,632 17-10-21, 02:07 PM
آخر رد: abubasilIraq
  تحويل multiline text الى single line في عمود في قاعدة بيانات sql server bassant 0 956 07-09-21, 04:36 PM
آخر رد: bassant
  الحفظ فى قاعدة البيانات اسلام الكبابى 10 2,342 06-09-21, 06:52 PM
آخر رد: اسلام الكبابى
  [Acces2010] عمل قاعدة بيانات لنظام غيابات الطلبة hassan karim 1 1,912 31-08-21, 04:47 AM
آخر رد: a7med saba

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


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