ايجاد فايل پشتيبان [بایگانی]

ali4404

جمعه 09 اسفند 1392, 23:30 عصر

سلام دوستان من از بانك اطلاعاتيم كه اكسس هستش فايل پشتيبان درست كردم حالا مي خوام اين فايل پشتيبان به فايل اصلي انتقال پيدا كنه و فقط هم ركورد هاي جديد منتقل بشه البته اين كار رو هم كردم ولي چون مي خوام فايل رمز داشته باشه درنتيجه موقع بازيابي به رمز فايل گير ميده.دوستان اگه راه حل بهتري بلد هستند لطفا راهنمايي كنند.

vbhamed

شنبه 17 اسفند 1392, 21:48 عصر

سلام
خب بازيابي رو چطوري انجام ميدين و منظور دقيقتون از اينكه گير ميده چيه ؟ پيام خطا چيه ؟

ali4404

سه شنبه 20 اسفند 1392, 18:09 عصر

سلام دوست عزیز من از این کد استفاده می کنم
Dim db As Database
Dim strsql As String
Set db = OpenDatabase(App.Path & "\db7.mdb", False, False, ";PWD=1234")
strsql = "insert into table1 in '" & App.Path & "\ab.mdb ' select * from table1"
db.Execute strsql
MsgBox "عمل انتقال اطلاعات با موفقيت به اتمام رسيد", vbInformation, "کپي اطلاعات"
End Sub
و اروری که میده
not a valid password
رمز فایل ab.mdbهم 1234 هست ولی ارور میده

vbhamed

چهارشنبه 21 اسفند 1392, 08:49 صبح

سلام
كدتون مشكلي نداره، حتما پسورد رو اشتباه مي‌دين، در غير اينصورت كد و بانكها رو بزاريد
شايد هم بانك ab.mdb پسورد داره !

ali4404

شنبه 24 اسفند 1392, 08:45 صبح

فایل ab.mdb رمز داره

vbhamed

یک شنبه 25 اسفند 1392, 07:54 صبح

سلام
هر دو بانك رو جداگانه باز كنيد (با استفاده از تعريف متغير از نوع database و connection و recordset براي هر بانك)
اونطوري مي‌تونيد براي هر دو بانك پسورد بدين، بعدش اطلاعات رو از فايل اول بخونيد و در فايل دوم بنويسيد