关于Data Module 的问题

Question

在程序中新建了个 Data Module 窗体，里面加了个ADOConnection1，在DataModuleCreate事件中加了一个“ADOConnection1.ConnectionString。”语句连接数据库。请问在其他窗体中创建时判断如果 ADOConnectiong 成功连接数据库则提示成功信息，如果不能连接到数据则提示失败信息，该如何处理？

Answer 1

用异常就好了嘛,弹出一个对话框就OK了.try
   adoconnection.connectionstring:= '...';
   adoconnection.connected:= true;
   MessageBox('OK');
exception 
   On  E:Exception do
    MesasgeBox(e.message);
    ...
end;   
   

Answer 2

还得注意在application里面datamodule的创建要优于其他unit

Answer 3

使用函数：
function TDataModule2.CheckConnected: integer;
begin
    ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Example;Data Source=FELIA';
    Try
        ADOConnection1.Connected := True;
        result := 1;
    Except
        result := 0;
    end;end;

Answer 4

楼上兄弟们搞错了吧, DataModule 在 Application 建立时的异常是出不来的, 我一般在 DataModule.Create 中写 ConnectionString在 MainForm.OnCreate 中写Application.ShowMainForm := false;
try
  初始化, 你那句 DataModule.Connection.Connectied := true 写在这
  Application.ShowMainForm := true;
except
  on e: Exception do
  begin
    Application.MessageBox(e.Message, SHint, MB_ICONWARNING + MB_OK);
    PostQuitMessage(-1);
  end;
end;

Answer 5

try              
    ADOConnection1.Connected:=True;
    show ok
 except
    show error

Answer 6

to: javafelia(学以致用)
我是使用你的函数方法，在mainform里调用CheckConnected函数，语句如下：
 if  DataModule.CheckConnected =1 then
  begin
   showmessage('连接成功'）； 
  end
  else
  showmessage('连接失败'）； 当我将网线拔开时，并没有提示“连接失败”，接上网线就能正常提示“连接成功”，这是什么问题？

Answer 7

当我将网线拔开时，并没有提示“连接失败”，接上网线就能正常提示“连接成功”，这是什么问题？那是因为你是指定的字符串！当然它就判断你给出的是否正确
又不是动态指定的
   ADOConnection1.ConnectionString := 'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Example;Data Source=FELIA';

Answer 8

to DELPHI__CRM(风雨无阻):
那么应该如何写？

Answer 9

Data Source=FELIA'可以指定为本机local
或者你机子上运行的服务器名称Data Source=Local\FELIA'