View Full Version : کمک فوری در ذخیره عکس در بانک Sql
mohsen_iceman2000
جمعه 10 آذر 1391, 17:59 عصر
سلام هرچی تاپیک هارو گشتم نتونستم جواب دقیقی پیدا کنم
من بانکم Sql 2000 هست می خوام بدونم چه جوری می تونم یه عکس رو به صورت کامل ذخیره کنم که اگر عکس از کامپیوتر حذف شد در بانک موجود باشه
مرسی
raminshahmoradi
جمعه 10 آذر 1391, 18:18 عصر
سلام
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
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.