求助用ADO连接ACCESS的代码

Question

如题。求助各位大哥们。给个只用代码来实现ADO连接ACCESS的例子。不用控件。且能方便全局调用的。谢谢！

Answer 1

不用控件？不用delphi提供的adoconnection？

Answer 2

不用控件，你自己包装ADO？这不是没事 找 事嘛？
delphi提供的控件，就是对ado的包装。你不用它的话，就得自己实现对ado的包装。 你可以参考delphi是如何与ado的com对象进行交互，来实现连接。

Answer 3

客气，你可以去下载 ADO中文帮助，若要自己包装，可以参考它。

Answer 4

adoquery:TADOQuery;
adoquery:=TADOQuery.Create(nil);
adoquery.connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..........';
with adoquery do
Close;
SQL.Clear;
SQL.Add('');
....
.....

Answer 5

var
  MyValue : TmyValue;
begin
  Application.Initialize;
  MyValue := TMyValue.create;  //这样你其它单元都可以通过使用  MYValue.AdoConn 了。
  with TfrmLogin.Create(Nil) do
  begin
    try
      ShowModal;
    finally
      Free;
    end;
  end;  Application.Run;
end.
 这个地方你再单独建一个单元，建下面这样一个类，当然你也可以在里面加入更多你需要的东西。
uses
  SysUtils, Classes, DB, ADODB；
  TmyValue = class
    ADOConn: TADOConnection;
    constructor Create；
  end;  constructor TmyValue.Create;
  begin
   AdoConn := TAdoConnection.create;
   adoconn.ConnectionString := '写下连接代码';
   try
     AdoConn.COnnected := True;
   except
     Raise;
   end;
  end;

Answer 6

直接用ADO控件就可以了，把这些控件放在一个模块上，然后在别的窗口调用。很方便的。

Answer 7

procedure TForm1.Button1Click(Sender: TObject);
const
  SConnectionStringAccess='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  FADOConnection:TADOConnection;
begin
  FADOConnection:=TADOConnection.Create(nil);
  try
    FADOConnection.LoginPrompt:=False;
    FADOConnection.ConnectionString:=Format(SConnectionStringAccess,[ExtractFilePath(ParamStr(0))+'test.mdb']);;
    FADOConnection.Open;
  finally
    if FADOConnection.Connected then FADOConnection.Close;
    if Assigned(FADOConnection) then FreeAndNil(FADOConnection);
  end;
end;

Answer 8

const
  Constr='Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=%s';
var
  FCon:TADOConnection;
begin
  FCon:=TADOConnection.Create(nil);
  try
    FCon.LoginPrompt:=False;//取消验证
    FCon.ConnectionString:=Format(Constr,[数据库路径]);;
    FCon.Open;//连接
  finally
    FCon.Free;//使用完后,释放
  end;
end;

Answer 9

快给分!!!!!!!!!!!!   
  adoconnection.connectionstring:='driver={microsoft   access   driver   (*.mdb);qdb=数据库路径/名字;uid;pwd=;';   
  adoconnection.open;   

Answer 10

starluck的思路比较新颖，值得学习！

Answer 11

可以自己写个过程procedure adoconnected(ADOConnection1:TADOConnection; pathstr: string);
var 
  ADOConnection1:TADOConnection; 
begin 
  ADOConnection1:=TADOConnection.Create(nil); 
  try 
    ADOConnection1.LoginPrompt:=False;//取消验证 
     ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+pathstr+';Persist Security Info=False'
    ADOConnection1.Open;//连接 
  finally 
    ADOConnection1.Free;//使用完后,释放 
  end; end;//调用
adoconnected(ADOConnection1, 'E:\..\aa.mdb');

Answer 12

procedure adoconnected(ADOConnection1:TADOConnection; pathstr: string);
begin 
    ADOConnection1.LoginPrompt:=False;//取消验证 
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+pathstr+';Persist Security Info=False'
   ADOConnection1.Open;//连接   
end;//调用
adoconnected(ADOConnection1, 'E:\..\aa.mdb');

Answer 13

顶楼上的几位，呵呵
俺也贴一下。const
  ADOString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;'+
                'Jet OLEDB:Database Password=''''';
var
  dataset: TADODataSet;
  path: string;
begin
    con := TAdoConnection.Create(nil);
    path := ExtractFilePath(Application.ExeName);
    con.ConnectionString := Format(AdoString,[path + '\Data.mdb']);
    con.LoginPrompt := false;
    con.Connected := true;
    dataset.Connection := con;
    dataset.CommandText := 'SELECT * FROM [t1] order by id';
    dataset.Open();
    ....
end;