使用Linq to Sql在半徑距離內查找郵政編碼

Question

我有一個郵政編碼與他們的緯度/長度的數據庫表。我試圖找到一些代碼，顯示一個查詢需要一個zipcode和x英里，然後返回包含該半徑內的所有zipcode的結果集（精度不是很重要 - 只要關閉）。

這可以用Linq to SQL查詢來完成，所以我不必使用存儲過程？

Answer 1

我明白了，一旦找到方程式，實際上並不難。

Public Function SearchStudents(ByVal SearchZip As String, ByVal Miles As Double) As IEnumerable(Of Student) 
       Dim dc As New IMDataContext() 

       Dim lat As Double 
       Dim lng As Double 
       Dim maxlat As Double 
       Dim minlat As Double 
       Dim maxlng As Double 
       Dim minlng As Double 

       Dim zip As ZipCode = (From z In dc.ZipCodes Where z.ZipCode = SearchZip).SingleOrDefault() 

       lat = zip.Latitude 
       lng = zip.Longitude 

       maxlat = lat + Miles/69.17 
       minlat = lat - (maxlat - lat) 
       maxlng = lng + Miles/(Math.Cos(minlat * Math.PI/180) * 69.17) 
       minlng = lng - (maxlng - lng) 

       Dim ziplist = From z In dc.ZipCodes Where z.Latitude >= minlat _ 
         And z.Latitude <= maxlat _ 
         And z.Longitude >= minlng _ 
         And z.Longitude <= maxlng Select z.ZipCode 

       Return From i In dc.Students Where ziplist.Contains(i.Zip) 
      End Function