怎么使用ADO+ACCESS

2013-02-27

如何使用ADO+ACCESS。刚接触DELPHI，一直在用VB解决自己的工作需要，现在学学用DELPHI。请有空的老师帮我写个

如何使用ADO+ACCESS。
刚接触DELPHI，一直在用VB解决自己的工作需要，现在学学用DELPHI。请有空的老师帮我写个例子给我看，如何用ADO连接ACCESS，然后把数据读到表格里去。万分感谢。

    我以前用VB是这样用ADO的，现在DELPHI要怎么连。


     Dim CNN As New ADODB.Connection
     Dim RST1 As New ADODB.Recordset
     Dim SQL1 As String
         CNN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\data" & A1数据库名 & ".mdb;User ID=admin;Password=;Jet OLEDB:Database Password=" & A2数据库密码

         sql1 = "select * from AA"

RST1.Open SQL1, CNN, adOpenKeyset, adLockOptimistic

Set VG1.DataSource = RST1

         RST1.Close
         Set RST1 = Nothing
         CNN.Close
         Set CNN = Nothing

请麻烦有空的老师帮忙写个类似的DELPHI连接代码，谢谢，我需要个例子

delphi access
[解决办法]
大概过程如下

窗体中放如下控件
----------------------------------
  con1 : TADOConnection;
  qry1 : TADOQuery;
  ds1: TDataSource;
  dbgrd1: TDBGrid;

建立数据连接及各控件关联代码
------------------------------
const
      Provider = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'+
                 'Jet OLEDB:Database Password=""';

begin
  con1.LoginPrompt := False;
  con1.ConnectionString := Format(Provider, [MDBFile]);
  con1.Connected := True;

  qry1.Connection := con1;
  ds1.dataset := qry1;
  dbgrd1.datasource := ds1;

  qry1.sql.text := 'select * from a';//自己写sql
  qry1.open;
end;
[解决办法]
adoconnection1.Connected := false;
就足够了，

热点排行

.NET

怎么使用ADO+ACCESS