1、ADOConnection1.Connected本身就可判断
if ADOConnection1.Connected then 连接成功2、可以编写一个连函数,试着连接数据库某个表的数据,返回连接成功值。3、代码如下:var Con:boolean;
  try
    DataModule1.ADOCon.Connected:=False;
    DataModule1.ADOCon.ConnectionString:=ConnectionString;
    DataModule1.ADOCon.Connected:=True;
    Con:=True;
    StatusBar1.Panels[0].Text:=' 数据连接成功!';
  except
    Con:=False;
    StatusBar1.Panels[0].Text:=' 连接数据失败......';
  end;
(1)通过Con判断是否连接
(2)StatusBar1显示是否连接成功。

解决方案 »

  1. cvm
  2. try
       ADOConnection1.Open;
    except
    end;
    if  ADOConnection1.Connected then
      //连接成功
    else
      //连接失败;
      


  3. 用DataModule1只不过是好习惯而已吧?不用它是不是没啥区别
      


  4. 用DataModule1只不过是好习惯而已吧?不用它是不是没啥区别
    区别到是没什么,不过一个好习惯也是码农的必备的,想想每个Form上N个数据库控件,看起来就头疼啊,不如都放在DataModule1内,找起来也方便。