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
ÔõÑù»ñÈ¡ÍøÒ³²¿·ÖÄÚÈÝ£¨´úÂ룩£¬²¢ÇÒÏÔʾ³öÀ´£¡
£¨Ö»ÊÇÍøÒ³ÀïÃæµÄÒ»²¿·ÖÄÚÈݲ¢²»ÊÇÈ«²¿£©
ûŪ¶®£¡
ÀàËÆwebseverµÄ¹¦ÄÜ£¿
¹À¼ÆÊÇÀûÓÃieµÄ½Ó¿Ú¡£¡£¡£¡£¡£¡£¡£¡£
ÊÇÀàËÆwebseverµÄ¹¦ÄÜ ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
VC++ ÖУ¬ &±äÁ¿Ãû¡£ ÊÇʲôÒâ˼¡£ DelphiÖÐ ºÍËûÒ»ÑùµÄ·ûºÅ ÊÇÄĸö¡¢£¿
´ó¼Ò¶¼ÈÏΪ£¬CÓïÑÔÖ®ËùÒÔÇ¿´ó£¬ÒÔ¼°Æä×ÔÓÉÐÔ£¬ºÜ´ó²¿·ÖÌåÏÖÔÚÆäÁé»îµÄÖ¸ÕëÔËÓÃÉÏ¡£Òò´Ë£¬ËµÖ¸ÕëÊÇCÓïÑÔµÄÁé»ê£¬Ò»µã¶¼²»Îª¹ý¡£Í¬Ê±£¬ ......
ÓÃDEDE´ò¿ªÒ»¸öDLL£¬ÕÒµ½ÐèÒªµÄº¯ÊýÁË£¬µ«ÊÇÏÔʾµÄ¶¼ÊÇ»ã±à´úÂ룬¿´²»¶®£¬¿ÒÇë¸ßÊÖפ×ã°ïæ°¡£¡
ÊÇÒ»¸öKEYPRESSÏìÓ¦º¯Êý£¬¹¦ÄÜÊÇÔÚ°´ÏÂenterºóÅжÏÊäÈëµÄ×Ö·û£¬ÎÒÏë°´ÕÕ×Ô¼ºµÄÐèÇóÌø×ª£¬µ«ÊÇ
ÕÒ²»µ½Î»Ö㬸ßÊÖ ......
VC ¿ØÖÆÌ¨³ÌÐò:
#include <iostream>
using namespace std;
int main()
{
const int def_buffer = 1024 * 4;
DWORD t;
BYTE b[def_buffer];
memset(b, 0, sizeof(b));
PBYTE p;
t = GetTickC ......