Funkcja sprawdzająca czy podany DSN umożliwia podłączenie do bazy


function BOOL CheckDSNCon(sDSN, sUser, sPass)
OBJECT objConn;
STRING szADOConnObjID;
STRING sConnString;
BOOL bResult;
begin
bResult = FALSE;
try
szADOConnObjID = "ADODB.Connection";
set objConn = CreateObject(szADOConnObjID);
sConnString = "DSN="+sDSN+"; uid="+sUser+"; pwd="+sPass+";";

if (IsObject(objConn)) then
objConn.ConnectionString = sConnString;
objConn.Open;
bResult = TRUE;
objConn.Close;
endif;

set objConn = NOTHING;

catch
bResult = FALSE;
endcatch;

return bResult;
end;