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

[Diego]

سلام. کد نمیخوام،راهنمایی میخوام.
میخوام مثلاً اسم یه سری اشخاص رو وارد دیتابیس اکسس vb کنم،بعد عکس هر شخص رو بتونم به برنامه معرفی کنم که آدرسش توی دیتابیس ذخیره بشه و هربار که مشخصات شخص رو باز کردم عکس رو هم نشون بده.

[Mohsen.Sh_PC]

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

[Diego]

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

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

[hamedvahedi]

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]

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

[Diego]

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 هستش؟آره؟
با چه کدی میشه همین مسیر رو توی یه فیلد ذخیره کرد؟

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

میشه بیشتر توضیح بدید؟

[hamedvahedi]

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]

ممنون.تست میکنم