delphi访问带密码的.mdb

Question

delphi访问access数据库时，要求输入用户名和密码，输什么呢？我试了几次，老报错：“无法启动应用程序。工作组信息文件丢失，或是已被其他用户以独占方式打开”

Answer 1

加一个database控件，设置其LoginPrompt=false!

Answer 2

用什么方式联数据库呢？如果用DBEXPRESS就比较方面啦。。

Answer 3

1、加一个database控件，设置其LoginPrompt=false!
2、做delphi时把access数据库关掉

Answer 4

Provider=Microsoft.Jet.OLEDB.4.0;Password="(这里不要输)";User ID=Admin;Data Source=.\aaa.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password=你的密码;Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Answer 5

1.ADOConnection的LoginPrompt设为false；
2.在其连接向导最后一个[所有]标签的Jet OLEDB:Database Password中写入密码；
3.关闭你的Access再试；
4.搜一下，这个问题很多人问过

Answer 6

var
  sconstr:string;//连接语句
  sdbpath:string;//数据库路径
  smm:string;    //密码
begin
  smm:='AAA';
  try
    sdbpath:=ExtractFilePath(Application.ExeName)+'AA67.MDB';
    sconstr:='Provider=Microsoft.Jet.OLEDB.4.0;'+
           'User ID=Admin;Data Source='+sdbpath+';'+
           'Mode=Share Deny None;Extended Properties="";'+
           'Locale Identifier=2052;Persist Security Info=False;'+
           'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
           'Jet OLEDB:Database Password='+smm+';'+
           'Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=0;'+
           'Jet OLEDB:Global Partial Bulk Ops=2;'+
           'Jet OLEDB:Global Bulk Transactions=1;'+
           'Jet OLEDB:New Database Password="";'+
           'Jet OLEDB:Create System Database=False;'+
           'Jet OLEDB:Encrypt Database=False;'+
           'Jet OLEDB:Don''t Copy Locale on Compact=False;'+
           'Jet OLEDB:Compact Without Replica Repair=False;'+
           'Jet OLEDB:SFP=False';
    if DM1.ADOCn1.Connected = True then DM1.ADOCn1.Connected:=False;
    DM1.ADOCn1.ConnectionString:=sconstr;
    DM1.ADOCn1.Connected:=True;//DM1.ADOCN1:TADOCONNECTION
  except
    Application.MessageBox('无法连接数据库！','错误',MB_OK+MB_ICONSTOP);
    Halt;
  end;
end;