本文整理自网络，侵删。
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 10.4中新增功能：新的vcl tedgebrowser组件
Delphi 使用tnethttprequest / tnethttpclient访问web服务器
更多相关阅读请进入《Delphi》频道 >>
