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