تحويل accdb الى accde برمجيا

[alsihran]

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

وجدت هذا الكود في احدى مشاركات الاستاذ @jjafferr

وهو خاص بتحويل البرنامج من صيغة accdb  إلى accde

unction ConvertToaccDE()
sourcedb = "C:\Users\Trevor G\Documents\sample back.accdb"
targetdb = "C:\Users\Trevor G\Documents\sample back.accde"
Dim accessApplication As Access.Application
Set accessApplication = New Access.Application
With accessApplication
.SysCmd 603, sourcedb, targetdb
End With
'Set accessApplication = Nothing

End Function

 

حاولت تطبيق الكود ولكن لم اجد اي نتيجه 

المطلوب :

تحويل البرنامج Fass عند فتحه وتحويل برنامج  mass يوجدبنفس المجلد في نفس الوقت 

وبعد اتمام عملية التحويل يتم حذف الملفات التي بصيغة accdb  ثم اغلاق البرنامج Fass وفتح البرنامج mass

علما ان المجلد سيكون على سطح المكتب 

 

prog.rar

تم تعديل ديسمبر 14, 2020 بواسطه alsihran

[jjafferr]

تفضل يا سيدي ، الكود السابق بواجهه :

.

جعفر

Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip

[أبو عبدالله الحلوانى]

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

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

أفظل أستخدام اسكربت يقوم بهذه المهمة بسبب:

أولا- حجمه الصغير الذي يكاد يكون معدوم ،

ثانيا- لكونه لا يحتاج لاعدادات اضافية لتشغيله؛ بمعني لو قمت بتنفيذ هذا الكود من قاعدة بيانات علي قاعدة بيانات أخري كان لزاما أن يتم تخفيض الأمان لتعمل قاعدة البيانات الأولي أولا حتي تعمل. (خاصة اذا كان هذا الكود سيعمل علي جهاز العميل) ؛ وهذا الشئ غير موجود مع الاسكربت.

وأخيرا- هذا هو الكود داخل الاسكربت يمكنك التعديل عليه وفقا لاحتياجاتك.

Rem This is the beginning of the code:

Call Createadbe

Sub Createadbe()
On Error Resume Next
dim fso
dim mePath

Set fso = CreateObject("Scripting.FileSystemObject")   
mePath = fso.GetAbsolutePathName(".")

Rem here we test if accde file is exist And delete it if it is exist
Rem====================================================================
if fso.FileExists(mePath & "\Write Here Your accde file Name")= True then
	fso.DeleteFile mePath & "\Write Here Your accde file Name"
end if

Rem Here Test if our accdb file is Exist and get started
Rem======================================================
If fso.FileExists(mePath & "\Write Here Your accdb file Name")= True then
	With Createobject("Access.Application")
	.AutomationSecurity = 1
	.SysCmd 603, mePath & "\Write Here Your accdb file Name", mePath & "\Write Here Your accde file Name"
	.Quit
	End With
	MsgBox "Conversion Done Successfully!"
	fso.DeleteFile mePath & "\Write Here Your accdb file Name"
Else
msgbox "Conversion Not Done; Some file Not Exists!"
End If

Rem Now kill My silf:
Rem==================
	if err.number <> 0 then
	    with fso
	         If .FileExists(mePath & "\Write Here Your accdb file Name") then .DeleteFile(mePath & "\Write Here Your accdb file Name")
	         If .FileExists(mePath & "\Database.accdb") then .DeleteFile(mePath & "\Database.accdb")
	         If .FileExists(mePath & "\Database.mdb") then .DeleteFile(mePath & "\Database.mdb")
	         If .FileExists(mePath & "\ConversionAccdbToAccde.vbs") then .DeleteFile(mePath & "\ConversionAccdbToAccde.vbs")	
	    end with	
	end if
End sub

اذا كنت لا تدري عن صناعة الاسكربت فهو ملف txt عداي تقوم بنسخ الكود بأعلاه مع تغير الجمل 

Write Here Your accdb file Name الي اسم الملف الخاص بحضرتك

Write Here Your accde file Name الي اسم الملق الخاص بحضرتك

