首页 / DELPHI / DELPHI中操作ACCESS技巧

DELPHI中操作ACCESS技巧

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了DELPHI中操作ACCESS技巧，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含4868字，纯文字阅读大概需要7分钟。

内容图文

1.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

result:=false;

end;

end;

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

// Procedure: CompactDatabase

// Author : ysai

// Date : 2003-01-27

// Arguments: AFileName,APassWord:string

// Result : boolean

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

function CompactDatabase(AFileName,APassWord:string):boolean;

//压缩与修复数据库,覆盖源文件

var

STempFileName:string;

vJE:OleVariant;

begin

STempFileName:=GetTempPathFileName;

try

vJE:=CreateOleObject('JRO.JetEngine');

vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),

format(SConnectionString,[STempFileName,APassWord]));

result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);

DeleteFile(STempFileName);

except

result:=false;

end;

end;

ACCESS中使用SQL语句应注意的地方及几点技巧

以下SQL语句在ACCESS XP的查询中测试通过

建表:

Create Table Tab1 (

ID Counter,

Name string,

Age integer,

[Date] DateTime);

技巧:

自增字段用 Counter 声明.

字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.

建立索引:

下面的语句在Tab1的Date列上建立可重复索引

Create Index iDate ON Tab1 ([Date]);

完成后ACCESS中字段Date索引属性显示为 - 有(有重复).

下面的语句在Tab1的Name列上建立不可重复索引

Create Unique Index iName ON Tab1 (Name);

完成后ACCESS中字段Name索引属性显示为 - 有(无重复).

下面的语句删除刚才建立的两个索引

Drop Index iDate ON Tab1;

Drop Index iName ON Tab1;

ACCESS与SQLSERVER中的UPDATE语句对比:

SQLSERVER中更新多表的UPDATE语句:

UPDATE Tab1

SET a.Name = b.Name

FROM Tab1 a,Tab2 b

WHERE a.ID = b.ID;

同样功能的SQL语句在ACCESS中应该是

UPDATE Tab1 a,Tab2 b

SET a.Name = b.Name

WHERE a.ID = b.ID;

即:ACCESS中的UPDATE语句没有FROM子句,所有引用的表都列在UPDATE关键字后.

上例中如果Tab2可以不是一个表,而是一个查询,例:

UPDATE Tab1 a,(Select ID,Name From Tab2) b

SET a.Name = b.Name

WHERE a.ID = b.ID;

访问多个不同的ACCESS数据库-在SQL中使用In子句:

Select a.*,b.* From Tab1 a,Tab2 b In 'db2.mdb' Where a.ID=b.ID;

上面的SQL语句查询出当前数据库中Tab1和db2.mdb(当前文件夹中)中Tab2以ID为关联的所有记录.

缺点-外部数据库不能带密码.

在ACCESS中访问其它ODBC数据源

下例在ACCESS中查询SQLSERVER中的数据

SELECT * FROM Tab1 IN [ODBC]

[ODBC;Driver=SQL Server;UID=sa;PWD=;Server=127.0.0.1;DataBase=Demo;]

外部数据源连接属性的完整参数是:

[ODBC;DRIVER=driver;SERVER=server;DATABASE=database;UID=user;PWD=password;]

其中的DRIVER=driver可以在注册表中的

HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBCINST.INI\

中找到

ACCESS支持子查询

ACCESS支持外连接,但不包括完整外部联接,如支持

LEFT JOIN 或 RIGHT JOIN

但不支持

FULL OUTER JOIN 或 FULL JOIN

ACCESS中的日期查询

注意:ACCESS中的日期时间分隔符是#而不是引号

Select * From Tab1 Where [Date]>#2002-1-1#;

在DELPHI中我这样用

SQL.Add(Format(

'Select * From Tab1 Where [Date]>#%s#;',

[DateToStr(Date)]));

ACCESS中的字符串可以用双引号分隔,但SQLSERVER不认,所以为了迁移方便和兼容,

建议用单引号作为字符串分隔符.

在SQLSERVER中查询ACCESS数据库中的表

SELECT * FROM

OPENROWSET('Microsoft.Jet.OLEDB.4.0',

'c:\youfile.mdb';'admin';'youpwd',youtabname)

AS a

以下SQL语句在ACCESS XP的查询中测试通过

建表:

Create Table Tab1 (

ID Counter,

Name string,

Age integer,

[Date] DateTime);

技巧:

自增字段用 Counter 声明.

字段名为关键字的字段用方括号[]括起来,数字作为字段名也可行.

内容总结

以上是互联网集市为您收集整理的DELPHI中操作ACCESS技巧全部内容，希望文章能够帮你解决DELPHI中操作ACCESS技巧所遇到的程序开发问题。如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容，请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

扫描二维码推送至手机访问。

本文链接：https://qyyshop.com/info/533961.html

来源：【匿名】

【上一篇】Delphi访问共享【下一篇】为何用Delphi程序写的POST不能下传图片

更多 ►

【DELPHI中操作ACCESS技巧】教程文章相关的互联网学习教程文章

