اتتقال اطلاعات از یک پایگاه به پایگاه دیگر

[amin_rj]

سلام دوستان
من خیلی جستجو کردم و توانستم دستورات زیر را پیدا کنم ولی کار نداد
من می خواهم اطلاعات 3 جدول یک دیتابیس را که با هم رابطه دارند را به صورت انتخابی به 3 جدول مشابه در دیتابیس دیگر کپی کنم
لطفاً راهنمایی کنید
تشکر

Private Sub Command0_Click()
Dim DBase As Database
Dim SQL As String

Set DBase = OpenDatabase("d:\LibAmin1.mdb", True, False)

SQL = "insert into sanad in 'd:\LibAmin.mdb' select * from sanad"
DBase.Execute SQL

MsgBox " .Úãá ÇäÊÞÇá ÈÇ ãæÝÞíÊ Èå ÇíÇä ÑÓíÏ ", vbInformation, "ÇíÇä ÇäÊÞÇá ÇØáÇÚÇÊ"
End Sub

[alirezabahrami]

سلام دوستان
من خیلی جستجو کردم و توانستم دستورات زیر را پیدا کنم ولی کار نداد
من می خواهم اطلاعات 3 جدول یک دیتابیس را که با هم رابطه دارند را به صورت انتخابی به 3 جدول مشابه در دیتابیس دیگر کپی کنم
لطفاً راهنمایی کنید
تشکر

Private Sub Command0_Click()
Dim DBase As Database
Dim SQL As String

Set DBase = OpenDatabase("d:\LibAmin1.mdb", True, False)

SQL = "insert into sanad in 'd:\LibAmin.mdb' select * from sanad"
DBase.Execute SQL

MsgBox " .Úãá ÇäÊÞÇá ÈÇ ãæÝÞíÊ Èå ÇíÇä ÑÓíÏ ", vbInformation, "ÇíÇä ÇäÊÞÇá ÇØáÇÚÇÊ"
End Sub

سلام
كد زير را جايگزين كد فوق كن!

DoCmd.SetWarnings False

sq = "SELECT * INTO sanad IN 'd:\LibAmin1.mdb' FROM sanad;"

DoCmd.RunSQL sq

MsgBox " ÇäÊÞÇá ÕæÑÊ ÑÝÊ"

DoCmd.SetWarnings True

موفق باشيد