تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] ارجوا المساعدة فى نقل البيانات من جدول الى جدول فى قاعدة بيانات اخري
#1
السلام عليكم
اريد نقل البيانات من جدول داخل قاعدة بيانات الى جدول اخر فى قاعدة بيانات اخري .
مع العلم قاعدة البيانات والجدول ... هو بنفس اسم الجدول ونفس اسم قاعدة البيانات .
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته
ينقل إلى القسم المناسب
بالنسبة لسؤالك ، تضع بيانات الجدول المراد نقله في DataTable ثم بواسطة حلقة for each ....... next تنقل الصفوف إلى الجدول الموجود في قاعدة البيانات الثانية بواسطة insert into ...........
السلام عليكم و رحمة الله و بركاته
الرد }}}}
تم الشكر بواسطة: dbahl
#3
السلام عليكم
شكرا اخي وبارك الله فيك .
هذا هو كودي ولاكنه يقوم بنقل السجل الاول فقط اكثر من مره .
حيث ان con هى القاعدة الاولة والجدول اسمه tabel2 .
وان conn هى القاعدة الثانية والجول اسمه tabel2

Dim s As String = "select * from tabel2"
Dim ad1 As New OleDbDataAdapter(s, Con)

Dim ds1 As New DataSet()
ds1.Clear()
ad1.Fill(ds1, "tabel2")
Dim ta1 As DataTable
Dim rs1 As DataRow
Dim i As Integer

ta1 = ds1.Tables("tabel2")


Dim add As String = "insert into tabel2 (auno,no1,no2,na1,no_s,dat1,con1,val_s,val1,mem1) values (@p,@p1,@p2,@p3,@p4,@p5,@p6,@p7,@p8,@p9) "

Dim p As New OleDbCommand(add, Conn)

For each i = 0 To ta1.Rows.Count - 1

Update()

rs1 = ta1.Rows(i)

p.Parameters.AddWithValue("@p", rs1("auno"))
' et.Parameters.Add("@e", rs1("item_no"))
p.Parameters.AddWithValue("@p1", rs1("no1"))
p.Parameters.AddWithValue("@p2", rs1("no2"))
p.Parameters.AddWithValue("@p3", rs1("na1"))
p.Parameters.AddWithValue("@p4", rs1("no_s"))
p.Parameters.AddWithValue("@p5", rs1("dat1"))
p.Parameters.AddWithValue("@p6", rs1("con1"))
p.Parameters.AddWithValue("@p7", rs1("val_s"))
p.Parameters.AddWithValue("@p8", rs1("val1"))
p.Parameters.AddWithValue("@p9", rs1.Table.Rows(i)("mem1"))

p.ExecuteNonQuery()

Update()

Next

Update()
p.Dispose()
ds1.Dispose()



MsgBox("End Move Database")
الرد }}}}
تم الشكر بواسطة:
#4
.
منقول

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

كود :
Private Function CopyTableToDatabase(ByVal tableName As String, ByVal fromDatabaseName As String, ByVal fromDatabasePassword As String, ByVal toDatabaseName As String, ByVal toDatabasePassword As String, Optional ByVal Access2007 As Boolean = False) As Boolean
    Try
        Dim provider As String = IIf(Access2007, "Microsoft.ACE.OLEDB.12.0", "Microsoft.Jet.OLEDB.4.0")
        Dim conFrom As New OleDb.OleDbConnection("Provider=" & provider & ";Data Source=" & fromDatabaseName & ";Jet OLEDB:Database Password=" & fromDatabasePassword & ";")
        Dim conTo As New OleDb.OleDbConnection("Provider=" & provider & ";Data Source=" & toDatabaseName & ";Jet OLEDB:Database Password=" & toDatabasePassword & ";")

        conTo.Open()
        Dim comTo As New OleDb.OleDbCommand("Delete from " & tableName, conTo)
        comTo.ExecuteNonQuery()
        conTo.Close()

        conFrom.Open()
        Dim comFrom As New OleDb.OleDbCommand("Insert into [" & toDatabaseName & ";PWD=" & IIf(toDatabasePassword = "", " ", toDatabasePassword) & "]." & tableName & " SELECT * From " & tableName, conFrom)
        comFrom.ExecuteNonQuery()
        conFrom.Close()

        Return True

    Catch ex As Exception
        MsgBox(ex.Message)
        Return False
    End Try
End Function

طريقة استخدامها
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    '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

End Sub
الرد }}}}
تم الشكر بواسطة: Sajad
#5
السلام عليكم ..
بارك الله فيكم جميعاً ماقصرتوا والله .. جزاكم الله خير .
مع اني استخدمت كود اخر باستخدام داتا جريد ثم عمل حلقة ونقل كل صف الى متغير ومن ثم اضافته .
للعلم : ربي يحفظكم والله انكم محترفين ،، وانا شخصياً استفدة جداً من طريقتكم واسلوبكم فى البرمجة .
شكرا لكم .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تصميم قاعدة البيانات djelloul 2 44 06-12-16, 12:36 PM
آخر رد: djelloul
  بحث و إظهار صورة من قاعة البيانات علىPictureBox ahmed_elwerfalli 0 54 29-11-16, 01:34 AM
آخر رد: ahmed_elwerfalli
  ابي اربط برنامجي بسيرفر او قاعده بيانات مبارك 3 191 22-11-16, 02:57 PM
آخر رد: مبارك
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 284 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 179 04-11-16, 09:25 AM
آخر رد: thevirus
  [VB.NET] مثال على جلب ارقام من قاعدة البيانات وحفظها في مصفوفة بدر إشتية 4 360 02-11-16, 02:42 AM
آخر رد: Ahmad ahmed
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 92 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,274 27-10-16, 09:53 PM
آخر رد: thevirus
Sad [Acces2007] عاجل ارجو المساعدة لدي مشكلة مع برمجة زر البحث في الاكسس saimon 4 124 24-10-16, 07:54 PM
آخر رد: saimon
  مساعدة في بناء قاعدة hglogtd 4 145 05-10-16, 03:48 PM
آخر رد: hglogtd

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


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