现在的位置: 首页 > 综合 > 正文

给access文件加了密码,数据库就链接不上了

2012年07月27日 ⁄ 综合 ⁄ 共 4799字 ⁄ 字号 评论关闭
给access文件加了密码,数据库就链接不上了 Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061219134533220.html
通过ACCESS的   工具->安全->设置数据库密码   来设置access数据库的密码,access提示要以独占的方式打开,我就用独占的方式打开了。  
   
  用独占的方式打开之后,可以通过   工具->安全->设置数据库密码   来设置密码。  
   
  设置完密码之后,用ADOConnection链接数据库的时候,就链接不上了,  
  提示:  
  测试链接失败,因为初始化提供程序时发生错误。无法启动应用程序,工作组信息文件丢失,或是已被其它用户以独占方式打开。  
   
   
  请问,我该如何正确的给access加密哪?

ADOConnection要重新设置的

我是第一次设置,第一次这样链接就连接不上

可惜这里不能贴图片,:(  
   
  是不是ADOConnection的属性需要设置还是别的什么哪?

没人知道如何解决吗?

在连接字串里加     Jet   OLEDB:Database   Password=你的密码

还是不行,真的不知道什么地方错了,晕死,弄了快1天了

百度一下吧  
  安全的ACCESS加密方法  
   
  -   中国WEB开发者网络   (http://www.webasp.net)  
  --   技术教程   (http://www.webasp.net/article/)  
  ---   安全的ACCESS加密方法   (http://www.webasp.net/article/19/18571.htm)  
  --------------------------------------------------------------------------------  
     
  --   作者:未知  
  --   发布日期:   2005-04-29    
     
   
  安全的ACCESS加密方法  
   
  徐长友  
   
   
              Microsoft的ACCESS数据库,是我们常用的桌面数据之一,大多中小企业的数据库管理系统都可以采用它,但其安全性一直令人担犹,试想,一套财务管理系统,用户直接打开数据库去更改数据,后果会如何?有些系统对ACCESS数据库可能只是更改扩展名,或加个密码,众所周知,破解ACCESS密码的方法和工具网上多的是!所以这样的加密一样令人担犹,下面介绍一个简单的方法,实现ACCESS数据的加密,供大家参考。  
   
        用UltraEdit打开MDB文件可以看到,文件前16个字节的内容:  
  00   01   00   00   53   74   61   6E   64   61   72   64   20   4A   65   74    
  现在随便更改几个,再用ACCESS打开,发现出现不同识别的文件格式错误,因为ACCESS前面保存的信息都是一些MDB文件的定义和口令,如果更改这些内容,别人就很难看出这个数据库的格式,无法打开它了,而且这样不会对数据库的内容作更改,不会破坏原有的数据。  
   
  下面就用Delphi作个简单的加密解程序:  
     
  用到的加密解函数如下:  
   
    const  
    titlestr:array[0..15]   of   byte=  
  ($00,$01,$00,$00,$53,$74,$61,$6E,$64,$61,$72,$64,$20,$4A,$65,$74)   ;//对应MDB文件的前16个字节  
    titlestr2:array[0..15]   of   byte=  
  ($48,$4A,$00,$58,$55,$43,$48,$41,$4E,$47,$59,$4F,$55,$00,$20,$20)   ;//更改后的MDB文件的前16个字节,自己随便写吧,比如写上自己公司的简称或自已的名  
  produce   EncrypMDB(filename:string);   //用titlestr2内容替换MDB前16个字节,以便实现加密的作用  
  var   F:TFileStream;  
  begin  
        if   not   fileExists(filename)   then     exit;  
        F:=TFileStream.create(filename,fmopenwrite);  
        try  
                F.seek($00,soFromBeginning);  
                F.Write(titlestr2,16);  
        finally  
                F.free;  
        end;  
  end;  
  produce   uncrypMDB(filename:string);   //还原MDB前16个字节  
  var   F:TFileStream;  
  begin  
        if   not   fileExists(filename)   then     exit;  
        F:=TFileStream.create(filename,fmopenwrite);  
        try  
                F.seek($00,soFromBeginning);  
                F.Write(titlestr,16);  
        finally  
                F.free;  
        end;  
  end;  
   
  我们知道打开ACCESS数据库后会出现一个锁定文件(.ldb文件),因为我们自己也要使用数据库,所以必须在使用时还原数据库。  
  如果还原后没有进行加密的话,用户同样可以复制MDB文件,然后用ACCESS或其它工具打开它,所以应该在数据打开前后都处于加密状态才能保证数据的安全。  
  用Delphi采用ADO连接数据库用以下方法可以实现:  
   
  //还原数据,以便自已使用数据库  
  copyfile(pchar(APP_path+'\data\account.db'),pchar(app_path+'data\temp.db'),false);   //app_path表示程序的当前目录,account.db是个更改了扩展名的MDB文件  
  uncrypMDB(App_path+'data\temp.db');  
  copyfile(pchar(App_path+'data\temp.db'),pchar(APP_path+'\data\account.db'),false);  
  adoconn.connectionstring:='provider=Microsoft.Jet.OLEDB.4.0;Data   Source='+App_path+'data\account.db;Persist   Security   Info=false';   //adocon是个TADOConnection组件  
  try  
      adoconn.connected:=true;  
  except  
      MessageBox(handle,'打开数据库出现致命的错误!!!','错误',MB_OK+MB_ICONERROR);  
  end;  
  //打开后马上对其加密  
  copyfile(pchar(APP_path+'\data\account.db'),pchar(app_path+'data\temp.db'),false);   //app_path表示程序的当前目录,account.db是个更改了扩展名的MDB文件  
  EncrypMDB(App_path+'data\temp.db');  
  copyfile(pchar(App_path+'data\temp.db'),pchar(APP_path+'\data\account.db'),false);  
  deletefile(App_path+'data\temp.db');  
  上面使用了两次临时文件,是因为数据库打开后再对MDB进行直接的写入会出现问题,而且你无法去确定多少个用户打开了程序。  
  整个程序共用一个TADOConnection,只在打开数据库连接的时候还原MDB文件,其它时间MDB文件一直都处于加密状态!用户复制了MDB文件一般很难知道它是什么!  
   
  打开数据库后会有一个.ldb文件,类型会出现ACCESS等字样,如果你不想让人看出是什么的话就修改注册表吧,如:  
  reg:=TRegistry.Create;  
  try  
      reg.RootKey:=HKEY_CLASSES_ROOT;  
      reg.OpenKey('.ldb');  
      reg.WriteString('','tempfile');  
  finally  
      reg.closekey;  
      reg.free;  
  end;  
  这样用户看到的文件类型是tempfile  
   
  注:以上所用数据库都是指ACCESS   2000,其它版本的我想应该大同小异,自己动手试试吧。大家如有什么更好的方法或建议,欢迎来信交流:yousoft@chinaren.com  
     
 

连接的时候可以按一下测试,如果测试通过的话应该没有问题。

在连接数据库的控件上加入用户与密码访问。

晕死了,还是没成功,:(  
 

在FormCreat中寫~~!

const  
      cn   =  
          'Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=%Ssysdata.mdb;Persist   Security   Info=False;Jet   OLEDB:Database   Password=pc_7018491.1';  
   
  连接:  
      con1.ConnectionString   :=   format(cn,   [ExtractFilePath(ParamStr(0))]);

谢了,再去试试,否则,我的ACCESS就谁都可以看了啊,:(

sCon   ='Provider=Microsoft.Jet.OLEDB.4.0;'   +  
          'Persist   Security   Info=False;'   +  
          'Data   Source=%s;'+  
          'Extended   Properties="";'   +  
          'Jet   OLEDB:System   database="";'   +  
          'Jet   OLEDB:Registry   Path="";'   +  
          'Jet   OLEDB:Database   Password=%s';  
  adoCon.ConnectionString:=Format(sCon,   ['数据库文件名',   '密码']);

在电脑上新建一个   new.udl文件,用它用连ACEESS,连接成功后,用记事本打开这个文件  
  里面的内容就是你要的字符串了

adoconnection2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data   Source='+DBQ+';Jet   OLEDB:Database   Password=fangyuanzls;';//Source   是ACCESS文件的路径,加文件名  
  如:DBQ=d:\方园自来水网络版\FYCBdata.mdb

楼主是手写连接串吗?我从来不手写。  
   
  如果不是手写,用Delphi   的属性编辑器,是可以设置连接串的密码的。  
  难道你从没发现。

ADOConnection的ConnectionString属性页里,在"连接"那一页的输入登录的数据库信息那里不用填密码,在最后一页("所有")的Jet   OLEDB:Database   Password双击,输入密码,再测试看看,成功的话你再看看连接串是怎样写的。

谢谢   koma2973()   的方法,^_^

抱歉!评论已关闭.