PDA

View Full Version : خودكشي اكسس



mohamad goodarzi
دوشنبه 15 فروردین 1390, 07:30 صبح
باسلام خدمت همه دوستان گرامي
آيا مي توانيم در اكسس كدي بنويسيم كه در زمان مشخصي همان فايل توسط خودش حذف شود 0
دوستان منظور جداول نيست خود فايل اكسس بطور كامل است.

RESMAILY
دوشنبه 15 فروردین 1390, 13:25 عصر
به نام خدا
با سلام. من اين موضوع را براي امنيت برنامه پيشنهاد داده بودم. البته به شكل ديگري! ولي مي توانيد فايلي ايجاد كنيد (مثلا با نام dbDelDb) كه در موقع بالا آمدن اولين فرم يك بانك مشخصي را با يك فاصله زماني تاخيري، از سيستم حذف نمايد. براي حذف هم مي شود از كدي شبيه به كد زير استفاده نمود.
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Private Sub Form_Load()
sleep(2000) 'در vba از ontimer استفاده شود
DeleteFile "C:\MyDb.mde"
End Sub


حالا از درون برنامه اول كدي بنويسيد كه در موعد تامين پارامترهاي مربوطه بانك قبلي را لود و خودش بسته شود.

strX = "C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE "
strX = strX & CurrentProject.path & "\dbDelDb.mde"
retval = Shell(strX, 1)
DoCmd.Quit

alirezabahrami
دوشنبه 15 فروردین 1390, 14:28 عصر
باسلام خدمت همه دوستان گرامي
آيا مي توانيم در اكسس كدي بنويسيم كه در زمان مشخصي همان فايل توسط خودش حذف شود 0
دوستان منظور جداول نيست خود فايل اكسس بطور كامل است.
سلام
با توجه به اینکه در حال اجرای برنامه ، برنامه نمی تواند توسط خودش حذف شود برای انجام اینکار بنظر میرسد از یک فایل اجرائی ( مثلاً vb )که در کنار برنامه است و با اجرای برنامه اکسس بصورت مخفیانه باز میشود باید استفاده کرد . که میتوان در رویداد load فرم فایلvb شرط مورد نظر ( پس از شرط ،بستن فایل اکسس و حذف آن و سپس بستن خود فایل vb) را نوشت.
موفق باشید

alirezabahrami
سه شنبه 16 فروردین 1390, 14:12 عصر
باسلام خدمت همه دوستان گرامي
آيا مي توانيم در اكسس كدي بنويسيم كه در زمان مشخصي همان فايل توسط خودش حذف شود 0
دوستان منظور جداول نيست خود فايل اكسس بطور كامل است.


سلام
با توجه به اینکه در حال اجرای برنامه ، برنامه نمی تواند توسط خودش حذف شود برای انجام اینکار بنظر میرسد از یک فایل اجرائی ( مثلاً vb )که در کنار برنامه است و با اجرای برنامه اکسس بصورت مخفیانه باز میشود باید استفاده کرد . که میتوان در رویداد load فرم فایلvb شرط مورد نظر ( پس از شرط ،بستن فایل اکسس و حذف آن و سپس بستن خود فایل vb) را نوشت.
موفق باشید
با سلام مجدد
پیرو توضیحات بالا ، نمونه ای در ضمیمه قرار داده ام
توضیح اینکه درنمونه فوق ، حذف اتوماتیک فایل اکسس در تاریخ 16/01/1390شمسی (05/04/2011میلادی )صورت میگیرد . اگر تاریخ جاری سیستم شما قبل یا بعد از تاریخ فوق میباشد بطور آزمایشی تاریخ سیستم خود را برابر باتاریخ فوق تنظیم کنید و فایل اکسس را اجرا کنید .
و مطلب دیگر اینکه در این نمونه فقط سعی شده صرفاً خواسته دوست بزرگوارمان که این تاپیک را ایجاد نموده اند برآورده شود و در خصوص امنیت فایل اکسس در این نمونه کاری انجام نشده است .
موفق باشید