>>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 >>>>