ورود

View Full Version : فراخواني پروژه اكسس از يك فايل exe با VB


Mahsa Hatefi
شنبه 15 خرداد 1389, 21:18 عصر
با سلام

مي خواهم از داخل يه فايل VB ، برنامه ساخته شده با اكسس 2003 را فراخواني كنم .

از اين كد استفاده كردم اما خطا ميده ( در ريفرنس بايد MicrosoftAccess11 runtime بايد اضافه گردد)


Dim DBACS As New Access.Application
DBACS.OpenAccessProject App.Path & "\MyMDB.mdb", True


سپس از كد زير استفاده كردم

Dim DBACS As New Access.Application
DBACS.OpenAccessDataBase App.Path & "\MyMDB.mdb", True


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

در نتيجه ، بايد از همون كد اول استفاده كنم اما خطا ميده .

لطف شما مورد امتنان خواهد بود
alirezabahrami
یک شنبه 16 خرداد 1389, 14:57 عصر
با سلام

مي خواهم از داخل يه فايل VB ، برنامه ساخته شده با اكسس 2003 را فراخواني كنم .

از اين كد استفاده كردم اما خطا ميده ( در ريفرنس بايد MicrosoftAccess11 runtime بايد اضافه گردد)



سپس از كد زير استفاده كردم


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

در نتيجه ، بايد از همون كد اول استفاده كنم اما خطا ميده .

لطف شما مورد امتنان خواهد بود
سلام
اگر فايل اكسس در درايو خاصي مثل d است از كد زير استفاده كن


ShellEx ("d:\Sample.mdb")


و اگر فايل اكسس در مسير برنامه (در كنار ) برنامه vb است از كد زير استفاده كن



ShellEx (App.Path & "\Sample.mdb")


ضمناً بجاي Sample.mdb نام ديتابيس خودت را جايگزين نما
موفق باشيد
Mahsa Hatefi
یک شنبه 16 خرداد 1389, 22:25 عصر
ببخشيد آقا

اين فانكشن ShellEx جزء كدوم لايبرري هستش ، چون خطاي فانكشن يا ساب مي گيره ؟
alirezabahrami
دوشنبه 17 خرداد 1389, 12:11 عصر
ببخشيد آقا

اين فانكشن ShellEx جزء كدوم لايبرري هستش ، چون خطاي فانكشن يا ساب مي گيره ؟
سلام
نمونه كاربردي را امروز در تاپيك دیتا بیس ها و برنامه های کاربردی قرار دادم .نمونه را از آنجا دانلود كن!
موفق باشيد