کمک فوری در ذخیره عکس در بانک Sql

[mohsen_iceman2000]

سلام هرچی تاپیک هارو گشتم نتونستم جواب دقیقی پیدا کنم

من بانکم Sql 2000 هست می خوام بدونم چه جوری می تونم یه عکس رو به صورت کامل ذخیره کنم که اگر عکس از کامپیوتر حذف شد در بانک موجود باشه


مرسی

[raminshahmoradi]

سلام


Dim t2 As String
Dim stm As New Stream

Private Sub open_Click()
On Error Resume Next
CDBox.DialogTitle = "áØÝÇð ÚßÓ ãæÑÏ äÙÑ ÎæÏ ÑÇ ÇäÊÎÇÈ äãÇííÏ"
CDBox.FileName = ""
CDBox.ShowOpen

If CDBox.FileName <> "" Then

On Error Resume Next
t2 = CDBox.FileName
p.Picture = LoadPicture(t2)

End If
End Sub




On Error Resume Next
stm.Type = adTypeBinary
stm.Open
stm.LoadFromFile CDBox.FileName
On Error GoTo tt

With Adodc1

If .Recordset.RecordCount = 0 Then

.Recordset.AddNew
.Recordset![photo] = stm.Read
.Recordset.Update
Form2.Adodc1.Refresh
stm.Close

Else

.Recordset![photo] = stm.Read
.Recordset.Update
Form2.Adodc1.Refresh
stm.Close

End If

End With

MSG.StartUpPosition = CenterScreen
MSG.BackColor = &HFFFF00
MSG.COK = "ÊÇííÏ"
MSG.EnabledCloseButton = True
MSG.IconVisible = True
MSG.InputAlignment = [Right Justify]
w = MSG.MessageBox("ÊÕæíÑ ãæÑÏ äÙÑ ÈÇ ãæÝÞÊ ÐÎíÑå ÔÏ", P360UInformation, "ÇäÊÎÇÈ ÊÕæíÑ", OKOnly, DefaultButton1)

Exit Sub
tt:

MSG.StartUpPosition = CenterScreen
MSG.BackColor = &HFFFF00
MSG.COK = "ÊÇííÏ"
MSG.EnabledCloseButton = True
MSG.IconVisible = True
MSG.InputAlignment = [Right Justify]
w = MSG