我在编写数据库时遇到一小小问题.我想在窗体创建时检测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断点设置无效
- 半透明的panel,或者其他控件
- 工程文件中新增窗体时报 unalbe to find both a form and source file.
- 一个项目三个人开发的,因为时间紧嘛,最近想把三个工程合到一个工程里面,有什么先进方法没有呀。
- 如何把几个txt 合并成一个txt 文件,使了几种方法均不行。
- 这是什么错误?应该怎么改?
- FTP地址问题
- 简单问题!
- FastReport在Win98下能用吗?
- 如何通过TIMAGE或TDBIMAGE将图片存入到数据库picture字段里?
- 关于多文档(以及ado和sql server),有三个问题。帮帮忙,谢了!分不多通过后立即结账~~
- 怎样用word在delphi中生成动态报表,请高手指点!!!!高分!!!!
Frm_DBM.ADOConn.Close;
Frm_DBM.ADOConn.ConnectionString:='';
frm_DBM.adoconn.connected := false;
试试看;