تعیین مسیر دیتابیس [بایگانی]

esafb52

سه شنبه 24 شهریور 1388, 14:02 عصر

با سلام به همه اساتید و کاربران سایت
من در وبی برنامه رو نوشتم که با یک مشکل در تعیین مسیر دیتابیس مواجه شدم بدین صورت که در این برنامه من از یک فایل اکسس به عنوان دیتابیس برای برنامه خود استفاده کردم اما مشکل از اینجا شروع می شود که اگر کاربر مسیر نصب برنامه رو به طور دلخواه قرار بده برنامه قادر به یافتن و برقرای لینک با دیتابیس نیست مثلا اگر در حین طراحی فایل اکسس من در درایو d باشد و از آنجا با پروژه من در وبی لینک شود اگر کاربر برنامه را درایو c نصب کند برنامه با مشکل مواجه میشود حتی اگر تمام فایل پروژه خود را در یک در مسیر قرار دهم و کاربر مسیر دیگری را برای نصب انتخاب کند بازهم مشکل ایجاد میشود و خطای عدم یافتن دیتابیس صادر میشود در کل میخواهم بدانم که چگونه برنامه خود را در vb طراحی و لینک گذاری کنم که با هر مسیر نصبی در هر درایو این مشکل ایجاد نشود
از همه دوستان متشکرم

Dr.Bronx

سه شنبه 24 شهریور 1388, 18:15 عصر

شما باید از App.path استفاده کنید نمونه زیر رو ببنید

"Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database Password=Yourpass;Data source =" & App.Path & "\DatabaseName.mdb"

esafb52

چهارشنبه 25 شهریور 1388, 00:20 صبح

تشکر اما میشه این رو با یک نمونه ساده توضیح بدهی چون من متاسفانه از آماتورها ی این سایت هستم

r0ot$harp

چهارشنبه 25 شهریور 1388, 03:33 صبح

ببینید دوست عزیز شما باید همیشه فایل دیتابیس در کنار برنامتون باشه در ضمن برای اینکه کاربر نتونه خراب کاری کنه همیشه یه نشونه هایی یا فیلدهایی در دیتابیس به صورت کد شده قرار بدین که وقتی کاربر خواست با برنامه بازی کنه برنامه اجرا نشه و یه خورد کاربر ادب بشه . در ضمن اینم یاد آور بشم که کاریر نباید بتونه مسیر دیتابیس رو برای خودش ویرایش کنه . به این نکته باید توجه کرد که همه ی کاربر ها معمولی نیستن .

باتشکر احسان

esafb52

چهارشنبه 25 شهریور 1388, 21:27 عصر

با سلام وتشکر از پاسخ های خوبتون
اما دوست عزیزdr.bronx حالا من روی اشیا مثل سابق کنترل کاملی رو ندارم مثلا من روی صفحه از یک دیتا گراید استفاده کردم اما نمی تونم کپشن ها را فارسی کنم و کلوم ها رو دستکاری کنم یا کلید تب مثل سابق کار نمی کنه یا حتی اگر من یک تکسباکسی رو روی صفحه بذارم و دیتا سورسش رو معلوم کنم بازم نمی تونم که دیتا فیلد رو انخاب کنم اما با روش قبلی این کارها به راتی انجام میشد فکر کنم برای همه این کارها باید کد نویسی کنم آیا نمیشه از هردو روش در کنار هم به طور مفیدی استفاده کرد یا راه حل دیگه ارائه داد که دسترسی به سادگی قبل باشه اما آدرس دهی به این روش انجام بشه؟؟
تشکر

ali-software

پنج شنبه 26 شهریور 1388, 11:24 صبح

برای تغییر کپشن در datagrid

datagrid1.item( 0.caption="name"

pernia

پنج شنبه 26 شهریور 1388, 11:29 صبح

راه دوست عزیزمون Dr.Bronx (http://barnamenevis.org/forum/member.php?u=48204) همیشه کار نمیکنه و با مشکل BackSlash مواجه میشه! اگه به ریشه نصب بشه!
پس تنها راهش که خیلی هم ساده هست اینه!

یه تابع بساز و اینجوری استفاده کن

Public Function TruthPath() As String
If Right(App.Path, 1) = "\" Then
TruthPath = App.Path ' 'if doesn't need backslash
Else
TruthPath = App.Path & "\" 'if needs backslash
End If
End Function

مثال

TruthPath & "res\x2.mdb" 'sample

Dr.Bronx

پنج شنبه 26 شهریور 1388, 21:31 عصر

من عمریه که از همون روش استفاده می کنم و تا به حال هیچ اشکالی رو نداشتم
این دوستمون می خوان با adodc1.recordset.update کار کنن
که خوب باید یک راه رو انتخاب کرد دیگه
ولی اون کد اشکالی نداره خواستید کد کامل رو قرار بدم

esafb52

جمعه 27 شهریور 1388, 01:23 صبح

تشکر میکنماز پیرنیا عزیزو دکتر برونکس من از هر دو روش استفاده میکنم و تست میکنم اگه کد کامل رو هم قرار بدی ممنون میشم

vbhamed

جمعه 27 شهریور 1388, 01:23 صبح

راه دوست عزیزمون Dr.Bronx (http://barnamenevis.org/forum/member.php?u=48204) همیشه کار نمیکنه و با مشکل BackSlash مواجه میشه! اگه به ریشه نصب بشه!
پس تنها راهش که خیلی هم ساده هست اینه!

یه تابع بساز و اینجوری استفاده کن

Public Function TruthPath() As String
If Right(App.Path, 1) = "\" Then
TruthPath = App.Path ' 'if doesn't need backslash
Else
TruthPath = App.Path & "\" 'if needs backslash
End If
End Function

مثال

TruthPath & "res\x2.mdb" 'sample

سلام
اين هم يك راه ساده تر

Replace(App.Path & "\Test.Mdb" , "\\", "\")