ثم تقوم بحفظ الملف txt  بصيغة vbs 

وفقط وانتهي الأمر 

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

هذا كل شىء

مع تمنياتي بالتوفيق

 

 

هذا هو الاسكربت

ConversionAccdbToAccde.rar

[alsihran]

44 دقائق مضت, jjafferr said:

تفضل يا سيدي ، الكود السابق بواجهه :

الله يعطيك العافية استاذنا 

لكن هذه الطريقة لن تفي بالغرض فالمطلوب هو تحويل الملفين على جهاز العميل عند تشغيله للبرنامج 

فأنت تعرف ان تحويل الملفين على جهازي ونقله لجهاز العميل سيؤدي ربما لعدم عمل البرنامج 

 

5 دقائق مضت, أبو عبدالله الحلوانى said:

أفظل أستخدام اسكربت يقوم بهذه المهمة

شكرا لك 

طريقتك جميله لكن للاسف لن تعمل على اجهزة مرتبطة بالسيرفر 

فالسيرفر سيمنع تشغيل ملفات بصيغة vbs  

[أبو عبدالله الحلوانى]

7 دقائق مضت, alsihran said:

فالسيرفر سيمنع تشغيل ملفات بصيغة vbs  

لست أدري كيف سيمنع الارتباط بالسرفر  قبول صيغة الـ vbs  وضح لنا فكرتك بالضبط!

ولكن يمكن أن يعمل هذا الكود في بيئة الـ vb6 أو حتي vb.net  وتحويله الي exe واستخدامه بأي جهاز.

 

[alsihran]

1 دقيقه مضت, أبو عبدالله الحلوانى said:

لست أدري كيف سيمنع الارتباط بالسرفر  قبول صيغة الـ vbs  وضح لنا فكرتك بالضبط!

بسبب رفع مستوى الامان في السيرفر 

جربت سابقا عمل نفس مثل هذا الملف للاستاذ @jjafferr

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

الجهاز المرتبط بالسيرفر يتم حذفه بدون تنفيذ التعليمات البرمجيه له 

[ma4fd2010]

تحويل صيغه ملف الاكسيس برمجيا من accdb الي accde

https://acc-arab.com/2020/03/accdb-accde.html

تم تعديل ديسمبر 16, 2020 بواسطه ma4fd2010

[alsihran]

3 ساعات مضت, ma4fd2010 said:

حويل صيغه ملف الاكسيس برمجيا من accdb الي accde

شكرا لك 

بما اننا سنقوم بالتحويل من برنامج خارجي مع الاسف هذه الطريقة تعيدنا للمربع الأول 

ولن تكون منطقية 

[أبو عبدالله الحلوانى]

في ١٤‏/١٢‏/٢٠٢٠ at 23:56, أبو عبدالله الحلوانى said:

ولكن يمكن أن يعمل هذا الكود في بيئة الـ vb6 أو حتي vb.net  وتحويله الي exe واستخدامه بأي جهاز.

هل جربت هذا

[alsihran]

15 ساعات مضت, أبو عبدالله الحلوانى said:

ولكن يمكن أن يعمل هذا الكود في بيئة الـ vb6 أو حتي vb.net  وتحويله الي exe واستخدامه بأي جهاز.

لم افهم هذه الجزئية

 

[أبو امين]

في 14‏/12‏/2020 at 21:56, jjafferr said:

تفضل يا سيدي ، الكود السابق بواجهه :

.

جعفر

Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip 31.05 kB · 38 downloads

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

[سامر محمود]

في 14‏/12‏/2020 at 22:56, jjafferr said:

تفضل يا سيدي ، الكود السابق بواجهه :

.

جعفر

Convert_mdb _n_accdb_to_mde_n_accde.mdb.zip 31.05 kB · 149 downloads

الاخ الكريم @jjafferr

برنامج رائع بنفس الطريقة اللي كنت محتاجها جزاك الله عنا خيرا بس انا استخدمته والمجلد اللي بحدده للقاعدة المحولة بيكون فاضي رغم انه بيعطي رسالة DONE

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