Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö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ÈçºÎÓñ£´æÊý¾Ý¿âÁ¬½Ó²ÎÊý£¨INIƪ£©

ÔÚÉè¼ÆÊý¾Ý¿âÓ¦ÓóÌÐòµÄʱºò£¬¾­³£ÐèÒª½«Ò»Ð©ÐÅÏ¢´Ó³ÌÐòÖжÀÁ¢³öÀ´£¬ÒÔ±£Ö¤³ÌÐòµÄ¿ÉÒÆÖ²ÐÔ¡£ÆäÖÐ×îÖØÒªµÄÐÅÏ¢¾ÍÊÇÊý¾Ý¿âµÄÁ¬½Ó²ÎÊý¡£
ÔÚDelphiÖУ¬»ñµÃÕýÈ·µÄÊý¾Ý¿âÁ¬½Ó²ÎÊýµÄ·½·¨Ê®·Ö¼òµ¥£¬ÄãÖ»ÐèÒª½¨Á¢Ò»¸öÊý¾ÝÄ£¿é£¬ÔÚÆäÖÐÌí¼ÓÒ»¸öADO Connection,Ë«»÷Ö®£¬È»ºóÔÚµ¯³öµÄ´°¿ÚÖÐÑ¡“Use Connection String”£¬µ¥ ......

aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó


aspÁ¬½Óaccess,³öÏÖ0x80004005,δָ¶¨µÄ´íÎó
aspÀ´Á¬½ÓaccessÊý¾Ý¿â
±¾µØ²âÊÔ·¢ÏÖ,¾²Ì¬Ò³¿ÉÒÔ´ò¿ª.
ºÍÊý¾Ý¿â½¨Á¢Á´½ÓµÄ´úÂëconn.open connstr Ðгö´í,µ«ÊÇÒÔǰ²âÊÔʪ¿ÉÒÔͨ¹ýµÄ.
ÔÚÍøÉÏÕÒÁËÕÒ½â¾ö°ì·¨,ÀýÈ磺 ¸øÓû§¼ÓȨÏÞ,¸ü¸ÄiisÉèÖÃ.µ«ÊÇ»¹ÊDz»ÐÐ.
¼ÌÐøÕÒ£¬ÕÒµ½Ò»ÆªÎÄÕ£¬ËµÊÇÒªÐÞ¸Äc:\windows\temp ȨÏ޵ġ£
......

»ñÈ¡Îļþ·¾¶(Delphi ) תÌù

ExtractFileDrive £º·µ»ØÍêÕûÎļþÃûÖеÄÇý¶¯Æ÷£¬Èç"C:"
ExtractFilePath£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó´ø“/”£¬Èç"C:\test\"
ExtractFileDir£º·µ»ØÍêÕûÎļþÃûÖеÄ·¾¶£¬×îºó²»´ø“/” ,Èç"C:\test"
ExtractFileName:·µ»ØÍêÕûÎļþÃûÖеÄÎļþÃû³Æ (´øÀ©Õ¹Ãû)£¬Èç"mytest.doc"
ExtractFileExt ·µ»ØÍ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