try
DataModule1.ADOConnection.Connected := True;
DataModule1.ADOConnection.Connected := False;
except
DataModule1.ADOConnection.Connected := False;
self.MShow.Lines.Add(datetimetostr(now)+':数据库连接失败!');
WriteErrorlog('数据库连接失败!');
end;
这样写,oracle连接出错时,还是会跳连接出错窗口,请问如何避免出现窗口?谢谢
DataModule1.ADOConnection.Connected := True;
DataModule1.ADOConnection.Connected := False;
except
DataModule1.ADOConnection.Connected := False;
self.MShow.Lines.Add(datetimetostr(now)+':数据库连接失败!');
WriteErrorlog('数据库连接失败!');
end;
这样写,oracle连接出错时,还是会跳连接出错窗口,请问如何避免出现窗口?谢谢
直接运行exe就没有了
>> DataModule1.ADOConnection.Connected := False;连接又断开???晕~~~
try
DataModule1.ADOConnection.LoginPrompt := false;
DataModule1.ADOConnection.Connected := False;
DataModule1.ADOConnection.Connected := True;
except
...
DataModule1.ADOConnection.LoginPrompt := false;
DataModule1.ADOConnection.Connected := False;
DataModule1.ADOConnection.Connected := True;
except
还是跳窗体,我是直接运行EXE的