怎样实现Ora8i net easy config中测试用户连接的功能呢?急！

Question

如何在程序实现Ora8i中的SQL Net Easy Configuration中的测试功能呢？
即已知有用户为admin，密码为sc，服务器为oradb，怎么测试admin/sc@oradb能不能连接到数据库呢？

Answer 1

我一般是这样测试的：Application.CreateForm(TDataModule1, DataModule1);
  DataModule1.ADOConnection1.Connected:= false;
  try
    DataModule1.ADOConnection1.ConnectionString:= GetConnectionString;
    DataModule1.ADOConnection1.Connected:= true;
  except
    on e:Exception do
    begin
    MessageBox(Application.Handle,e.message,'错误',MB_OK OR MB_ICONSTOP);
    Exit;
    end;
  end;

Answer 2

Drate:
  非常感谢！