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

[forDream_]

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

[lw19860412]

假如E盘有个ACCESS数据库，里面有表b1，表里有字段‘m’,给你个显示他字段内容的简单例子。单击按钮文本框里显示内容，你想显示记录就换个空间代替Edit1，循环就for,下一条记录就que.next;


unit Unit1;

interface

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

[leeky]

搞不懂楼主要的是什么？

[7年]

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

[forDream_]

我的目的是不在窗体上放置控件、通过代码在过程中申明对象来操作数据库

[ok1411]

看3楼的
就是连接语句换一下，其它一样操作

[cmdream]

Ole DB