[Ahmed_Mansoor]

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

إخواني الأعزاء ، هل يوجد عند أحدكم طريقة تصدير جدول معين في قاعدة بيانات أكسس إلى قاعدة بيانات أكسس أخرى ولكن تصدير بنية الجدول فقط بدون بيانات الجدول وأيضاً والمهم أن يضل حقل الرقم التسلسلي عند آخر تسلسل وصل إليه وليس أن يبدأ من الواحد بعد التصدير ، أرجو ممن لديه أية معلومات مفيده بخصوص هذا الموضوع أن يفيدنا بها ، ولكم جزيل الشكر والإمتنان .

[KamelArab]

ممكن مثال عن القاعدة لكي أجيب على السؤال

[Ahmed_Mansoor]

أهلا إخواني الكرام , الحمدلله بعد بحث طويل تمكنت بفضل الله من العثور على مبتغاي وهو الذي كنت أريده من محاولة نسخ أو تصدير الجدول كله إلى قاعدة بيانات أخرى على أمل أن أصل إلى ما أريده , وما أريده هو أن أعرف ماهو الرقم التسلسلي الذي سيتم وضعه في الحقل من نوع "ترقيم تلقائي" عند إضافة سجل جديد في الجدول , البعض ممكن يقول بسيطه المسأله إستخدم دالة MAX لتجلب لك أكبر رقم لا هذه الدالة لن تفيد إذا كان آخر سجل قد تم حذفه والذي يحمل الرقم التسلسلي الأخير الحقيقي , لذلك لكي تحصل على الرقم التسلسلي الذي سيتم وضعه في السجل الجديد , عليك بإضافة مكتبة بإسم Microsoft ADO Ext. 2.8 for DDL and Security ثم إستخدم هذه الدالة لتعيد لك بالرقم التسلسلي التالي :

كود :

Private Function NextAutonumber(ByVal pTable As String, ByVal pAutonumField As String) As Long

Dim Cat As New ADOX.Catalog

Set Cat.ActiveConnection = DB
NextAutonumber = Cat.Tables(pTable).Columns(pAutonumField).Properties("Seed")
Set Cat = Nothing

End Function

حيث تمرر لها إسم الجدول وإسم الحقل الذي من نوع "ترقيم تلقائي" والمتغير الذي بإسم DB والموجود بداخل الدالة هو إسم الكائن المتصل بقاعدة البيانات أكسس , أتمنى أن يستفيد الجميع من هذا الكود , الذي إستفدت منه ولم أكن أعرفه من قبل , شكراً جزيلاً لصاحب الحل .

[مصمم هاوي]

العرب يصنعون المعجزات في مجال التصميم