صفحه اول
به وبلاگ آموزش برنامه نویسی خوش آمدید ، برای شما لحظات خوشی را در این وبلاگ آرزو می کنم . این وبلاگ با هدف آموزش برنامه نویسی با تمام زیان ها ایجاد شده است به همین خاطر مطالب این پایگاه گلچینی از بهترین آموزش ها در اینترنت می باشد . من "رضا عبدالملکی " دانشجوی دوره کاردانی رشته کامپیوتر از شهرستان دورود در استان لرستان هستم و منتظر نظرات ، پیشنهادات و انتقادات شما می باشم . موفق و پیروز باشید .
من در سال دوم دبيرستان ( هنرستان ) يعني سه سال پيش در طراحي بانك اطلاعاتي ام كه مربوط به كاركنان يك اداره بود در قرار دادن عكس در بانكهاي اكسس مشكل داشتم كه با راهنماييهاي استادم ( آقاي فلاحي ) تونستم مشكلمو حل كنم . البته با كدنويسي در برنامه نويسي ويژوال بيسيك . حالا اين كد رو تو يكي از پروژه هام پيدا كردم . كد به درد بخوريه :
"*** يادتون نره كامند ديالوگ بذاريد ها ***"
Private Sub CmdNew_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub CmdNew_Click()
CommonDialog1.Filter = "(*.JPG)|*.JPG"
If CommonDialog1.Filename <> "" Then
Image1.LoadPicture = (CDMain.Filename)
End If
End Sub
Private Sub CmdSave_Click()
Call CmdOpen
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Adodc1.Recordset.AddNew
End Sub
Private Sub CmdNew_Click()
CommonDialog1.Filter = "(*.JPG)|*.JPG"
If CommonDialog1.Filename <> "" Then
Image1.LoadPicture = (CDMain.Filename)
End If
End Sub
Private Sub CmdSave_Click()
Call CmdOpen
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
ذخیره عکس در پایگاه داده باعث بالا رفتن حجم پایگاه داده میشه و از سرعت دسترسی به اطلاعات یک رکورد کاسته میشه. پس توصیه میشه که عکس رو در پایگاه داده ذخیره نکنید!
ارسال در تاريخ سه شنبه 17 آذر 1388 توسط
رضا عبدالملكي