Delphi连接sql数据库怎么判断连接是否成功呢？

Question

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显示是否连接成功。

Answer 1

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

Answer 2

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

Answer 3

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