ورود

نسخه کامل مشاهده نسخه کامل : open کردن عکس و ذخیره مسیر اون برای استفاده دوباره؟



Diego
25-11-2010, 00:34
سلام. کد نمیخوام،راهنمایی میخوام.
میخوام مثلاً اسم یه سری اشخاص رو وارد دیتابیس اکسس vb کنم،بعد عکس هر شخص رو بتونم به برنامه معرفی کنم که آدرسش توی دیتابیس ذخیره بشه و هربار که مشخصات شخص رو باز کردم عکس رو هم نشون بده.

Mohsen.Sh_PC
25-11-2010, 09:46
خوب آدرسشو توی یکی از فیلدهای دیتابیس دخیره کن بعد وقتی مشخصات افرادو میاری یک کنترل Image بزار و ادرسشو از توی دیتابیس به مشخصه Picture بده.

Diego
25-11-2010, 10:05
خوب آدرسشو توی یکی از فیلدهای دیتابیس دخیره کن بعد وقتی مشخصات افرادو میاری یک کنترل Image بزار و ادرسشو از توی دیتابیس به مشخصه Picture بده.

دقیقاً میخوام همینکارو کنم:31:
منتها میخوام یه کادر open باز بشه،باهاش محل عکس رو پیدا کنم و دیتا بیس خودش مسیر رو بشناسه و ذخیره کنه.
درست مثل سایتهای آپلود عکس که browse میکنیم و مسیر عکس رو پیدا میکنیم.

hamedvahedi
25-11-2010, 10:17
Private Dlg_Open As OpenFileDialog = New OpenFileDialog()
Private Dlg_Open.InitialDirectory = "C:\YourPictureFolder"
If Dlg_Open.ShowDialog() = DialogResult.OK Then
[make and execute your insert query.... Dlg_Open.FileName....]
End If

amirxbest
25-11-2010, 10:24
سلام دوست عزیز برای این کار باید از کنترل CommonDialog استفاده کنی که این کنترل رو خود بیسیک داره فقط باید add کنی.امیدوارم منظورتون همین باشه اگه کمک خواستین بگید تا رهنمایی کنم:46:

Diego
25-11-2010, 15:28
Private Dlg_Open As OpenFileDialog = New OpenFileDialog()
Private Dlg_Open.InitialDirectory = "C:\YourPictureFolder"
If Dlg_Open.ShowDialog() = DialogResult.OK Then
[make and execute your insert query.... Dlg_Open.FileName....]
End If
ممنون.ولی فکر کنم این فقط واسه کادر Open file هستش؟آره؟
با چه کدی میشه همین مسیر رو توی یه فیلد ذخیره کرد؟
:11:

سلام دوست عزیز برای این کار باید از کنترل CommonDialog استفاده کنی که این کنترل رو خود بیسیک داره فقط باید add کنی.امیدوارم منظورتون همین باشه اگه کمک خواستین بگید تا رهنمایی کنم:46:
میشه بیشتر توضیح بدید؟

hamedvahedi
25-11-2010, 16:46
Private Dlg_Open As OpenFileDialog = New OpenFileDialog()
Private Dlg_Open.InitialDirectory = "C:\YourPictureFolder"
If Dlg_Open.ShowDialog() = DialogResult.OK Then
[make and execute your insert query.... Dlg_Open.FileName....]
End If

آره تکه برنامه فوق ديالوگ رو باز ميکنه و پس از browse و زدن OK در ديالوگ، بايد دستورات درج در ديتابيس رو که من داخل [براکت] بصورت توضيحي نوشته بودم، بنويسي. چون از طراحي و نوع ديتابيس شما اطلاعي نداشتم کلي واست نوشته بودم.

با فرض استفاده از ديتابيس اکسس، کد داخل براکت ميتونه کدهايي شبيه زير باشه:


myCon = New OleDbConnection("Your Connection String")
myCon.Open()
SqlStr = "INSERT INTO MyTbl VALUES(""" & Dlg_Open.FileName & """)"
Command = New OleDbCommand(SqlStr, myCon)
cmd.ExecuteNonQuery
myCon.Close

Diego
25-11-2010, 17:38
ممنون.تست میکنم:11: