>>CLEAR >>CLOSE DATABASES ALL >> >>LOCAL nHandle, cString, nResult, aErrors[1], lError >> >>** Connect to the Pubs DB >>ON ERROR lError = .T. >> >>cString = "DSN=northwind;uid=username;pwd=password;database=pubs" >>nHandle = SQLSTRINGCONNECT(cString) >> >>ON ERROR >> >>IF nHandle > 0 >> >> ** Get all author records from california >> nResult = SQLEXEC(nHandle, "select * from authors where state = 'CA'", "authors") >> >> ** Disconnect >> =SQLDISCONNECT(nHandle) >> >>ELSE >> >> ? "Failed to connect" >> >> =AERROR(aErrors) >> MESSAGEBOX(aErrors[2],16, "Connection Error") >> >>ENDIF >>