DELPHI操作ACCESS数据库


本文整理自网络,侵删。

 unit Unit1; 

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
FConnection: TADOConnection;
FDataSet: TADOQuery;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

uses
ActiveX;

const
CONN_JETOLE_P = 'Provider=Microsoft.Jet.OLEDB.4.0;' +
'Data Source=%s;Persist Security Info=False;' +
'Jet OLEDB:Database Password=%s';

//添加数据
procedure TForm1.Button1Click(Sender: TObject);
begin
FDataSet.SQL.Text := 'SELECT * FROM [表名] WHERE 1=0';
FDataSet.Open; //打开
FDataSet.Append; //开始添加数据
FDataSet.FieldByName('字段名1').Value := '值';
FDataSet.Post; //提交,使添加生效
end;

//修改数据
procedure TForm1.Button3Click(Sender: TObject);
begin
FDataSet.SQL.Text := 'SELECT * FROM [表名] WHERE 条件';
FDataSet.Open; //打开
FDataSet.Edit; //开始修改数据
FDataSet.FieldByName('字段名1').Value := '值';
FDataSet.Post; //提交,使添加生效
end;

//删除数据
procedure TForm1.Button2Click(Sender: TObject);
begin
FDataSet.SQL.Text := 'SELECT * FROM [表名] WHERE 条件';
FDataSet.Open; //打开
FDataSet.Delete; //删除当前数据

//也可用 SQL 语句方法删除
FDataSet.SQL.Text := 'DELETE FROM [表名] WHERE 条件';
FDataSet.ExecSQL; //执行 SQL 语句
end;

constructor TForm1.Create(AOwner: TComponent);
begin
inherited;
FConnection := TADOConnection.Create(nil);
FConnection.LoginPrompt := False; //不弹出口令对话框
FConnection.ConnectionString := Format(CONN_JETOLE_P, ['MDB 文件名', '密码,如果没有,则留空']);

FDataSet := TADOQuery.Create(nil);
FDataSet.Connection := FConnection;
end;

destructor TForm1.Destroy;
begin
FreeAndNil(FConnection);
FreeAndNil(FDataSet);
inherited;
end;

initialization
ActiveX.CoInitialize(nil);

finalization
ActiveX.CoUninitialize;

end.



1、采用ADO方式连接,直接文件连接,放入控件即可;
2、使用ADO后,可用相应的类完成SQL语句。
Query: TADOQuery;
Query:= TADOQuery.create(nil);
Query.Connection := adoConnect;
Query.SQL.Clear;
Query.SQL.Add('select * from tab_judge');
try
Query.Open;
except
showmessage('打开数据库错!');
Query.Free;
Exit;
end; //end of try
Query.First;

相关阅读 >>

阻止删除文件(文件占坑)的Delphi代码

Delphi idftp 详解

Delphi idftp 错误:socket error 10054 �c connection reset by peer -连接被重置

Delphi android实例-读取设备联系人(xe8+小米2)

Delphi unix时间转换成Delphi时间

Delphi 用api函数抓取屏幕图像

Delphi 如何使用通配符删除文件

Delphi中判断字符串是否为数字

Delphi汉字与汉字区位码的转换

Delphi 获取memo的行数与列数

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...