procedure Tform_main.SQLConn;
begin with dm.ADOConnection1 do
begin Connected := False;
ConnectionString := Format(ADOLinkString,[g.Password,g.UserName,DatabaseName,ServerName]);//初始连接参数
//showmessage(ConnectionString);
try
dm.ADOConnection1.Open
except
showmessage('系统配置出错,请进行数据库连接配置!');
F_Config:=TF_Config.create(application) ; //建立
F_Config.showmodal ; //以有模式方式显示
F_Config.free ; //释放窗体
end;
........
end;
end; 为什么我加了try,还是出现错误提示。当无法连接到数据库时出现一个SQLserver连接失败的窗口,而不 是出现我给出的提示,然后再加载上配置窗口。。请问这是什么原因呢。???
begin with dm.ADOConnection1 do
begin Connected := False;
ConnectionString := Format(ADOLinkString,[g.Password,g.UserName,DatabaseName,ServerName]);//初始连接参数
//showmessage(ConnectionString);
try
dm.ADOConnection1.Open
except
showmessage('系统配置出错,请进行数据库连接配置!');
F_Config:=TF_Config.create(application) ; //建立
F_Config.showmodal ; //以有模式方式显示
F_Config.free ; //释放窗体
end;
........
end;
end; 为什么我加了try,还是出现错误提示。当无法连接到数据库时出现一个SQLserver连接失败的窗口,而不 是出现我给出的提示,然后再加载上配置窗口。。请问这是什么原因呢。???
解决方案 »
- delphi7中,怎样在编译的时候自动设置版本信息中的最手编译时间项的值?
- 请教在DLL中使用ADO的问题
- 为什么会提示LIST INDEX OUT OF BOUNDS
- ADOConnection断线重连问题
- 对我而言是个高难度的问题!
- 求助dbgrid
- 简单的SQL语句运算问题
- 我看到有些程序,窗体中的东东是随着最大化等按钮而变化的。我用D编的是固定的,应该怎样做才能变化呢?
- 如何为dbExpress控件增加SQLServer 的Driver?
- 用键盘操作时如何用tab键使按钮处于选中?一回车即运行此按纽功能;出现某一对话框时,如何使某一按纽处于默认的选中状态?
- 各位大侠:如何在ADOQUERY中设置查询字段的格式(如四舍五入保留四位小数)?
- 郁闷死了:在DELPHI环境中执行系统,打开窗口的时候,总是报错:an unknown error has occurred,可是不在DELPHI的环境下执行则没有这个错误是
有问题,再者打开数据库最好用 CONNECTED:=TRUE