请问Delphi连接Access数据库有没有类似以下VB的语句?

Question

Private Sub Command1_Click()
    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\data\salse.mdb;Persist Security Info=False"
    cnn.Open
    rs.Open "select * from Customer", cnn, adOpenKeyset, adLockReadOnly
    Set DataGrid1.DataSource = rs
End Sub

Answer 1

我写的是VB里的,我想要的是Delphi里的

Answer 2

var
conn:TADOConnection;
qry:TADOQuery;
begin
conn:=TADOConnection.Create(Application);
conn.LoginPrompt:=False;
conn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\data\salse.mdb;Persist Security Info=False';
conn.Connected:=True;
qry:=TADOQuery.Create(Application);
qry.Connection:=conn;
qry.SQL.Text:='select * from Customer';
qry.Open;
end;可以建立一个DataModule,创建TADOConnection,TADOQuery等

Answer 3

一个連接，一个數據集，一个數據源，再一个數據顯示控件（如數據柵格）Delphi中一样啊，delphi中也有ADO系列组件。
procedure TForm1.Button1Click(Sender: TObject);
var
  ADOCon: TADOConnection;
  AQuery : TADOQuery;
  Ds : TDataSource;
begin
  ADOCon := TADOConnection.Create(self);
  ADOCon.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source'
                +'  =H:\data\salse.mdb;Persist Security Info=False';
  AQuery := TADOQuery.Create(self);
  AQuery.Connection := ADOCon;
  AQuery.SQL.Clear;
  AQuery.SQL.Add('select * from Customer');
  Ds :=  TDataSource.Create(self);
  Ds.DataSet := AQuery;
  DataGrid1.DataSource := DS;
  AQuery.Active := true;
end;

Answer 4

VB里使用ADO对象需要添加引用,Delphi里用不用添加引用,用的话,怎么添加吗?