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

DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â

DELPHIÖвÙ×÷ACCESSÊý¾Ý¿â(½¨Á¢.mdbÎļþ,ѹËõÊý¾Ý¿â)

ÒÔÏ´úÂëÔÚWIN2K,D6,MDAC2.6ϲâÊÔͨ¹ý,

±àÒëºÃµÄ³ÌÐòÔÚWIN98µÚ¶þ°æÎÞACCESS»·¾³ÏÂÔËÐгɹ¦.







//ÉùÃ÷Á¬½Ó×Ö·û´®

Const

SConnectionString      
= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'

+'Jet
OLEDB:Database Password=%s;';

//=============================================================================

// Procedure:
GetTempPathFileName

//
Author   : ysai

// Date     :
2003-01-27

// Arguments:
(None)

//
Result   : string

//=============================================================================

function GetTempPathFileName():string;

//È¡µÃÁÙʱÎļþÃû

var

SPath,SFile:array [0..254] of char;

begin

GetTempPath(254,SPath);

GetTempFileName(SPath,'~SM',0,SFile);

result:=SFile;

DeleteFile(result);

end;

//=============================================================================

// Procedure:
CreateAccessFile

//
Author   : ysai

// Date     :
2003-01-27

// Arguments:
FileName:String;PassWord:string=''

// Result   : boolean

//=============================================================================

function CreateAccessFile(FileName:String;PassWord:string=''):boolean;

//½¨Á¢AccessÎļþ£¬Èç¹ûÎļþ´æÔÚÔòʧ°Ü

var

STempFileName:string;

vCatalog:OleVariant;

begin

STempFileName:=GetTempPathFileName;

try

vCatalog:=CreateOleObject('ADOX.Catalog');

vCatalog.Create(format(SConnectionString,[STempFileName,PassWord]));

result:=CopyFile(PChar(STempFileName),PChar(FileName),True);

DeleteFile(STempFileName);

except<


Ïà¹ØÎĵµ£º

Access Web Êý¾Ý¿âºÍ Access չʾ

Access ÏîÄ¿¹ÜÀíÍÅ¶ÓµÄ Clint ÔÚ´ËÏò Office ¹¤³Ì²©¿ÍµÄ¶ÁÕß±íʾÎʺò¡£Í¨¹ýÓëµÚ 9 ƵµÀºÏ×÷£¬Access ÍŶӼ´½«ÍƳöÒ»¸öÃûΪ Access չʾµÄÐÂչʾ¡£ÆäÖ÷ÒªÈËÎï°üÀ¨ Ryan McMinn¡¢ÎÒ±¾ÈËÒÔ¼°ÍŶӵÄÆäËûÈËÔ±¡£ÎÒÃǽ«ÉîÈë̽ÌÖ Access 2010 ºÍ Access Services ÖеÄÐÂÔö¹¦ÄÜ£¬²¢·ÖÏíÀ´×ÔÉçÇøµÄ·´À¡¡£
´ËÍ⣬×î½üÔÚ SharePoint D ......

Delphi abc

1. ×Ö·û´®Á¬½ÓÖ±½ÓÓÃ+£¬ÓëJavaºÍPythonÖеÄÏàͬ
2. Ö´ÐÐÍⲿÃüÁîʹÓÃwinexec£¬ShellExecute
    eg. ShellExecute(0, 'open', 'jre/bin/java', '-lang zh-CN', 'E:\myfolder', SW_SHOW);
3. ÅжÏÎļþ¡¢Îļþ¼ÐÊÇ·ñ´æÔÚ
    FileExists('C:\Users\bill\somefile.txt')
    ......

DELPHIÏß³ÌÀý×Ó

ÓÅÐãµÄÊý¾Ý¿âÓ¦ÓÃÓ¦µ±³ä·Ö¿¼ÂÇÊý¾Ý¿â·ÃÎʵÄËÙ¶ÈÎÊÌ⡣ͨ³£¿ÉÒÔͨ¹ýÓÅ»¯Êý¾Ý¿â¡¢ÓÅ»¯ ²éѯÓï¾ä¡¢·ÖÒ³²éѯµÈ;¾¶ÊÕµ½Ã÷ÏÔµÄЧ¹û¡£¼´Ê¹ÊÇÕâÑù£¬Ò²²»¿É±ÜÃâµØ»áÔÚ²éѯʱÉÁÏÖÒ»¸ö´øÓÐ SQL·ûºÅµÄɳ©£¬¼´Êó±ê±ä³ÉÁ˲éѯµÈ´ý¡£×î¿ÉÁ¯µÄÊÇÓû§£¬Ëû£¨Ëý£©ÔÚ´ËʱֻÄÜÎÞÄεصȴý¡£Óöµ½¼±ÐÔ×ӵģ¬¸É´àÔÚ´Ëʱ³¢ÊÔ WindowsÖеÄÆäËüÓ¦ÓóÌÐ ......

ACCESS SQLÓï·¨²Î¿¼

ACCESS SQLÓï·¨²Î¿¼
=================
Ò». »ù´¡¸ÅÄî
¿ÉÒÔʹÓõÄÊý¾ÝÀàÐÍÈçÏ£º
1.      TEXT£ºÎı¾ÐÍ£¨Ö¸¶¨³¤¶Èʱ£©£¬±¸×¢ÐÍ£¨²»Ö¸¶¨³¤¶Èʱ£©£»
2.     
CHAR£¬NCHAR£¬VARCHAR£¬NVARCHAR£ºÎı¾ÐÍ£¬¿ÉÒÔÖ¸¶¨³¤¶È£¬·ñÔòĬÈÏֵΪ255£¡
3.     ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØͼ | ¸ÓICP±¸09004571ºÅ