Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

Delphiµ¼ÈëexcelÎļþ´úÂë

Áìµ¼¸øµÄÐÂÈÎÎñ ¿ÉÊǶ¼Ã»ÓÐ×ö¹ý Íû¸ßÊÖÖ¸½Ì
¸øÒ»Ð©È«µÄDelphiÖе¼ÈëexcelÎļþµ½sqlÊý¾Ý¿âµÄ´úÂë
лл£¡£¡

ÁíÍ⣺
ÕâÁ½¸öÀý×Ó£¬Òì¹¹Êý¾Ý¿âÖ®¼äµ¼Êý¾Ý

µÚÒ»ÖÖ·½·¨ 
  ÔÚFormÉÏ·ÅÒ»¸öADOConnection,Á¬½áÖ¸ÏòÄ¿±êAccess¿â 
  ÏÈ˵£¬µ¼Èëtxt£¬±ÈÈçtxtÎļþÔÚc:\temp\aaaa.txt 
  ¾ÍÖ´ÐР
  ADOConnection.Connected  :=  True; 
  ADOConnection.Execute(Select  *  Into  abcd  from  [Text;Database=c:\temp].aaaa.txt);   
 
  °ÑExcelµ¼Èëµ½AccessÖÐ,ͬtxtÀàËÆ 
  select  *  into  from  [excel  8.0;database=].[$] 
   
  µÚ¶þÖÖ·½·¨  ´ÓExcelдÊý¾Ýµ½Access¿â
  Delphi(Pascal) code:
//excelµ½access
uses comobj,excel97,excel2000;
//´ÓExcelдÊý¾Ýµ½Access¿â
prodedure ExcelToMdb(EXLfile:string;);
var
sheet,XLApp,workbook : variant;
iRow,MaxRow:integer;
begin
screen.Cursor:=crHourGlass;
try
//´´½¨¶ÔÏó
XLApp:=createOleObject(Excel.Application);
XLApp.displayAlerts:=false;
XLApp.ScreenUpdating:=false;
XLApp.WorkBooks.Add(EXLfile);
workbook := XLApp.workbooks[1];
sheet:=workbook.worksheets


Ïà¹ØÎÊ´ð£º

delphi Ctrl+×ó¼ü ÎÞ·¨²é¿´ windows.pas Ôõô°ì

ÎÒ°²×°µÄÊÇÆóÒµ°æ¡£¡£¡£ 
ÎÒÎÊÏ£¬ CTRL+×ó¼ü Äܲ鿴 windows.pas Âð£¿
¾ÍÊÇ ½Ó¿ÚÀïµÄwindows¡£

µ±È»¿ÉÒÔ,CTRL+×ó¼üµã»÷Interface²¿·ÖµÄWindows¾Í¿ÉÒÔÁË

ɶɶÆóÒµ°æ£¿È¥°²×°Ä¿Â¼¿´¿´libÎļþ¼ÐÏÂÓÐÃ»Ó ......

DelphiÔõÑùÏÔÊ¾ÍøÒ³µÄÒ»²¿·Ö

Delphi
  ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡

ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£

ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......

´ó¼Ò¾õµÃÓÃdelphi×öÀàËÆ¿áÎÒÒôÀֺеÄÈí¼þ¿ÉÐÐÐÔÈçºÎ£¿

ÓÐʲô¹¹ÏëÌÖÂÛһϡ£
ÕâÀà¶«Î÷Ö÷ÒªÊÇÈËÆøºÍ½çÃæ»¨ÉÚ,¼¼ÊõÉÏûʲôÄѵã.

ÕâÎÒÖªµÀ£¬ÄǼ¼ÊõÉϵÄÄØ£¿ÓÐûÓй¹ÏëһϸÃÔõôÉè¼Æ£¿Ö÷ÒªÊÇdelphi×ÔÉíÄܲ»Äܹ»Íê³É£¬Èôͬʱ´óÁ¿¿Í»§µÇ½£¬·´Ó¦ËÙ¶ÈÈçºÎµÈµÈ¡£

ÒýÓÃ ......

¹ØÓÚDelphiÁ¬½ÓACCESSÊý¾Ý¿â²éѯÎÊÌâ

¸÷λ´óϺ£¬Ð¡µÜÓõÄÊÇADOÁ¬½ÓACCESSÊý¾Ý¿â£¬ÓÃDBGridÏÔʾ²éѯµÄÊý¾Ý£¬ÎÒ×öµÄÊǸöÊý¾Ý²É¼¯ÏµÍ³£¬¸ù¾Ý²»Í¬µÄµØÖ·°ÑÊý¾Ý·ÅÔÚACCESSÊý¾Ý¿âÖв»Í¬µÄ±íÀïÃæ£¬ÏÖÔÚÎÒÏë²éѯijһ¶Îʱ¼äÄÚËùÓбíÄÚµÄÊý¾Ý£¬²¢ÇÒÔÚDBGridÖÐÏÔʾ³ ......

¸ß·ÖÇó¾È£¬delphiдµÄdll·´±àÒëÎÊÌâ

ÓÃDEDE´ò¿ªÒ»¸öDLL£¬ÕÒµ½ÐèÒªµÄº¯ÊýÁË£¬µ«ÊÇÏÔʾµÄ¶¼ÊÇ»ã±à´úÂ룬¿´²»¶®£¬¿ÒÇë¸ßÊÖפ×ã°ïæ°¡£¡
ÊÇÒ»¸öKEYPRESSÏìÓ¦º¯Êý£¬¹¦ÄÜÊÇÔÚ°´ÏÂenterºóÅжÏÊäÈëµÄ×Ö·û£¬ÎÒÏë°´ÕÕ×Ô¼ºµÄÐèÇóÌø×ª£¬µ«ÊÇ
ÕÒ²»µ½Î»Ö㬸ßÊÖ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