Delphi XE7 用indy开发微信公众平台（1）- 获取access_token、expires_in【代码】

获取access_token、expires_infunction GetMethod(HTTP: TIdHTTP; Url: String; Max: Integer): String; varRespData: TStringStream; beginRespData := TStringStream.Create(‘‘, TEncoding.UTF8);trytryHTTP.Get(Url, RespData);HTTP.Request.Referer := Url;Result := RespData.DataString;exceptDec(Max);if Max = 0thenbeginResult := ‘‘;Exit;end;Result := GetMethod(Url, Max);end;finallyFreeAndNil(RespData);end; e...

ACCESS-delphi向中插入一条记录报错，但ACCESS不会

答：原因是插入语句中的字段名是DELPHI的内部标示符。 ACCESS-delphi向中插入一条记录报错，但ACCESS不会标签：本文系统来源：http://www.cnblogs.com/FKdelphi/p/4640573.html

ACCESS-关于DELPHI中操作ACCESS数据库中单精度数据的问题

单精度和双精度数值类型最早出现在C语言中（比较通用的语言里面），在C语言中单精度类型称为浮点类型（Float），顾名思义是通过浮动小数点来实现数据的存储。这两个数据类型最早是为了科学计算而产生的，他能够给科学计算提供足够高的精度来存储对于精度要求比较高的数值。但是与此同时，他也完全符合科学计算中对于数值的观念：当我们比较两个棍子的长度的时候，一种方法是并排放着比较一下，一种方法是分别量出长度。但是事实上世...

问题-Delphi2007跟踪变量时提示“E2171 Variable 'APolygon' inaccessible here due to optimization”

Delphi2007跟踪变量时提示“E2171 Variable ‘APolygon‘ inaccessible here due to optimization” 。问题原因：可能是因为Delphi优化。问题处理：方法1：工程->右击->Opitons->Compiler->Code generation->Optimization->去掉对号。方法2：在变量方法最后再调用一下变量，这样变量就不会在方法结束前优化掉了。问题-Delphi2007跟踪变量时提示“E2171 Variable APolygon inaccessible here due to optimization”...

解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题

解决delphi的 dbgrid在读取access文本型字段显示TWideMemoField的问题标签：targe 窗体自定义 ase 读取 data 字段解决 proc 本文系统来源：http://www.cnblogs.com/chuangyiyuan/p/6587310.html

delphi连接access数据库的步骤【图】

delphi连接access数据库的步骤标签：ges ima delphi image com blog 分享技术分享数据库本文系统来源：http://www.cnblogs.com/ddxxxb/p/6803284.html

Delphi 在写Ini文件时报错，Access violation at address 774D6EC8 in module 'ntdll.dll' write of address 004044CD【图】

检查代码发现读写Ini文件函数ReadString参数错误导致：如下节点不能为空。 Delphi 在写Ini文件时报错，Access violation at address 774D6EC8 in module ntdll.dll write of address 004044CD标签：.dll image log ini str reads access 函数 ini文件本文系统来源：http://www.cnblogs.com/lp-blogs/p/7425111.html

Delphi操作ACCESS技巧集【代码】【图】

= ‘Provider=Microsoft.Jet.OLEDB.4.0;Data Source=‘ + Edit1.Text + ‘;Persist Security Info=False‘; ADOConnection1.Open; ADOConnection1.GetTableNames(ComboBox1.Items); ComboBox1.ItemIndex := 0; View Code delphi和access连接的方式 1.SQL数据库的联接方式：条件：控件名：AdoConnecion1,数据库名：Sample,用户名：sa 密码：123，数据库地址：本机AdoConnection1.ConnectionString:=‘Provider=SQLOLEDB.1;Passwor...

Delphi 通过Access Violation地址错误找到错误的哪行代码【图】

unit Unit1;2 3 interface4 5 uses6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,7 Dialogs, StdCtrls;8 9 type 10 TForm1 = class(TForm) 11 btn1: TButton; 12 procedure btn1Click(Sender: TObject); 13 private 14 { Private declarations } 15 public 16 { Public declarations } 17 end; 18 19 var 20 Form1: TForm1; 21 22 implementation 23 24 {$R *.d...

delphi数据库之不用数据源以access为例(其他未试过)【图】

在我做好学生管理系统时，发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版本。构造思想： 650) this.width=650;" src="" title="datafile.jpg" /> 在con1的 c 在我做好学生管理系统时，发现要使用本软件必须配置数据库的数据源。于是我就想弄个脱离数据源的版本。构造思想：在con1的connectionstring有链接数据库文件作为数据源的做法，那么我们可以用数据库文件配置数据源。于是百度了一下Da...

Delphi操作ACCESS技巧集

1.DELPHI中操作 access数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无ACCESS环境下运行成功. //在之前uses ComObj,ActiveX //声明连接字符串 Const SConnectionString = PRovider=Microsoft.Jet.OLE1.DELPHI中操作access数据库(建立.mdb文件,压缩数据库)以下代码在WIN2K,D6,MDAC2.6下测试通过,编译好的程序在WIN98第二版无ACCESS环境下运行成功.//在之前uses ComObj,Active...