ذخیره کردن عکس با رابط ADODC در بانک SQL

[SilverGold]

سلام به همه دوستان
من می خواهم یک عکس رو در یک فیلد در جدول SQL ذخیره کنم نوع فیلد را هم Image می گذارم به صورت باینری ذخیره می کنه ولی وقتی می خوام بخونم موندم چیکار باید بکنم خیلی مهم هست تا به حال به این مشکل برنخورده بودم یک برنامه دارم می نویسم و خیلی عجله دارم ممنون می شوم که شما دوستان مشکل من رو حل کنید

[ghasemweb]

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

موید باشد

[SilverGold]

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

[SilverGold]

دوستان عزیز من توانستم کدش را پیدا کنم و آن را به شما اهدا می کنم:تشویق:



Dim stm As New Stream

Private Sub CmdDelete_Click()
If Adodc1.Recordset.RecordCount = 0 Then Exit Sub
Adodc1.Recordset.Delete
Adodc1.Recordset.Requery
Adodc1.Refresh
End Sub

Private Sub CmdLoad_Click()
stm.Type = adTypeBinary
stm.Open

stm.Write Adodc1.Recordset.Fields(1).Value
stm.SaveToFile "C:\Temp.jpg", adSaveCreateOverWrite
Image1.Picture = LoadPicture("C:\Temp.jpg")
Kill ("C:\Temp.jpg")
stm.Close

End Sub

Private Sub CmdNext_Click()
Adodc1.Recordset.MoveNext
CmdLoad_Click
End Sub

Private Sub CmdSave_Click()
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile CmLog.FileName
Adodc1.Recordset.AddNew
Adodc1.Recordset![pic] = stm.Read
Adodc1.Recordset.Update
stm.Close

End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "SELECT * FROM Tbl_Img"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount <> 0 Then
Adodc1.Recordset.MoveFirst
CmdLoad_Click
End If
End Sub

Private Sub Image1_Click()
CmLog.ShowOpen
Image1.Picture = LoadPicture(CmLog.FileName)

End Sub