باز کردن یک فایل اکسس با تغییر پسوندآن

[nazanin_90]

سلام
میخواهم یک فایل اکسس که در مسیر برنامه است و پسوند آن را از mdb به dll تغییر داده ام را از محیط وی بی اجرا نمایم . از اساتید ممنون میشم اگر در این مورد راهنمائی فرمایند.
با تشکر

[SlowCode]

روش کار همون قبلیه، مثلا واسه کنترل data میشه این:
Data1.DataBaseName = App.path & "\Data.dll"

[nazanin_90]

روش کار همون قبلیه، مثلا واسه کنترل data میشه این:
Data1.DataBaseName = App.path & "\Data.dll"
با سلام
نمي خواهم اطلاعات فايل اكسس در فرم وي بي به نمايش درآيد كه نياز به كنترل data باشد ، بلكه مي خواهم فايل اكسس بطور مستقل اجرا شود. با استفاده از دستور shell ميتوان فايل اكسس را با همان پسوند mdb باز كرد ولي با تغيير پسوند آن دستور shell كار ساز نيست .
با تشكر

[ho3ein.3ven]

سلام . فک نکنم همچین کاری رو بشه انجام داد.تنها راهش اینه که شما پسوند دی ال ال رو تو سیستم تنظیم کنی که با اکسس باز شه .
اگر می خوای که کاربر بانک اطلاعاتیتون رو نبینه و اون رو اجرا کنید راه های بهتری هم هست.

[the king]

سلام
میخواهم یک فایل اکسس که در مسیر برنامه است و پسوند آن را از mdb به dll تغییر داده ام را از محیط وی بی اجرا نمایم . از اساتید ممنون میشم اگر در این مورد راهنمائی فرمایند.
با تشکر

باز کردن فایل C:\Sample.dll در Microsoft Access اینطوری یه :

Private Const SW_SHOWMAXIMIZED As Long = 3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hWnd, "open", "MSACCESS.EXE", "C:\sample.dll", vbNullString, SW_SHOWMAXIMIZED
End Sub

[nazanin_90]

باز کردن فایل C:\Sample.dll در Microsoft Access اینطوری یه :

Private Const SW_SHOWMAXIMIZED As Long = 3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Form_Load()
ShellExecute Me.hWnd, "open", "MSACCESS.EXE", "C:\sample.dll", vbNullString, SW_SHOWMAXIMIZED
End Sub

آفرين به the king عزيز!
خيلي عالي بود:تشویق:

[nazanin_90]

با سلام مجدد

دردستور فوق بجای درایو c
App.Path & "\" & "MyFile.Dll را جایگزین نمودم و برنامه اکسس اجرا میشود اما در یکی از درایوها و اگر مسیر (مکان)برنامه درپوشه My Documents یا Desktop باشد برنامه اکسس اجرانمیشود .
باتشکر

[m.4.r.m]

خوب به خاطر اینکه My document و Desktop هم مسیر داره همینطوری تک آدرس نیست که باید آدرس رو بهش بدی بعداً بتونی متصل بشی در ضمن هیچ برنامه نویسی تا به حال بر روی ریشه دسکتاپ و داکومنت بانک اطلاعاتی قرار نداده و نمیده

[nazanin_90]

خوب به خاطر اینکه My document و Desktop هم مسیر داره همینطوری تک آدرس نیست که باید آدرس رو بهش بدی بعداً بتونی متصل بشی در ضمن هیچ برنامه نویسی تا به حال بر روی ریشه دسکتاپ و داکومنت بانک اطلاعاتی قرار نداده و نمیده
سلام
فكر نمي كنم دليل اين باشه كه شما فرموديد ، چرا كه App.Path آدرس جاري فايل در هر مسيري مي باشد . من با كد ديگر ( در حال حاضر به آن دسترسي ندارم )كه در قسمت آدرس آن از App.Path استفاده مي كنم موفق به اجراي فايل اكسس در My document و Desktop ميشوم اما آن كد در ويندوز سون كار نمي كند.
ضمناً همانطور كه شما اشاره كرديد هیچ برنامه نویسی بانك اطلاعاتي برنامه خود را در مسير هاي فوق قرار نمي دهد و معقولانه هم نيست . منتها من اين كار را براي امتحان اجراي برنامه در مسيرهاي فوق قرار دادم .
با تشكر

[alirezabahrami]

سلام
فكر نمي كنم دليل اين باشه كه شما فرموديد ، چرا كه App.Path آدرس جاري فايل در هر مسيري مي باشد . من با كد ديگر ( در حال حاضر به آن دسترسي ندارم )كه در قسمت آدرس آن از App.Path استفاده مي كنم موفق به اجراي فايل اكسس در My document و Desktop ميشوم اما آن كد در ويندوز سون كار نمي كند.
ضمناً همانطور كه شما اشاره كرديد هیچ برنامه نویسی بانك اطلاعاتي برنامه خود را در مسير هاي فوق قرار نمي دهد و معقولانه هم نيست . منتها من اين كار را براي امتحان اجراي برنامه در مسيرهاي فوق قرار دادم .
با تشكر
سلام
با توجه به اينكه آدرس فايل بايد بين دو كوتيشن("") قرار بگيرد در ستور فوق ، App.Path & "\" & "MyFile.Dll را بصورت """"& App.Path & "\" & "MyFile.Dll &"""" جايگزين كن !
موفق باشيد

[nazanin_90]

سلام
با توجه به اينكه آدرس فايل بايد بين دو كوتيشن("") قرار بگيرد در ستور فوق ، App.Path & "\" & "MyFile.Dll را بصورت """"& App.Path & "\" & "MyFile.Dll &"""" جايگزين كن !
موفق باشيد
سلام
ممنون با اين راهكار به جواب رسيدم