关于怎么样连接一个Access数据库？

Question

我有一个Access数据库，在数据库中设置了密码，怎么样ADOConnection里连接这个数据库？
谢谢解答！

Answer 1

data_path:=''+extractfilepath(application.exename)+'data.mdb';
  connection_str:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+data_path+';Persist Security Info=False;Jet OLEDB:Database Password=lyhold04220525';
  datam.ADOConnection1.ConnectionString :=connection_str;
*****************************
Database Password=lyhold04220525'
这个就是你的数据库密码

Answer 2

单击属性中的connectstring ... then
1.build按钮   选择microsoft jet 4.0 ole ...2.next3.test connection4.确定,产生连接串

Answer 3

connectionstring---->连接----->使用数据源名称------>用户名、密码--->允许保存密码------>选择初始目录----->测试连接loginprompt----->false;

Answer 4

var
  constr:string;
  str_TestId: string;
begin
  try
  StrExePath := extractfilepath(application.ExeName);//取得当前应用程序的路径
  //配置数据库
  ADOConnection1.LoginPrompt := false;
  constr:='Provider=Microsoft.Jet.OLEDB.4.0;';
  //constr:=constr+'Password="N4S7=y6k0s0n=K8Y9";User ID=;';
  constr:=constr+'Password="mm";User ID=;';
  constr:=constr+'Data Source='+StrExePath+'XXXXX.mdb;';
  constr:=constr+'Mode=Share Deny None;Extended Properties="";';
  constr:=constr+'Locale Identifier=2052;Jet OLEDB:System database="";';
  constr:=constr+'Jet OLEDB:Registry Path="";';
  constr:=constr+'Jet OLEDB:Database Password=XXXXXXX;';
  constr:=constr+'Jet OLEDB:Engine Type=5;';
  constr:=constr+'Jet OLEDB:Database Locking Mode=1;';
  constr:=constr+'Jet OLEDB:Global Partial Bulk Ops=2;';
  constr:=constr+'Jet OLEDB:Global Bulk Transactions=1;';
  constr:=constr+'Jet OLEDB:New Database Password="";';
  constr:=constr+'Jet OLEDB:Create System Database=False;';
  constr:=constr+'Jet OLEDB:Encrypt Database=False;';
  constr:=constr+'Jet OLEDB:Don''t Copy Locale on Compact=False;';
  constr:=constr+'Jet OLEDB:Compact Without Replica Repair=False;';
  constr:=constr+'Jet OLEDB:SFP=False';
  adoconnection1.ConnectionString:=constr;
  adoconnection1.Connected:=true;
  showmessage('连接成功');
  except
  Application.MessageBox(
               '数据库连接失败！',
               '提示',MB_OK + MB_DEFBUTTON1 + MB_ICONINFORMATION);
  exit;
  end;

Answer 5

按其他的方法报错如下：
初始化提供这是发生错误，测试连接失败。无法启动应用程序。工作组信息文件丢失，或是已被其他用户已独占方式打开。按chwdong(chwdong)的方法报错如下：
1。验证失败。
2。连接成功。
3。应用程序发生异常位置的软件异常（0x0eedfade），位置为0x77e6f142.
4。Exception EOleException in module Project.exe at 0008A12E.
   无法启动应用程序。工作组信息文件丢失，或是已被其他用户已独占方式打开。

Answer 6

连接一个什么数据库关键是驱动啊，连接Access数据库选用icrosoft.Jet.OLEDB.4.0驱动，其他的操作都是一个模式啊