>>>TEXT TO lcConnectioString NOSHOW PRETEXT 15 >>> DSN=dpsal;UID=Josephine;APP=Microsoft Visual FoxPro;WSID=HP6PQ8;DATABASE=RemoteAccess; >>> Network=DBMSLPCN;Address=HP6PQ8\SQLEXPRESS,1433; >>> Trusted_Connection=Yes;Regional=Yes;UseProcForPrepare=0 >>>ENDTEXT >>> >>>Handle = SQLSTRINGCONNECT(lcConnectioString) >>>IF Handle < 0 >>> AERROR(laError) >>> MessageBox(laError[1,2]) >>>ENDIF >>>>>
IF Handle < 0 ... ELSE =messagebox('The connection handle is valid and = ' + transform(Handle)) ENDIF