利用ADO组件使用编程方法如何连接access数据库并操作？

Question

希望能得到一份示例代码、通过编程方法（不使用控件、可以用ADO类库、就是说要纯代码、例如单击某按钮后显示一条记录、可以在单击事件里申明一个局部的Connection对象）、希望可以得到各位的帮助、可以是自己写的、也可以是网络上搜索的、只要是通过编程方法的都可以、谢谢

Answer 1

放个ADOCONNECTION，双击他，还不会？

Answer 2

假如E盘有个ACCESS数据库，里面有表b1，表里有字段‘m’,给你个显示他字段内容的简单例子。单击按钮文本框里显示内容，你想显示记录就换个空间代替Edit1，循环就for,下一条记录就que.next;
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB, DB, StdCtrls;const
  C_str='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=';type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
  con: TADOConnection;
  que: TADOQuery;
begin
  con := TADOConnection.Create(self);
  con.Close;
  con.ConnectionString := C_str + 'E:\DB.mdb';
  con.Open;
  que := TADOQuery.Create(self);
  que.Connection := con;
  que.SQL.Text := ' select * from b1';
  que.Open;
  edit1.Text := que.FieldByName('m').AsString;end;end.