DELPHI与ACCESS2000的动态联接代码？？？

Question

DELPHI与ACCESS2000的动态联接代码？？？
带密码的ACCESS和没有带密码的有最好了。。谢谢adoconnection1.ConnectionString:=''

Answer 1

ADO连接加密数据库
connectionstring :='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+target_filename+'; Persist Security  Info=False;Jet OLEDB:Database Password=1234';

Answer 2

TO:newsofter(横空出世小霸王) 
我在用手工接接时，对设置了密码的ACCESS数据库输入密码时，用户名是什么，怎么才旨出错。。晕

Answer 3

用户名这部分可以删掉,加上的话就是admin

Answer 4

我加了个密码就不对了，连不上。出错  adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password=www;Data Source='+sname+'cbig2003.mdb;Persist Security Info=True';
我不加个密码，就好了，一切都好了，这是怎么回事？？下面这个是可以的，可上面的就错了
  adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+sname+'cbig2003.mdb;Persist Security Info=True';

Answer 5

给你一个函数吧！
procedure TfrmMain.ConnectDB;
var
  ConnStr,DBPath:String;        //保存连接字符串和数据库路径
begin
  {ExtractFilePath函数从一个完整的文件名中分离出路径，以'\'结束，
   Application.ExeName得到程序执行文件本身的文件名，
   这里要求数据库文件（UserInfo.mdb）必须放在程序同一个目录，
   否则就连接不上了，呵呵！}  try
    DBPath:=ExtractFilePath(Application.ExeName)+'UserInfo.mdb';
    ConnStr:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+
        DBPath+';Persist Security Info=False';
    ADOConnection1.Close; //要改变它的属性前要关闭连接！
    ADOConnection1.ConnectionString:=ConnStr;     //指定连接串
    ADOconnection1.LoginPrompt:=False;  //不显示默认的登录对话框
    ADOConnection1.Open   //打开连接
  except
    on E:Exception do
    begin
      ShowMessage('出错！'+e.Message);  //显示出错信息
      frmMain.Close;    //退出程序算了，数据库都连不上还有什么用！^_^
    end;
  end;
end;