易截截图软件、单文件、免安装、纯绿色、仅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<


相关文档:

用ASP.NET/C#连接Access和SQL Server数据库

连接Access
首先看一个例子代码片断:
程序代码:
--------------------------------------------------------------------------------
using System.Data;
using System.Data.OleDb;
......
string strConnection="Provider=Microsoft.Jet.OleDb.4.0;";
strConnection+=@"Data Source=C:\BegASPNET\Northwind.mdb" ......

delphi如何用保存数据库连接参数(INI篇)

在设计数据库应用程序的时候,经常需要将一些信息从程序中独立出来,以保证程序的可移植性。其中最重要的信息就是数据库的连接参数。
在Delphi中,获得正确的数据库连接参数的方法十分简单,你只需要建立一个数据模块,在其中添加一个ADO Connection,双击之,然后在弹出的窗口中选“Use Connection String”,单 ......

如何让Delphi调用外部程序并等待其运行信息(如结束)

函数一:
view plaincopy to clipboardprint?
uses 
    Windows,  
    SysUtils,  
    Classes,  
    ShellAPI;  
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......

Delphi模拟键盘控制Caps Lock(keybd_event)

以Caps Lock键举例,其它(VK_NUMLOCK),类同:
 
判断状态:
 
方法1
Level: integer;
   
Level := GetKeyState(VK_CAPITAL);
if Level = 0 then
//没亮
else
//亮了(1)
 
方法2
KeyState : TKeyBoardState;
 
GetKeyboardState(KeyState);
if KeySt ......

ACCESS SQL语法参考

ACCESS SQL语法参考
=================
一. 基础概念
可以使用的数据类型如下:
1.      TEXT:文本型(指定长度时),备注型(不指定长度时);
2.     
CHAR,NCHAR,VARCHAR,NVARCHAR:文本型,可以指定长度,否则默认值为255!
3.     ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号