首页 / DELPHI / Delphi操作ACCESS技巧集

Delphi操作ACCESS技巧集

内容导读

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

内容图文

delphi和access连接的方式

1.SQL数据库的联接方式：

条件：控件名：AdoConnecion1,数据库名：Sample,用户名：sa   密码：123，数据库地址：本机

AdoConnection1.ConnectionString:=‘Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=Sample;Data Source=.‘;
Adoconnection1.LoginPrompt:=False;
Adoconnection1.Connected:=True;

上面这段代码为SQL数据库的联接方式：最后一句Data Source=. 其中的“.”表示为数据库在本机，如果数据在其它地方，则将点改为IP地址或是服务器名称。

2.ACCESS数据库的联接方式：

条件：Adoconnection1,数据库名：Sample 密码：123，数据库文件路径为程式存取的根目录。

procedure TDataModule1.DataModuleCreate(Sender: TObject);
var
   DbPath:String;
begin
DbPath:=ExtractFilePath(Application.ExeName)+‘Sample.mdb‘;
Adoconnection1.ConnectionString:=‘Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=123;Data Source=‘+DbPath+‘;Persist Security Info=false‘;
Adoconnection1.LoginPrompt:=False;
Adoconnection1.Connected:=True; 
end;

View Code

使用midas访问远程access数据库

访问远程数据库常用的办法是使用大型数据库自带的客户端工具，如SQL Server和Oracle等都带有这样的工具。带对于Access这样的小型数据库，这种方法就无法使用了，因为Access不提供这样的客户端工具。但我们可以通过MIDAS实现访问远程Access数据库。
MIDAS是Delphi提出的三层架构的解决方案。我提供的用MIDAS访问远程Access数据库方法的基本思路是在服务器端建立供远程访问的数据模块，而在客户端通过MIDAS组件与其建立连接，并在客户端发送SQL语句给服务器，服务器执行后返回数据集给客户端。
具体做法为：
服务器端

 
服务器使用ADO控件访问Access数据库，具体是ADOConnection控件建立连接，ADOQuery执行相关操作。使用Data Access的ClientDataSet控件向客户端返回数据集。并将以上控件放在Remote Data Module的容器中，供由客户端进行连接。
有如下步骤：
1.         建立Application。其Form取名为FormServer，Project名为PrjServer；
2.         FileàNewàOther…，在弹出的New Items对话框中选择Multitier页，在该页中选择Remote Data Module，确定；
3.         在弹出的Remote Data Module Wizard对话框中，在coclass一栏中填入AccessServer，Instancing与Threading Model保持默认，即表示不同线程之间互相独立，确定后即生成一个RemoteDataModule的派生类AccessServer（在ViewàType Library中可以查看该类的详细信息）；
4.         在程序所在的文件夹中新建一个名为data的文件夹，在其下放入一个名为my.mdb的Access数据库文件，其中有一个名为person的表，该表中只有两个字段，分别为name和age，都是文本类型；
5.         远程数据模块AccessServer上放置各个控件，最终效果如下图所示：
服务器远程数据模块
各控件的相关属性与作用如下表所示：
控件类型
所属页面
属性
值
作用
ADOConnection
ADO
name
ADOConnection1
连接Access文件
ConnectionString
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\data\my.mdb;Persist Security Info=False
ADOQuery
ADO
name
ADOQuery1
执行相关查询操作
Connection
ADOConnection1
ClientDataSet
Data Access
name
DataSetProvider1
向客户端提供数据接口
DataSet
ADOQuery1
Options. poAllowCommandText
true
6.         编译并运行该服务器程序。运行该程序即注册了一个MIDAS的服务器，也只有在服务器程序运行的条件下，才能进行下一步的客户端的程序开发。
客户端
 
以DCOM方式与服务器端进行连接，
1.         建立Application。其Form取名为FormClient，Project名为PrjClient；
2.         在Form上放置各个控件，最终效果如下图所示：
客户端界面

 
各控件的相关属性与作用如下表所示：
控件类型
所属页面
属性
值
作用
Edit
Stardard
name
txtQuery
接收查询语句
Text
select * from person
Button
Stardard
name
btnQuery
 
 
DCOMConnection
DataSnap
name
DCOMConnection1
通过DCOM方式连接服务器
ServerName
PrjServer.AccessServer
ClientDataSet
Data Access
name
ClientDataSet1
向远端发出SQL语句，并取得数据集
RemoteServer
DCOMConnection1
ProviderName
DataSetProvider1
DataSource
Data Access
name
DataSource1
作为数据呈现控件的数据源
DataSet
ClientDataSet1
DBGrid
Data Controls
name
DBGrid1
显示从远端取回的数据集
DataSource
DataSource1
说明：
 
