connect using myconnect;
select 1 into :ll_value from tab1 using myconnect ;
if myconnect .sqlcode <> 0 then
MessageBox ("联接远程数据库失败,请联系管理员!", myconnect .SQLErrText)
return
end if
这样可以。
http://blog.csdn.net/whchen
select 1 into :ll_value using your_link;
if sqlca.sqlcode = 0 then success else fault