ورود

View Full Version : سوال: ذخیره عکس در بانک بدون تغییر در آدرس Connection به بانک Access


negaresh-sa
دوشنبه 16 آبان 1390, 22:24 عصر
با سلام خدمت دوستان عزیز
من یه مشکلی دارم که خیلی منو درگیر خودش کرده. ممنون میشم اگه کمکم کنید.

یه برنامه دارم که توش با command dialog یه فایل عکس رو انتخاب میکنم و آدرسش رو توی یه فیلد از بانک ذخیره میکنم.
چون آدرس بانک توی Connection String مربوط به ADODC به اینصورت هستش: "Database.mdb" موقعی که با Command dialog عکس رو انتخاب میکنم و آدرسش رو توی بانک ذخیره میکنم ، دیگه Adodc به بانک اتصال نداره و آدرس اون عکس میشه آدرس Connection String
نمیدونم چیکار کنم!!!

ممنون میشم کمکم کنید
پیشاپیش از همکاری و همیاریتون سپاسگذارم.
M.T.P
دوشنبه 16 آبان 1390, 23:24 عصر
یه تیکه از کد برنامه یا بخشی از اون رو ضمیمه کنید.
sehm67
سه شنبه 17 آبان 1390, 01:46 صبح
با سلام

ببین این کار شما رو راه می ندازه

** ذخیره آدرس عکس در پایگاه داده **

http://s2.picofile.com/file/7166537090/image.zip.html
negaresh-sa
سه شنبه 17 آبان 1390, 10:10 صبح
با سلام

ببین این کار شما رو راه می ندازه

** ذخیره آدرس عکس در پایگاه داده **

http://s2.picofile.com/file/7166537090/image.zip.html

من این فایل ضمیمه رو قبلا دیدم ولی بازم همون مشکل رو داره
وقتی فایل رو انتخاب میکنی مسیر فایل عکس میشه مسیر بانک در Connection string اون و خطا میده.
در ضمن من نمیخوام آدرس مستقیم به بانکم بدم . مثل: D:\Databases\Database.mdb
negaresh-sa
سه شنبه 17 آبان 1390, 10:24 صبح
یه تیکه از کد برنامه یا بخشی از اون رو ضمیمه کنید.

بفرمایید دوست عزیز
اینم یه نمونه کوچیک از کاری که کردم :

http://s2.picofile.com/file/7177656234/Sample.rar.html
M.T.P
سه شنبه 17 آبان 1390, 12:29 عصر
پروپرتی ConnectionString مربوط به Adodc1 رو پاک کنید.
برای Text1 هم DataSource و Datafield رو پاک کنید.

این کد رو به برنامه اضافه کنید:


Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Database.mdb"
Set Text1.DataSource = Adodc1
Text1.DataField = "Pic"
End Sub
negaresh-sa
سه شنبه 17 آبان 1390, 13:59 عصر
پروپرتی ConnectionString مربوط به Adodc1 رو پاک کنید.
برای Text1 هم DataSource و Datafield رو پاک کنید.

این کد رو به برنامه اضافه کنید:


Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\Database.mdb"
Set Text1.DataSource = Adodc1
Text1.DataField = "Pic"
End Sub

ممنونم از کمکتون ولی قسمت Recordset رو یادتون رفت که مقدار بدین.

این روش رو میدونستم اما چون پروژه انجامی من خیلی بزرگه و نمیخواستم این همه کار رو دوباره انجام بدم واسه همین دنبال یه راه دیگه میگشتم.
به هر صورت ممنون از شما .
موفق باشید.
kitcat_m18
سه شنبه 24 آبان 1390, 01:35 صبح
شما بايد از فلگ زير قبل از انتخاب مسير استفاده کني تا مسير بانکت عوض نشه:

CommonDialog1.Flags = cdlOFNNoChangeDir

موفق باشي :لبخندساده: