求delphi连接access数据库的ado连接字符串

Question

connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Common Files\Borland Shared\Data\dbdemos.mdb;Persist Security Info=False'

Answer 1

红旗你好，用你说的不行的，我前一段时间也用的这个但统计的数据有很多是不正确的，我说的是用ado如何连接？

Answer 2

你用ADOConnection的Connectionstring连接后把字符串考出来，用在程序中，把datasource、password等作为变量或参数传入不就可以了嘛

Answer 3

procedure TProperForm.BitBtn1Click(Sender: TObject);
var
  CreateAccess:OleVariant;
  DataBaseName:ansiString;
  ConnectStr:ansistring;
 TdeForm:TTdeForm;
begin
  SaveDialog1.Title:='保存项目文件';
  SaveDialog1.FileName:=ProjectNamesx;
  if SaveDialog1.Execute then
  begin
    DataBaseName:=SaveDialog1.FileName;
    ConnectStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DataBaseName+'.mdb;';
    CreateAccess:=CreateOleObject('ADOX.Catalog');
    CreateAccess.Create(ConnectStr);

Answer 4

uses adoconed;
    ....
   editconnectionstring(adoconnection1);
  然后随便你！