标题:delphi7中ACCESS数据库如何打开问题
只看楼主
水清人专
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-10-29
结帖率:0
已结贴  问题点数:20 回复次数:5 
delphi7中ACCESS数据库如何打开问题
本人正在学习DELPHI7,但此书中讲的是delphi7小型数据库问题,我试着想用access编个小程序,但如何打开此数据库,因为我在运行时老是提示数据库登陆窗口,数据库没有用户名和密码,点击确定就可以了,但这样太别扭!而且在其他计算机上不能独立运行,

procedure TFormWB.FormActivate(Sender: TObject);
begin


    ADOConnectionWB:=TADOConnection.Create(self);
    ADOConnectionWB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wbsj\wbsj.mdb;Persist Security Info=False';


   ADOTWB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\wbsj\wbsj.mdb;Persist Security Info=False';
   ADOTWB.TableName:='wmsj';
   ADOTWB.open;
  WMZS.Caption:=IntToStr(ADOTWB.Recordset.RecordCount);
end;
如能提供答案,真心感谢。
搜索更多相关主题的帖子: 数据库 ACCESS 
2010-10-29 16:38
筱晓绾
Rank: 10Rank: 10Rank: 10
来 自:湖南
等 级:贵宾
威 望:12
帖 子:512
专家分:1736
注 册:2010-9-1
得分:20 
不晓得是不是你没有指定用户名的原因,即使用户名为空,好像在连接字符串里面也要写上   
ADOTWB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User="";Password="";Data Source=D:\wbsj\wbsj.mdb;Persist Security Info=False';
2010-10-29 16:44
水清人专
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-10-29
得分:0 
你好,第一次登陆编程论坛,提个问题就马上回复很高兴,但好像不是此问题,当加上User=""; 系统就出现Project wbfx.exe raised exception class E0leException with message'找不到可安装的ISAM'.process stopped use step or run to continue.
2010-10-30 22:29
水清人专
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-10-29
得分:0 

如果不加系统出现此对话框,点击OK,程序就能正常进入,出现

系统正常,但如果加入User="";系统出现
 

程序进程中断。
2010-10-30 22:39
筱晓绾
Rank: 10Rank: 10Rank: 10
来 自:湖南
等 级:贵宾
威 望:12
帖 子:512
专家分:1736
注 册:2010-9-1
得分:0 
呵呵,对于delphi7我不是很熟,所以抱歉了! 不晓得里面有没有加载事件的,许是在加载事件里面你重新加载了该模块?或是在项目里面将此模块设置了启动项。。。
2010-11-01 09:10
水清人专
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2010-10-29
得分:0 
谢谢,问题解决了,我不使用ADOConnectionWB而是直接打开使用打开表方式就可以解决了,还有我的数据太大,将近
40王条纪录,我不用ACCESS了,我使用SQL也可以解决此问题。
//ADOConnectionWB:=TADOConnection.Create(self);
    //ADOConnectionWB.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Password="";Data Source=D:\wbsj\wbsj.mdb;Persist Security Info=False';
    //ADOConnectionWB.Open;
    //ADOConnectionWB.Connected:=TRUE;
     //ADOConnectionWB.DataSets:=ADOTWB;
    // ADOTWB.Connection:=ADOConnectionWB;
   ADOTWB.ConnectionString:='FILE NAME=D:\wbsj\sjlj.udl';
   ADOTWB.TableName:='wmsj';
   ADOTWB.Active:=true;
2010-11-06 22:14



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-324389-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.060815 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved