جستجوی عکس در هارد دیسک

[Yakataz]

سلام دوستان :قلب:

من یه فارم جستجو دارم که میخوام عکس و اطلاعات را که ثبت کردم جستجو کنم.

اطلاعات رو از تیبل اکسس گرفتم ولی عکس را که در هارد ذخیره کرده بودم نمیتونم بیارم لطفا یه مثال خوب یا اگر نمونه دارید برام بزارید ممنون میشم

موفق باشید

[reza1944]

ميتوني يك فيلد به تيبل اكسس با فرمت text اضافه كني و مسير عكس هر فيلد رو بهش بدي بعد مشكلت حل ميشه من خودم اين كار رو كردم.

[Yakataz]

reza1944: جان میشه یه نمونه از کد رو برام بزاری ؟

ممنون

[Afshin160]

با سلام ....

از كلاس Imports System.IO.File استفاده كن و از تابع

Public Shared Function Exists(ByVal path As String) As Boolean

نيز براي موجود بودن فايل استفاده كن

[reza1944]

خوب نمونه كد نمي خواد ولي توضيح اينكه
اول توي جدولي كه اطلاعات ذخيره ميشه يك فيلد به اسم مثلا pic اضافه كنن همون تو اكسس و از نوع text استفاده كن
بعد برگرد توي فرمت و يك دكمه براي لود عكس بزار وقتي عكس رو توي picture box قرار ميدي ركورد مورد نظر رو هم با مسير فايل update كن.

خيلي نوشتم مثال ميزارم برات

[reza1944]

اين هم مثال دوست عزيز

يك دكمه تشكر اون پايين وجود دارد

[milade]

يك دكمه تشكر اون پايين وجود دارد
یعنی چی دوست عزیز؟

[Yakataz]

reza1944 : جان این روی دیتا بسه

من میخوام عکس را از یک مسیر بیارم بالا و در صفحه جستجو نشان بدم. یعنی وقتی میخوام شماره سریال رو بزنم اطلاعات با عکس که قبلا ثبت کردم را نشاد بده ، عکس هم در picture box و بقیه اطلاعات در txtBox است نه در list view

هر کاری کردم نشد

لطفا کمکم کنید

[reza1944]

نشونه داده میشه چون ما مسیر عکس رو در یک فیلد جدول ذخیره میکنیم و توی جستجو مسیر عکس رو به picture box برگردون .

[Yakataz]

reza1944: جان من یه تازه کارم باید کمک کنی وگرنه تنهایی نمیتونم درست کنم.

این اولین باره که با جستجو عکس هم باید بالا بیارم ولی نمیتونم ....

خیلی ممنون میشم اگر یه نمونه خوب از جستجوی عکس با اطلاعات رو برام بزاری

[reza1944]

برات میزارم به همین زودی بایت بنویسم در خدمتت هم هستم برادر

[reza1944]

این هم مثال دوم:اشتباه: کارت راه میفته مطمئن هستم برای یه تازه کار نت خوبه
اگه کارت راه نیفتاد درست و حسابی بنویس برنامه چطوری و میخوای چیکار کنی کامل.
بنده حقیر در خدمتم.

[reza1944]

در این مورد شما وقتی یک رکورد رو جستجو میکنی خود برنامه خود به خود عکس نصب داده شده رو میاره و میزاره دیگر نیازی به جستجوی عکس نیست که ما انجام بدیم

[reza1944]

مثل اینکه به حمد الله کارت راه افتاد

[Yakataz]

نه رضا جان هنوز درست نشده:افسرده:

بزار نمونه رو برات بزارم با عکس

این کد دکمه جستجوی منه



If Con.State = ConnectionState.Open Then Con.Close()
Con.Open()

If txtTID.Text = "" Then
MsgBox("Please Enter T-Id", MsgBoxStyle.Critical)
txtTID.Focus()
Exit Sub
End If

Dim blnReader As Boolean = False
Dim ds As OleDb.OleDbDataReader
Dim cmd As New OleDb.OleDbCommand("select * from TRegister_table where TID = '" & txtTIDS.Text & "'", Con)

ds = cmd.ExecuteReader
blnReader = ds.Read


If blnReader = True Then
pnlTS2.Visible = True
pnlTS3.Visible = True
txtTID.Text = ds("TID")
txtName.Text = ds("Name")
txtNName.Text = ds("NickName")
txtFName.Text = ds("FamilyName")
txtGender.Text = ds("Gender")
txtAddress.Text = ds("Address")
txtContact.Text = ds("Contact")
txtQualification.Text = ds("Qualification")
txtDt.Text = ds("RegDate")
txtExperience.Text = ds("Experience")


Else
MsgBox("Data does not exist", MsgBoxStyle.Information)
Call clear()
End If


اینهم عکس

http://i36.tinypic.com/2qtwti8.jpg

[reza1944]

همهش درست اما من گفتم یک فیلد به نام مثلا pic و از نوع تکست باشه به جدول اضافه کن و در موقعی که یک رکورد اضافه میشه توسط کاربر مسیر عکس رو هم باید برنامه بگیره و در فیلد pic قرار بده حالا شما مسیر عکس برای رکورد رو داری و به راحتی میتونی در موقع جستجو و و یا هر کار دیگه ای مسیر عکس رو به picture box بدی و اون هم نشونش بده!

[reza1944]

این رو هم نگاه کن


If blnReader = True Then
pnlTS2.Visible = True
pnlTS3.Visible = True
txtTID.Text = ds("TID")
txtName.Text = ds("Name")
txtNName.Text = ds("NickName")
txtFName.Text = ds("FamilyName")
txtGender.Text = ds("Gender")
txtAddress.Text = ds("Address")
txtContact.Text = ds("Contact")
txtQualification.Text = ds("Qualification")
txtDt.Text = ds("RegDate")
txtExperience.Text = ds("Experience")
'اینجا فیلد picture رو باید داشته باشی توی دیتاباست
dim patch as string=ds("pic")
picturebox1.image=image.formfile(patch)
Else
MsgBox("Data does not exist", MsgBoxStyle.Information)
Call clear()
End If