+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف اضافة صورة لقاعدة بيانات Access عبر استعلام SQL (/showthread.php?tid=4140)
كيف اضافة صورة لقاعدة بيانات Access عبر استعلام SQL - yassine_hell - 26-04-2012
السلام عليكم
كيف اضافة صورة لقاعدة بيانات Access عبر استعلام SQL
PHP كود :
ADOQuery1.SQL.Text := 'Insert INTO users '+
'Values '+
'('+
''''+ID.text+''','+
''''+MName.text+''','+
''''+MLastName.text+''','+
''''+MCIN.text+''','+
''''+MTel.Text+''','+
''''+MJob.text+''','+
''''+MAdr.text+''','+
''''+DateToStr(MJoinDate.Date)+''','+
''''+MCommiteList.Items[MCommiteList.ItemIndex]+''','+
''''+MEmail.Text+''','+
''''+DateToStr(MLastPayDate.Date)+''','+
''+[Image1]''+
')';
شكرا
كيف اضافة صورة لقاعدة بيانات Access عبر استعلام SQL - yassine_hell - 26-04-2012
تم ليجاد الحل
PHP كود :
MainForm.ADOQuery1.SQL.Text := 'Insert INTO users '+
'Values '+
'('+
''''+ID.text+''','+
''''+MName.text+''','+
''''+MLastName.text+''','+
''''+MCIN.text+''','+
''''+MTel.Text+''','+
''''+MJob.text+''','+
''''+MAdr.text+''','+
''''+DateToStr(MJoinDate.Date)+''','+
''''+MCommiteList.Items[MCommiteList.ItemIndex]+''','+
''''+MEmail.Text+''','+
''''+DateToStr(MLastPayDate.Date)+''','+
':img'+
')';
MainForm.ADOQuery1.Parameters.ParamByName('img').LoadFromFile(dlgImg.FileName,ftBlob);