l         DCOMConnection1的ServerName属性是由列表中选取的，该列表是所有注册的MIDAS服务器列表
l         ClientDataSet1的ProviderName属性指定的是服务器上的一个控件
3.         在Form上双击按钮btnQuery，在其Click处理函数下加入如下一段代码：
  self.ClientDataSet1.Close;
  self.ClientDataSet1.CommandText:=self.txtQuery.Text;
  self.ClientDataSet1.Open;
说明：
如果给出的是无返回的SQL语句，最后一句由Open改为Execute。
运行后，效果如下图所示：
客户端运行效果
改变客户端的连接方式
 
在上面的例子中是用DCOM方式连接服务器，这一般只能在局域网内使用。如果要在广域网内使用，可以改用Socket方式连接服务器。为此需做如下改动：
1.         在服务器端运行Delphi自带的scktsrvr.exe程序，该程序在Borland\Delphi7\Bin\文件夹下
2.         在客户端上用SocketConnection控件替换DCOMConnection控件，有关属性的改动如下表所示：
控件类型
所属页面
属性
值
作用
SocketConnection
DataSnap
name
SocketConnection1
通过Socket方式连接服务器
Address
127.0.0.1（本机）
ServerName
PrjServer.AccessServer
ClientDataSet
Data Access
RemoteServer
SocketConnection1
向远端发出SQL语句，并取得数据集
注意：
 
SocketConnection的默认端口是211，这也是scktsrvr的默认端口。为此要在服务器端的防火墙上开放该端口

View Code

Delphi操作ACCESS技巧集

标签：etc 程序开发 pfile win98 使用基本 result 开发字段

本文系统来源：https://www.cnblogs.com/blogpro/p/11345816.html

内容总结

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

内容备注

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

内容手机端

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

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

来源：【匿名】

【上一篇】delphi Sqlite 【下一篇】为何用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...

DELPHI中操作ACCESS技巧

1.DELPHI中操作 ACCESS数据库(建立.mdb文件,压缩数据库) 以下代码在WIN2K,D6,MDAC2.6下测试通过, 编译好的程序在WIN98第二版无ACCESS环境下运行成功. //声明连接字符串 Const SConnectionString = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s; +Jet1.DELPHI中操作ACCESS数据库(建立.mdb文件,压缩数据库)以下代码在WIN2K,D6,MDAC2.6下测试通过,编译好的程序在WIN98第二版无ACCESS环境下运行成功.//声明连接字符串ConstSConne...

delphiaccess中SQL根据时间查询

Access数据库虽然功能是差了点，但是有时对一些少量的数据保存很是很方便的，在delphi中也是如此，在查询时免不了要按照日期或时间作为查询条件，access有些特别。 select * from table where startime #2014-02-20 2::12::00# 注意两点： 1、日期时间两端Access数据库虽然功能是差了点，但是有时对一些少量的数据保存很是很方便的，在delphi中也是如此，在查询时免不了要按照日期或时间作为查询条件，access有些特别。 select *...

DELPHI - 相关标签

delphi2007 delphi7

DELPHI - 最热教程

在ubuntu 上使用wine 运行Delphi win32...Delphi编程常用快捷键大全 delphi TDbGrid 右键 PopupMenu 菜单只...Delphi 的链式代码手把手教你用Delphi实现硬件版hello wo...Delphi ADO数据库控件（转）delphi程序员腾讯QQphp程序员面试题目整...Delphi 7连接MySql 5.5.15 Sqlite框架Delphi10.3 delphi 根据数据库结构生成TreeView

首页 / DELPHI / Delphi操作ACCESS技巧集

Delphi操作ACCESS技巧集

内容导读

内容图文

内容总结

内容备注

内容手机端

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

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

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

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

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

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

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

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

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

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

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

Delphi操作ACCESS技巧集

DELPHI中操作ACCESS技巧

delphiaccess中SQL根据时间查询

DELPHI - 相关标签

ACCESS - 相关标签

DELPHI - 最新教程

DELPHI - 最热教程