كود - ماكرو استيراد جدول اكسيس الى قاعدة بيانات

[moham_q]

السلام عليكم الاخوة الاعزاء في المنتدى .. شاكرا تفضلكم احبائي و سؤالي هو هل يوجد كود  او ماكرو يقوم بأستيراد جدول اكسيس الى قاعدة بيانات اكسيس 

[صالح حمادي]

السلام عليكم

استعمل هذا الكود:

Dim NameTblimport As String
Dim txtpathfile As String
txtpathfile = "e:\database1.mdb"   ' مسار قاعدة البيانات التي بها الجدول
NameTblimport = "tbl1"    ' اسم الجدول المراد استيراده
DoCmd.TransferDatabase acImport, "Microsoft Access", txtpathfile, acTable, NameTblimport,NameTblimport , False

 

[moham_q]

خالص الشكر والتقدير استاذ صالح المحترم على التفاعل والاجابة على السؤال .. تحياتي وامتناني لك

[عبد الله قدور]

السلام عليكم

اخي الكريم ضع هذا الكود في وحدة نمطية

Public NewDatabase As String

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

ومن ثم استدعها من اي مكان في برنامجك وباي وقت لاستيراد اي جدول بالكود التالي

Call CreateTableLink(NewDatabase, "table_name", "password")

بحيث table_name هي اسم الجدول

و password هي كلمة المرور لقاعدة البيانات

واخيرا هذا الكود هو لمعلمنا القدير ابو ادم

تم تعديل أغسطس 4, 2017 بواسطه عبد الله قدور

[صالح حمادي]

1 ساعه مضت, عبد الله قدور said:

السلام عليكم

اخي الكريم ضع هذا الكود في وحدة نمطية

Public NewDatabase As String

Public Function CreateTableLink(strBEPath, strSourceTableName, strPassword) As Boolean
Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim strConnect As String
Dim strLinkName As String

strLinkName = strSourceTableName

strConnect = "MS Access;PWD=" & strPassword & _
    ";DATABASE=" & strBEPath
Debug.Print strConnect
Set db = CurrentDb
Set tdf = db.CreateTableDef
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTableName
tdf.Name = strLinkName
db.TableDefs.Append tdf
Set tdf = Nothing
Set db = Nothing

End Function

ومن ثم استدعها من اي مكان في برنامجك وباي وقت لاستيراد اي جدول بالكود التالي

Call CreateTableLink(NewDatabase, "table_name", "password")

بحيث table_name هي اسم الجدول

و password هي كلمة المرور لقاعدة البيانات

واخيرا هذا الكود هو لمعلمنا القدير ابو ادم

أخي عبد الله حياك الله

هذا الكود يقوم بالإرتباط بقاعدة البيانات و ليس استيراد الجداول

[عبد الله قدور]

1 ساعه مضت, صالح حمادي said:

هذا الكود يقوم بالإرتباط بقاعدة البيانات و ليس استيراد الجداول

حياك الله انا فهمت الموضوع خطا

سامحوني

[صالح حمادي]

6 ساعات مضت, عبد الله قدور said:

حياك الله انا فهمت الموضوع خطا

سامحوني

لا بالعكس أستاذ عبد الله لا يجب أن يطلب السماح شخص ينفع الناس بعلمه

فأنا شخصيا استفدت كثيرا من هذا المثال و أكيد أن هناك العديد من الأشخاص الذين استفادوا منه