قرار دادن دیتا بیس اکسس برنا مه در فولدر دلخواه هنگام نصب

[mohammadi]

با عرض سلام به دوستان

ببینید من یه برنامه با vb می نویسم و یه فایل دیتا ببس اکسس به همراه دارد فرض کننید توی درایو d و فولدر test

حال می خواهیم این دیتا بیس در هر فولدری که کاربر برنامه را نصب کرد برنامه بتونه اجرا بشه؟

یعنی ممکنه کامپیوتر مقصد اصلا درایو d نداشته باشه



این مشکل را چه جور ی میشه حلش کرد

[xxxxx_xxxxx]

آدرس ديتابيس رو به اين صورت مشخص كنيد.
تو كدهاي برنامه، نه تو خصوصيات ابزارها:


App.Path & "\DataBase.mdb"

App.Path به آدرس جاري اشاره ميكنه

[mohammadi]

ببینید من توی کدها این جوری نوشتم ولی بعد از نصب دوباره میگه دیتا بیس ها تو فولدر مثلا hazine تو درایو d نیستن
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\hazine.mdb;Persist Security Info=False;Jet OLEDB:Database "

[majjjj]

سلام
1 خودتون چک کنید ببینید ایا بانک در مسیر نصب شده وجود داره یا نه
2 چه موقع این خطا رخ میده موقع گزارشگیری یا موقع ورود اطلاعات
3 خطا رو بصورت کامل اینجا بزارین تا دوستان کمکتون کنن

[mohammadi]

با سلام

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

تو این فرم یه adodc دارم و یه datagird که به هم ربط دارند من فکر می کنم مشکل از تنظیمات adodc است

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

حالا راهی است که تنظیم adodc را دستی انجام بدیم و دیتا کرید رو به اون وصل کنیم

الان بصورت زیر است تو فرم مشخصات adodc

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hazine\daryaft.mdb;Persist Security Info=False

[majjjj]

یعنی شما موقع select کردن رکوردها این مشکل برات پیش میاد یا موقع کانکت شدن به فایل اکسس
اگه فقط همین موقع اشکال دارین و بقیه موارد مشکلی پیش نمیاد خوب کانکشنت رو مطابق با بقیه کانکشنهای دیگه بساز البته من پیشنهاد میکنم که از adodc استفاده کنی تا احتیاج نباشه برای هر کاری یک کانکشن جدید تعریف کنی

[mohammadi]

نه موقع select کردن این مشکل را دارم


مشکل من اینه نمی دونم چه جوری بهش بفهمونم که دیتا بیس در هر جا که بود این انجام بشه نه حتمن تو درایو d و فولدر هزینه

اگه می خای کل برنامه را برات بزارم

[xxxxx_xxxxx]

سلام
اين كدي هست كه شما تو فرم daryaft تو قسمت لود فرم نوشتيد:


With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\daryaft.mdb;Persist Security Info=False;Jet OLEDB:Database "
.CommandType = adCmdTable
.RecordSource = "daryaft"
.Refresh
End With

دقيقاً همين كد رو هم براي فرم list2 تو قسمت لود فرم كپي كنيد، هيچ مشكلي نداره و DataGrid هم محتويات table رو نمايش ميده. فقط adodc فرم list2 رو پاك كنيد و دوباره يكي جديد رو فرم بزاريد(براي از بين رفتن خصوصيات)
موفق باشيد/

[mohammadi]

درست شد ولی یک مشکل جدید ایجاد شده

توی فرم لیست دریافتی در قسمت چپ که textbox جستجو قرار داره syntax eroor میدi این مشکل چیه؟

[xxxxx_xxxxx]

به اين خاطر هست كه شما از طرفي به command type مقدار adCmdTable ميديد و از طرفي تو recordsourceش دستور SQL استفاده مي كنيد.
نميشه اين دوكار رو با هم كرد.پس خط قرمز رنگ تو load فرم رو حذف كنيد:


With Adodc1
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\daryaft.mdb;Persist Security Info=False;Jet OLEDB:Database "
.CommandType = adCmdTable
.RecordSource = "daryaft"
.Refresh
End With

بگذاريد به طور پيش فرض همان adCmdUnknown باشه

[mohammadi]

آخه دوست من

اینکار رو اگر انجام بدو فرم edit من دچار مشکل مبشه چون با دوبار کلیک کردن روی هر سطر یه سطر دیگر رو

برای edit کردن باز می کنه شما امتحان بفرمائید

[xxxxx_xxxxx]

خب همه Adodc ها رو با كد به بانك وصل كنيد. تو يك فرم از طريق خصوصيات اين كارو كرديد تو يه فرم ديگه با كد.
اگه همه رو يك جور كنيد بهتره. (با كد).
مثلاً تو اين دستور سعي داريد تا recordsource يك adodc كه حاوي دستور sql هست رو برابر با يك adodc ديگه كه adCmdTable هست كنيد:


edit2.Adodc1.RecordSource = Adodc1.RecordSource

ببينيد من دستورات شما رو پاك نكردم فقط به حالت كامنت دراوردم تا متوجه شيد.
adodc فرم edit رو هم مثل فرم list2 كردم.

[mohammadi]

بسیار بسیار ممنون از لطف بی دریغ تان

خیلی کمکم کردید بازم ازتون متشکرم دوست خوبم