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<
Ïà¹ØÎĵµ£º
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')
......
Ò». Ora-24801:ÔÚOCI_lobº¯ÊýÖзǷ¨µÄ²ÎÊýÖµ
°ÑÒ»Õź¬ÓГ±¸×¢”×ֶεıíͨ¹ýODBCµ¼³öµ½OracleµÄʱºòÒ»Ö±³öÏÖÈçÉÏͼËùʾµÄÌáʾÐÅÏ¢¡£³¢ÊÔÈ¥µôÏà¹Ø×Ö¶ÎÖпոñ×Ö·û£¬È¥µô×Ö¶ÎΪ¿ÕµÄ¼Ç¼£¬»¹Êǵ¼³öʧ°Ü¡£×îºóżȻ·¢ÏÖ£¬ÖØÐ½¨Ò»ÕÅÏàͬ½á¹¹µÄ¿Õ±í£¬È»ºó¸´ÖÆÔ±íµÄ¼Ç¼£¬ÔÙÕ³Ìùµ½Ð±íÖУ¬µ¼³öµ½Oracle¾ ......
ÔÚÉè¼ÆÊý¾Ý¿âÓ¦ÓóÌÐòµÄʱºò£¬¾³£ÐèÒª½«Ò»Ð©ÐÅÏ¢´Ó³ÌÐòÖжÀÁ¢³öÀ´£¬ÒÔ±£Ö¤³ÌÐòµÄ¿ÉÒÆÖ²ÐÔ¡£ÆäÖÐ×îÖØÒªµÄÐÅÏ¢¾ÍÊÇÊý¾Ý¿âµÄÁ¬½Ó²ÎÊý¡£
ÔÚDelphiÖУ¬»ñµÃÕýÈ·µÄÊý¾Ý¿âÁ¬½Ó²ÎÊýµÄ·½·¨Ê®·Ö¼òµ¥£¬ÄãÖ»ÐèÒª½¨Á¢Ò»¸öÊý¾ÝÄ£¿é£¬ÔÚÆäÖÐÌí¼ÓÒ»¸öADO Connection,Ë«»÷Ö®£¬È»ºóÔÚµ¯³öµÄ´°¿ÚÖÐÑ¡“Use Connection String”£¬µ¥ ......
<%
function FSOFileDel(filename)
Dim objFSO,objCountFile,FiletempData
On Error Resume Next
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile =objFSO.DeleteFile(Server.MapPath(filename),true)
objCountFile.Close
Set objCountFile=Nothing
Set objFSO = Nothing
En ......
ÒÔCaps Lock¼ü¾ÙÀý£¬ÆäËü(VK_NUMLOCK),Ààͬ£º
ÅжÏ״̬£º
·½·¨1
Level: integer;
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//ûÁÁ
else
//ÁÁÁË(1)
·½·¨2
KeyState : TKeyBoardState;
GetKeyboardState(KeyState);
if KeySt ......