我写了个程序,用adoconnected连接access数据库时:
ADOConnection1->loginprompt=true;
在ConnectionString中设了:允许保存密码 ,用户名 Admin 密码 123
当我把ADOConnection1的属性Connected 设成true时
输入密码:123
弹出一个对话框:无法启动应用程序或是已被其它用户以独占方式打开。
各位大虾,请指点一下啊
ADOConnection1->loginprompt=true;
在ConnectionString中设了:允许保存密码 ,用户名 Admin 密码 123
当我把ADOConnection1的属性Connected 设成true时
输入密码:123
弹出一个对话框:无法启动应用程序或是已被其它用户以独占方式打开。
各位大虾,请指点一下啊
解决方案 »
- 数据库为ACCESS-如何通过DELPHI可以知道各个字段是否允许空值,是否为索引字段
- 关于外壳扩展,文件夹防删除
- 请教三层程序如何在不同机器分发的问题
- 请问Application.ProcessMessages的含义?
- 蔡鸟问题:请教关于TStrings 的使用!
- 今年我们这里开始招工了,可惜我报不上了,好上火啊
- 在线期待答案:怎样才能加入(如剪贴,打开,保存这样的)ICO图标?
- ***************如何得到当前激活窗口的下面的窗口句柄?*****急 分可再加
- 不是问题太难,是我太笨了(dll调用)?
- 天哪,刚学Delphi就碰上问题了,我没分了,但请大家帮帮忙,请问PChar和String如何转换?
- ███★★★★★为了混个熟面孔--------散分★★★★★███
- edit中不能让前4位修改的问题?
GetConnectionString(GetExePath + FILE_DATA);function GetConnectionString(sSource: string): string;
begin
Result := '';
if sSource <> '' then
Result := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;' +
'Data Source=' + sSource + ';User ID=Admin;Jet OLEDB:Database Password=' +
ACCESS_DB_PASSWORD;
end;
可能是你用ACCESS也打开了该数据库并且处于编辑表结构时就会出现的。
关闭即可
begin
with ADOConnection1 do
begin
if Connected = True then Close;
ConnectionString := GetConnectionString(GetExePath + FILE_DATA);
LoginPrompt := False;
Open('Admin', '');
end;
end;
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;"
"Data Source=D:\app\test.mdb;"
"Persist Security Info=False;"
"Jet OLEDB:Database Password=yourpassword"
是登录的问题啊。
把adoconnected的loginprompt属性设置为 false
然后把所有关于access数据库的操作都关闭。我想应该没问题了
不过这个密码可以破的啊!
--->Auto_create form 中将有adoconnected的form提前)就可以了。;