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
Ïà¹ØÎÊ´ð£º
Õâ¸öÊÇÀ¹½Ø°´¼üÏûÏ¢²¢²âÊÔÊÇ·ñΪENTER¼ü¡£
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
½ÓÊÕµ½µÄÎı¾ÄÚÈÝÊÇucs2±àÂë¸ñʽ£¬ÇëÎÊÔõÑùת»»³ÉÖÐÎÄ
°´ÎÒµÄÀí½â£¬UCS-2ÊÇ×Ö·û¼¯£¬¾ßÌåµÄ±àÂëÓÐUTF-8£¬UTF-16 (LE/BE)µÈ¡£
Èç¹ûÄãÓÃDelphi 2009¼°ÒÔÉϰ汾£¬¿ÉÒÔ¿´¿´TEncodingÀà¡£
btw. Äã˵µÄת»»³ÉÖÐÎÄÊÇɶÒâË ......
Çë½Ì¸÷·¸ßÊÖ¡£ÎäÁÖǰ±²¡£ÎÒ½«B.EXE×ö³É×ÊÔ´Îļþ£¬È»ºó¼Óµ½123.dllÖС£ÓÃA.EXEÀ´µ÷ÓÃ123.dllÖеÄB.EXE
Çë¸÷λǰ±²°ïæָ½ÌÏ¡£A.exeÈçºÎÀ´µ÷ÓÃdllÖеÄexe£¿´úÂëÓÖ¸ÃÈçºÎд£¿
ÎÞÈ˻شð£¿
×ö³É×ÊÔ´Î ......
Õâ¸öÊôÐÔÔõôÓ𡣿
ÎÒÏëʵÏÖÈçϹ¦ÄÜ£ºÔÚdbgridehÖа´Ï¼ýÍ·£¬Èç¹ûµ±Ç°Ö¸ÕëÍ£ÁôÔÚÏàÓ¦ÁÐÉÏ£¬¾ÍÁгöÔ¤ÉèµÄ¼¸¸öÑ¡Ï¹©Óû§Ñ¡Ôñ£¨Óëcombobox£©ÀàËÆ
ÇëÎÊ£¬ÓÃdropdownlist¿É·ñʵÏÖ£¿
ÐÂÊÖ£¬°ïÄãUPÏ ÈËÆø¡£
......
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 ......