我的数据库是动态打开的用opendialog打开 但是有的数据库有密码怎么办 应为要打开的数据库不止一个数据库为access数据库
解决方案 »
- FastReport如何在程序中定义标题
- 问个数组赋值的问题
- Zebra 888-TT不能打印汉字?救急!!!!
- 高手请留步,关于delphi 的zlib用法,请指教,着急呀!
- 高分求解FastReports问题
- 请教初始选择数据库记录问题
- 怎么实现以下效果?
- 各位高手,不要让我失望啊:通过存储过程上载lob内容
- 求一个后台调用Microsoft Office Document Image Writer 打印mdi(tif)文件到指定目录的代码!!!(100分)
- 应急
- 请教一下delphi方面adodateset 中设置空字段后在 cxGrid1DBTableView1显示checkbox间的问题
- dbgrideh列宽如何根据字段宽度自动设置呀?
如果是,那你就在连接数据库的时候判断数据库是否能连上,如果连接失败,弹出一个密码输入窗口让用户输入连接密码再尝试连接
例如:以下要开启一个ACCESS数据库,密码为:6137042,变量存储了密码,你可以从变量开始着手研究:procedure TForm1.Button3Click(Sender: TObject);
var
s:string;
begin
s:='6137042';
if OpenDialog1.Execute then begin
with ADOConnection1 do begin
Connected:=false;
ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+OpenDialog1.FileName+
';Persist Security Info=False;Jet OLEDB:Database Password='+s;
Connected:=true;
end;
end;end;