模拟tnsping的连接串测试?

Question

如何通过delphi程序来编写测试连接串是否能连接通的程序?
同oracle中建立连接串的测试一样,通过OCI可以吗?要怎么做?

Answer 1

这个不是模拟tnsping,是要看能否连接成功.
写好连接串后,打开连接,如果出现异常就说明失败.procedure TForm1.Button1Click(Sender: TObject);
begin
 try
    ADOConnection1.ConnectionString:='Provider=MSDAORA.1;User ID=lzrl;'
    +'password=admin Data Source=lzrl.world;Persist Security Info=False';
 except
  showmessage('Link DataBase Error');
 end;
end;

Answer 2

通过ADOConnection来测试是否能连接成功，不是好办法，
因为adoconnection如果连接不通过，并不能说明tnsping就不通啊

Answer 3

也是。
tnsping就是看服务器的监听器是否启动，你不能直接象调用别的应用程序一样调用它吗？

Answer 4

可以啊，但不同oracle版本的tnsping文件名不一样。
另外，我想知道在建oracle连接串中的连接串测试是如何做的？

Answer 5

我也想，不过我认为不是做个数据库的connection，因为我试过在用neteayse config的时候，数据库连接并未增加一个