我在编写数据库时遇到一小小问题.我想在窗体创建时检测ADOCONN控件是否已经与指定的SQL数据库连接.我的代码是这样写的:
我使用了DBMODEL存放了一ADOCONN和一些其它的查询控件.
部分代码如下:FormCreat....
begin
if Frm_DBM.ADOConn.Connected then begin
mnu.Login.Enable:=False//如果已经连接,则菜单中的连接项为不可用
mnu.LogOff.Enable:=true;
end else begin
mnu.LogOff.Enable:=false;//注销不可.
mnu.Login.Enable:=true;//否则显示连接按钮
end;
end;但我运时如果加上以上代码会出现致命错误,且程序自动退出不知问题出在何处??另外.我在注销CLICK事件中加入
Frm_DBM.ADOConn.Close;
Frm_DBM.ADOConn.ConnectionString:='';
但我再使用
Frm_DBM.ADOConn.open;
确仍然能连接成功. 我明明Frm_DBM.ADOConn.ConnectionString:='';清除了CONNECTIONSTRING的命令啊. 这是为什么呢?/
我需要怎么样在窗体创建时我的数据库是否连接.且我注销时能够实现数据库断开连接后,而我没有给赋值时无法连接?谢谢~!~!
我使用了DBMODEL存放了一ADOCONN和一些其它的查询控件.
部分代码如下:FormCreat....
begin
if Frm_DBM.ADOConn.Connected then begin
mnu.Login.Enable:=False//如果已经连接,则菜单中的连接项为不可用
mnu.LogOff.Enable:=true;
end else begin
mnu.LogOff.Enable:=false;//注销不可.
mnu.Login.Enable:=true;//否则显示连接按钮
end;
end;但我运时如果加上以上代码会出现致命错误,且程序自动退出不知问题出在何处??另外.我在注销CLICK事件中加入
Frm_DBM.ADOConn.Close;
Frm_DBM.ADOConn.ConnectionString:='';
但我再使用
Frm_DBM.ADOConn.open;
确仍然能连接成功. 我明明Frm_DBM.ADOConn.ConnectionString:='';清除了CONNECTIONSTRING的命令啊. 这是为什么呢?/
我需要怎么样在窗体创建时我的数据库是否连接.且我注销时能够实现数据库断开连接后,而我没有给赋值时无法连接?谢谢~!~!
解决方案 »
- delphi xe2中,aes加密
- midas实现的三层系统的中间层,如何才能稳定的为1000个以上的用户提供服务?
- (求救)DELPHI 一按RUN运行时就跳出CPU窗口
- 请问ASP或者ASP.Net如何联接用Delphi开发的Midas应用服务器呢?
- 请帮帮忙!怎样在delphi中声明控件数组?
- 如何在 DBGridEh 控件下面的 Footer 里写东西
- 关于资源文件
- 如何使查询到的记录在DbGrid1中分页显示?
- Delphi中怎么实现上传附件的功能 是数据库软件 用的MSSQL
- 救菜鸟于水火第二问之动动小手
- 关于多文档(以及ado和sql server),有三个问题。帮帮忙,谢了!分不多通过后立即结账~~
- 怎样用word在delphi中生成动态报表,请高手指点!!!!高分!!!!
Frm_DBM.ADOConn.Close;
Frm_DBM.ADOConn.ConnectionString:='';
frm_DBM.adoconn.connected := false;
试试看;