如何来用ADO来打开一个ACCESS数据库，并且把数据库中所有记录都读在DBGrid中？要完整的步骤！详细的！80分这么简单的问题！快来抢！择优录用！

Kandy 2001-08-20 02:08:27

...全文

115 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

say 2001-10-03

打赏
举报

DIABL0 2001-10-02

打赏
举报

拽一个ADOTable下来，点旁边属性栏中的connectionstring，弹出后再点build，选择microsoft.Jet.OLEDB.4.0,下一步选择你的数据表（*.mdb）然后完成。出来把ADOTable.Active改成true,以下和用TTable一样了。

tikkypeng 2001-08-20

打赏
举报

楼上几位说的很对

gomen 2001-08-20

打赏
举报

仔细看看上面，对你会有帮助的！

newyj 2001-08-20

打赏
举报

好好看看borland的demo八
delphi5\demos\ado

jxd_2001 2001-08-20

打赏
举报

上文说得非常的完整，但是如果将source 替换成下面的就可在随便的一个目录下运行了。
Source=extractfilepath(application.exename)+'database\shiti.mdb';

playyuer 2001-08-20

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, ADODB;

type
TForm1 = class(TForm)
DataSource1: TDataSource;
ADODataSet1: TADODataSet;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\NWind97.mdb;Persist Security Info=False';
//ADODataSet1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.3.51;Data Source=d:\NWind97.mdb;Persist Security Info=False';
ADODataSet1.CommandText:='Select * From 产品';
ADODataSet1.Open;
datasource1.DataSet:=ADODataSet1;
dbgrid1.Align:= alBottom;
dbgrid1.DataSource:= datasource1;
end;

end.

ch81 2001-08-20