نسخ بيانات الجدوال

[ابو فتحى]

السلام عليكم و رحمه الله و بركاته

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

 

[biskra]

في المثال المرفق تجد الطريقة و عدة طرق طرق لنقل البيانات و شرح مفصل لكل العمليات

 

SyncDataExample_v5.3.zip

[ابو فتحى]

اولا : شكرا على الاهتمام و الرد

ثانيا : ممكن نسخة 2003 

[ابو فتحى]

up

 

[biskra]

جرب الكود التالي

Dim dbB as DAO.Database

Set dbB = DBEngine.Workspaces(0).OpenDatabase("D:\Folder\File", _
True, True, ";pwd=XXX")
DoCmd.TransferDatabase acImport, "Microsoft Access", _
dbB.Name, acTable, "MyTable", "MyTable"
....
dbB.Close
Set dbB = Nothing

 3 خطوات:

1. غيّر كلمة مرور قاعدة البيانات التي تريد التصدير إليها "".

2. تصدير الجداول.

3. أعد كلمة المرور إلى ما كانت عليه في الأصل.باستخدام المود التالي للقيام بذلك:

Function SetDBPassword(strDBPath As String, _
                      strOldPwd As String, _
                      strNewPwd As String)
  ' This procedure sets a new password or changes an existing
  ' password.

  Dim dbsDB      As DAO.Database
  Dim strOpenPwd As String

  ' Create connection string by using current password.
  strOpenPwd = ";pwd=" & strOldPwd

  ' Open database for exclusive access by using current password. To get
  ' exclusive access, you must set the Options argument to True.
  Set dbsDB = OpenDatabase(Name:=strDBPath, _
                           Options:=True, _
                           ReadOnly:=False, _
                           Connect:=strOpenPwd)

  ' Set or change password.
  With dbsDB
     .NewPassword strOldPwd, strNewPwd
     .Close
  End With

  Set dbsDB = Nothing
End Function

 

 

تم تعديل فبراير 3, 2021 بواسطه biskra
منقول من موقع آخر

[ابو فتحى]

اخى الفاضل 

اولا : شكرا على الاهتمام و الرد

ثانيا : المطلوب نسخة بيانات جدوال قاعدة البيانات مثل س الى قاعدة بيانات اخرى مثل ص ( و ليس تصدير الجدوال )

مع العلم يوجد كلمة مرور للقاعدين