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 项目管理团队的 Clint 在此向 Office 工程博客的读者表示问候。通过与第 9 频道合作，Access 团队即将推出一个名为 Access 展示的新展示。其主要人物包括 Ryan McMinn、我本人以及团队的其他人员。我们将深入探讨 Access 2010 和 Access Services 中的新增功能，并分享来自社区的反馈。
此外，最近在 SharePoint D ......
根据剪贴板的原理，在获取剪贴板内容之前，必须指定要获取内容的格式。由于剪贴板中的数据可能存在多种格式，所以有必要对剪贴板的格式类型先做一些了解。W写下了以下的测试代码：
procedure TForm1.Button3Click(Sender: TObject);
var
i: integer;
Buffer: PChar;
s: string;
begin
M ......
花了两个晚上帮朋友将一个asp开发的网站从ACCESS数据库转向SQL SERVER 2000. 网上查了些资料，加上自己的经历，总结：
1、首先看asp 的程序中是否有 on error resume next; 如果有,先注释掉。否则很多错误无法暴露出来
2、创建SQL SERVER 数据表。 使用SQL SERVER 2000自带的数据导入向导，将ACCESS数据库中的表结构，以� ......
asp连接access,出现0x80004005,未指定的错误
asp来连接access数据库
本地测试发现,静态页可以打开.
和数据库建立链接的代码conn.open connstr 行出错,但是以前测试湿可以通过的.
在网上找了找解决办法,例如： 给用户加权限,更改iis设置.但是还是不行.
继续找，找到一篇文章，说是要修改c:\windows\temp 权限的。
......
以Caps Lock键举例，其它(VK_NUMLOCK),类同：
判断状态：
方法1
Level: integer;
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//没亮
else
//亮了(1)
方法2
KeyState : TKeyBoardState;
GetKeyboardState(KeyState);
if KeySt ......
