£Û¼±£¬ÔÚÏߵȣÝdelphi sql2000 ͼƬ
1¡¢Â·¾¶ imgPath:string;//±ÈÈçÒѾµÃµ½ÁËͼƬ·¾¶
2¡¢SQL2000 Êý¾Ý¿â ±íÃû ttbtestimg ×Ö¶ÎÃû img ×Ö¶ÎÀàÐÍimage
3¡¢Çë¸øÒ»¸öÍêÕû´úÂ룬½«´Ë·¾¶ÏµÄͼƬ£¬´æÈëÊý¾Ý¿â£¬ÏàÓ¦±íµÄÏàÓ¦×Ö¶ÎÖÐ
4¡¢Çë¸ø³öÒ»¶ÎÍêÕû´úÂ룬½«´Ë±íÖеÄͼƬÏÔʾÔÚͼƬ¿Ø¼þÉÏ
4¡¢Çë¸ø³ö×¢ÊÍ
5¡¢³ÌÐòһͨ£¬Á¢¼´¸ø·Ö
Õâ¸öÓкܶàÈËÎʹý,¸øÄãÒ»¸ö²Î¿¼°É
http://topic.csdn.net/t/20051215/18/4461795.html
.....³ÌÐò»¹ÊÇÒª×Ô¼ºÐ´µÄ......
procedure TForm1.Button1Click(Sender: TObject);
var
picstream:tadoblobstream;
bmppic:tbitmap;
jpgpic:tjpegimage;
bmpstream:TMemoryStream;
OpenPicDialog:TOpenPictureDialog;
begin
try
OpenPicDialog:=TOpenPictureDialog.Create(nil);
OpenPicDialog.Filter:='All *.jpg;|*.jpg;)';
with AdoQuery1 do
begin
close;
sql.text := 'Insert into ttbtestimg(id) values(1)';
ExecSql;
SQL.Text := 'select id,img from ttbtestimg with(nolock) where id=1';
Open;
Edit;
if OpenPicDialog.Execute then
begin
jpgpic:=tjpegimage.Create;
bmppic:
Ïà¹ØÎÊ´ð£º
½«Ò»¸ö±í21~30ɾ³ý£¬sqlÓï¾äÔõôд
Õâ¸öÌ«ÁýͳÁË£¬ÊÇÅÅÐòºóµÄµÚ21Ìõµ½30Ìõ¼Ç¼ɾ³ý»¹ÊÇijһÁÐÖµÔÚ21µ½30Ö®¼äµÄɾ³ý°¡£¿
21-30ÊÇʲôÒâ˼£¿×ֶεϰ¾Ídelete from table1 where col1>=21 and col1<=30
Ö¸µ ......
access ÖÐÖ´ÐÐsql updateÓï¾äʱÓÐʱºò³É¹¦ÓÐʱºò²»³É¹¦£¬µ«ÊÇaccessÖв»³ö´íÎóÐÅÏ¢£¬²»ÖªµÀÊÇʲôÔÒò£¬ÓÐÄÄλ´óÏÀÖªµÀ£¬Çë°ïæ°¡
ÌùSQLÓï¾ä£¬¼ì²é±í¡¢×ֶεÄÓÐЧÐÔÉèÖÃ
sql ÔÚ²éѯ·ÖÎöÆ÷ÀïÃæ Ö´ÐкÜÕý³£
ÊÇ ......
СµÜÕý×¼±¸×Ô¼ºÌáǰѧϰÊý¾Ý¿â£¬µ«ÊÇÏÖÔÚÓиöÎÊÌ⣬²»ÖªµÀ¸ÃÑ¡Ôñʲô°æ±¾µÄSQL
ѧУÒÔºóµÄÊéºÃÏñ½²SQLÓõÄÊÇSQL 2000£¬µ«ÊÇÎÒµÄϵͳÊÇWindows 7£¬Ã²ËƲ»ÄÜ×°£¬Ò²²»Ïë»»»ØXP£¨07Äê¾Í²»ÓÃXPÀ²£©£¬ËùÒÔÔÚÏ룬ÄÜ· ......
ÔÊý¾Ý
ÉÌÆ· Ô¼Û ´òÕÛ·½Ê½1 ÕÛ¿Û1 ´òÕÛ·½Ê½2 ÕÛ¿Û2
±Ê¼Ç±¾ 10000 NULL 0 NULL&nb ......
ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£
µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË
ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......