انشاء سيرفر لتجميع جداول من عدة قواعد بيانات اكسيس

[moham_q]

السلام عليكم زملائنا بالمنتدى

مشاركتي هي كيف بأستطاعتي انشاء سيرفر بداخل الحاسوب يتم فيه تجميع بيانات جداول اكسيس معينة من عدة قواعد بيانات اكسيس بعد اكمال الاجراءات الخاصة بالعمل و ذلك لغرض ارشفتها

ارجو توضيحها بأمثلة متوفرة لكي نستفاد منها بعملية التنفيذ

مع جزيل الشكر و الامتنان للجميع

[محمد أبوعبدالله]

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

الحل الامثل لما ذكرت هو ان تكون قاعدة البيانات Sql Server وهناك شروحات كثيرة

تفضل هذا موضوع لاستاذنا الفاضل @Elsayed Bn Gemy

تحياتي

[moham_q]

سلمت يداك استاذ محمد و نشكرك على الاجابة جزاك الله خيرا تحياتي

 

 

[محب العقيدة]

السلام عليكم

بعد اذن اخي محمد

هذه قكرةرائعىة انه يخصص الشخض قاعدة بيانات فارعة وليس سيرفر لارشفة الجداول المهمة في جميع قواعد البيانات

لنفرض فاعدةالبيانات المراد ترحيل الجدولayman1

والقاعدة الفارغة archieve

Dim db As DAO.Database
  Dim blnTrans As Boolean
  Dim strSQL As String
  Dim strPath As String
  Dim strDb As String
  Dim strDateCriteria As String
' On Error GoTo ErrorHandler

  strPath = "C:\AYMAN71\"
  strDb = "ayman1.accdb"
  strDateCriteria = _
    "BETWEEN #1/1/2000# AND #12/31/2022#;"
    
 
  DBEngine.BeginTrans
  blnTrans = True
  Set db = OpenDatabase(strPath & strDb)

  ' نسخ جدول orders
  ' وتصديره ثم حذفه

strSQL = _
  "SELECT * INTO origin IN " & _
   Chr(34) & strPath & strDb & Chr(34) & _
   " FROM Orders WHERE Orders.OrderDate " & _
   strDateCriteria
      
  db.Execute strSQL, dbFailOnError
  
 
    
 ' تاكبد
   If MsgBox("Click OK if you want to archive " _
    & db.RecordsAffected & _
    " records.", vbOKCancel + _
    vbQuestion + vbDefaultButton2, _
    "Proceed?") = vbOK Then
        DBEngine.CommitTrans
               DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\ayman71\ayman1.accdb", acTable, "origin", "archive"
db.TableDefs.Delete ("origin")
Application.RefreshDatabaseWindow

   Else
      If blnTrans Then DBEngine.Rollback
   End If
  If db.RecordsAffected = 0 Then
    DBEngine.Rollback
    MsgBox "لا حركات " & _
     "with the specified criteria.", _
     vbInformation + vbOKOnly, _
     "Records not found"
  End If
Cleanup:
  Set db = Nothing
  Exit Sub