ورود

View Full Version : سوال: تغيير آدرس DatabaseName در شي Adodc متصل به اكسس


rezankh
چهارشنبه 08 آبان 1392, 17:19 عصر
سلام
در Adodc در قسمت تعيين آدرس DatabaseName فقط مقدار Bank.mdb رو گذاشتم يعني فايل اكسس موجود در پوشه اصلي برنامه.
حال هر زمان كه پنجره انتخاب فايل ( عكس و ... ) به هرطريقي در برنامه فراخواني ميشه، اگه آدرسش پوشه اصلي برنامه باشه كه مشكلي نداره ولي مثلا زمانيكه وارد My Pictures ميشم تا عكس رو انتخاب كنم، پيغام زير رو ميده كه در عنوانش نام تيبل بانك اطلاعاتي هست و پيغامش هم عدم توانايي در پيدا كردن فايل Bank.mdb در مسير My Pictures هست. البته با رفرش هاي مكرر مانع از ايجاد مشكل شدم ولي موندم چيكار كنم كه اين پيغام رو نده.
SlowCode
جمعه 10 آبان 1392, 21:01 عصر
مسیردهی پوشه برنامه که اینطوری نیست!
شما از قسمت property مقدار DatabaseName رو خالی بزار، بعد تو فرم لود این کد رو بنویس:

data1.databaseName = app.path & "\data.mdb"
amir zahed
دوشنبه 07 مهر 1393, 07:34 صبح
سلام من يه مشكل دارم با شي data اين مشكل رفع ميشه اما اگه شي adodc باشه چطور؟
SlowCode
دوشنبه 07 مهر 1393, 10:07 صبح
سلام
فرق آنچنانی نداره! باید ConnectionString رو ویرایش کنی، اینطوری:

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & app.path & "\database.mdb;" & "Persist Security Info=False"
amir zahed
دوشنبه 07 مهر 1393, 11:00 صبح
سلام دوست عزيز
ممنون. با اين كد درست شد. فقط عكس هايي كه اسمشون فارسي هست نميذاره بذارم.
يه سوال ديگه اينكه من بعد از وارد كردن اطلاعات تكس باكس ها رو خالي ميكنم اما تصوير رو نميشه
اينم كدهاش
مثلاً
text1.text= ""
image1.picture= ""
دستور دوم رو ايراد ميگيره
SlowCode
دوشنبه 07 مهر 1393, 11:22 صبح
از یکی از دستورات زیر استفاده کن:

Picture1.Picture = LoadPicture("")
Set Picture1.Picture = Nothing
amir zahed
دوشنبه 07 مهر 1393, 12:26 عصر
ممنون دوست عزيز
من تو يه فرم ديگه اين اطلاعات رو ميارم. اما عكسها رو بهم نشون نميده. Ado هم ست كردم اما جعبه عكسها رو خالي مياره
البته من عكسها رو با فرمت ole در اكسس ذخيره كردم