我在打开数据库连接时,捕捉了EOleException,但调试的时候还是出现下面所示的异常对话框
---------------------------
Debugger Exception Notification
---------------------------
Project SchoolManage.exe raised exception class EOleException with message '无效的授权说明'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------程序源代码如下,希望各位指点
procedure TMyDataModule.DataModuleCreate(Sender: TObject);
var
Ini:TReadWriteIni;
SetServer:TSetServer;
ConnString:string;
begin
Ini:=TReadWriteIni.Create;
ConnString:=Ini.GetConnString;
ConnServer.ConnectionString:=ConnString;
try
ConnServer.Open;
except
on EOleException do
begin
SetServer:=TSetServer.Create(self);
SetServer.ShowModal;
end;
end;
end;
---------------------------
Debugger Exception Notification
---------------------------
Project SchoolManage.exe raised exception class EOleException with message '无效的授权说明'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------程序源代码如下,希望各位指点
procedure TMyDataModule.DataModuleCreate(Sender: TObject);
var
Ini:TReadWriteIni;
SetServer:TSetServer;
ConnString:string;
begin
Ini:=TReadWriteIni.Create;
ConnString:=Ini.GetConnString;
ConnServer.ConnectionString:=ConnString;
try
ConnServer.Open;
except
on EOleException do
begin
SetServer:=TSetServer.Create(self);
SetServer.ShowModal;
end;
end;
end;
解决方案 »
- DBEXPRESS的SQLConnection1怎样用代码来连接数据库?
- wise怎樣在安裝文件完成安裝以後自動調用另一個安裝文件啊
- 用哪个函数可以自动调用系统中的Word和Excel文件 ?
- 以前delphi 6.0的datasnap的TClientDataSet哪里去了?
- 求控件InfoPower4000Std_vcl7.exe的安装密码
- 图标问题
- Delphi7 调用WebService 如何自行组装报文?
- delphi中可以调用mfc写的dll么?
- 自動增加單號的方法有哪些﹖
- 这个日期的格式的问题怎么办啊?大家可不可以帮帮我啊!!!
- 如何将Quickrep预览的内容镶嵌在某一个控件里面(如Panel)?
- 一匹"黑马",想升星(*)的来!,不要怕分不够!
function TReadWriteIni.GetConnString: string;
begin
result:='Provider=SQLOLEDB.1;Password='+FPassword+';Persist Security Info=True;User ID='+FUserName+';Initial Catalog=xxglxt;Data Source='+FIp;
end;