mhmoein
سه شنبه 17 دی 1387, 21:30 عصر
سلام
دوستان عزيز كسي مي دونه با كنترل ADODC چه جوري مي شه تصوير رو تو بانك اطلاعاتي ذخيره كرد ؟
من يك نمونه كد پيدا كردم از دوست عزيزمون
obalitjoOon (http://www.barnamenevis.org/forum/member.php?u=47457) اما جواب نداد البته يكسري تغييرات هم درش دادم ولي نشد كه نشد از اساتيد كسي مي تونه منو راهنمائي كنه ممنون مي شم ؟
البته اينو هم بگم ها ذخيره كرد ولي نشون نمي ده تصوير رو.
Private Sub CmdNew_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub CmdNew_Click()
CommonDialog1.Filter = "(*.JPG)|*.JPG"
If CommonDialog1.Filename <> "" Then
Image1.Picture = LoadPicture(CommonDialog1.Filename)
End If
End Sub
Private Sub CmdSave_Click()
Call CmdOpen
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
دوستان عزيز كسي مي دونه با كنترل ADODC چه جوري مي شه تصوير رو تو بانك اطلاعاتي ذخيره كرد ؟
من يك نمونه كد پيدا كردم از دوست عزيزمون
obalitjoOon (http://www.barnamenevis.org/forum/member.php?u=47457) اما جواب نداد البته يكسري تغييرات هم درش دادم ولي نشد كه نشد از اساتيد كسي مي تونه منو راهنمائي كنه ممنون مي شم ؟
البته اينو هم بگم ها ذخيره كرد ولي نشون نمي ده تصوير رو.
Private Sub CmdNew_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub CmdNew_Click()
CommonDialog1.Filter = "(*.JPG)|*.JPG"
If CommonDialog1.Filename <> "" Then
Image1.Picture = LoadPicture(CommonDialog1.Filename)
End If
End Sub
Private Sub CmdSave_Click()
Call CmdOpen
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub