amin_rj
شنبه 10 مهر 1389, 09:19 صبح
سلام دوستان
من خیلی جستجو کردم و توانستم دستورات زیر را پیدا کنم ولی کار نداد
من می خواهم اطلاعات 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
من خیلی جستجو کردم و توانستم دستورات زیر را پیدا کنم ولی کار نداد
من می خواهم اطلاعات 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