>CLEAR >sqlProcs = CREATEOBJECT("MyStuff ") >sqlProcs.ConnectionString = "Data Source=192.168.2.5;Initial Catalog=Spares2;User Id=Kevin;Password=password1" > >LOCAL conneted as Boolean >conneted = sqlProcs.TestConnection() > >IF sqlProcs.ErrorOccured > ? sqlProcs.ErrorMessage >ELSE > ? conneted >ENDIF > > > >#DEFINE TRUE .T. >#DEFINE FALSE .F. >#DEFINE NEWLINE CHR(13) > >DEFINE CLASS MyStuff AS Custom > > connectionHandle = 0; > > ErrorMessasge = "" > ErrorOccured = FALSE > > ConnectionString = "" > PROCEDURE ConnectionString_Access() > RETURN This.ConnectionString > ENDPROC > > PROCEDURE ConnectionString_Assign(PropValue) > This.ConnectionString = PropValue > ENDPROC > > ********************************************************** > * Function.: TestConnection > * Purpose..: Tests a connnection to SQL Server > * > ********************************************************** > FUNCTION TestConnection() AS Boolean > > LOCAL Connected AS Boolean > Connected = TRUE > > IF This.ConnectionString = "" THEN > ErrorMessasge = "No connection string specified" > ErrorOccured = TRUE > ENDIF > > IF NOT ErrorOccured > SQLSETPROP(0,"DispLogin",3) > > TRY > connectionHandle = SQLSTRINGCONNECT(This.ConnectionString) > CATCH TO exceptionObject > AERROR(errorArray) > ErrorMessasge = "Error " + ALLTRIwM(STR(errorArray(0))) + ". Cannot make connection." + NEWLINE + errorArray(1) > ErrorOccured = TRUE > Connected = FALSE > ENDTRY > > IF connectionHandle >0 > = SQLDISCONNECT(connectionHandle ) > ENDIF > > ENDIF > > RETURN Connected > > >ENDDEFINE >>