SQL – Select Closest Locations

Posted on By David Kittell

This is an older script but still works nicely.

Setup: You have a table with medical centers that has the address along with latitude and longitude columns.

I used this script with a GPS application that pulled your current location and sent it to a web service to get the results.

GPS Provided Latitude: 43.0011
GPS Provided Longitude: -83.7742

SELECT TOP 20 *, ( 3959 * acos( cos( radians(43.0011) ) * cos( radians( lat ) ) * cos( radians( lng ) - radians(-83.7742) ) + sin( radians(43.0011) ) * sin( radians( lat ) ) ) ) AS distance 
FROM MedicalCenters 
WHERE ( 3959 * acos( cos( radians(43.0011) ) * cos( radians( lat ) ) * cos( radians( lng ) - radians(-83.7742) ) + sin( radians(43.0011) ) * sin( radians( lat ) ) ) ) < 250
ORDER BY distance
All information on this site is shared with the intention to help. Before any source code or program is ran on a production (non-development) system it is suggested you test it and fully understand what it is doing not just what it appears it is doing. I accept no responsibility for any damage you may do with this code.
Code MSSQL SQL

Related Posts

PowerShell Set DNS Settings

Posted on

This only works on Windows 8, 8.1, 10 as the Cmdlets Set-DnsClientServerAddress Get-DnsClientServerAddress are introduced in Windows 8. First get the interface name(s) you want to modify Get-DnsClientServerAddress Change the code below to the interface you wish to change $primarydns = $args[0] $secondarydns = $args[1] Set-DNSClientServerAddress –interfaceAlias Wi-Fi –ServerAddresses ($primarydns,$secondarydns)…

Read More

Age Verification

Posted on

private bool ValidateMemberUnderage(DateTime dtBirthday, int nYears) { if (DateTime.Today.Year – dtBirthday.Year > nYears) return true; else if (DateTime.Today.Year – dtBirthday.Year == nYears) { DateTime dtBirthdayThisYear = dtBirthday.AddYears(nYears); if (DateTime.Today >= dtBirthdayThisYear) return true; else return false; } else return false; } if (ValidateMemberUnderage(DateTime.Parse("1981-04-04"), 12) == false) { MessageBox.Show("Too Young"); }…

Read More

Raspberry Pi – Remove Default Apps

Posted on

If you setup your Raspberry Pi using the NOOBs installer you likely have various apps that you don’t want to keep. This script below will remove many of the preinstalled applications. wolfram-engine bluej geany greenfoot nodered nuscratch scratch sonic-pi libreoffice claws-mail claws-mail-i18n minecraft-pi pygame for i in wolfram-engine \ bluej…

Read More