0

この T-SQL コードを LINQ に変換する必要があります。

SELECT 
    id, name, Snippet, description, lat, lng, 
    (3959 * acos(cos(radians('1')) 
      * cos(radians(lat))
      * cos(radians(lng) 
      - radians('1'))
      + sin(radians('1'))
      * sin(radians(lat)))) AS distance 
FROM 
    marker 
WHERE 
    (3959 * acos(cos(radians('1')) 
     * cos(radians(lat))
     * cos(radians(lng) 
     - radians('1'))
     + sin(radians('1'))
     * sin(radians(lat)))) < 50 
ORDER BY 
    distance;

Linqerにこれを実行させようとしましたが、正しく設定できないようです。

どんな助けでも素晴らしいでしょう！

アップデート

Dim markers() = (tmp_Table _
                 .Select(x => new{ _
                    x.Id, _
                    x.Name,  _
                    x.Snippet, _
                    x.Description, _
                    x.Lat, _
                    x.Lng, _
                    Distance = (3959 * Math.acos(Math.cos(Math.PI)  _
                    * Math.cos(x.Lat) _
                    * Math.cos(x.Lng)  _
                    - Math.PI) _
                    + Math.sin(Math.PI) _
                    * Math.sin(Math.PI))) _
                 }) _
                 .Where(x >= x.Distance < 50)

行のエラー:

new{ _

言います：

「With」のタイプが必要です。

4

2 に答える 2

0

このようなもの。すべての値が何であるか、Linq 環境での列のすべての名前が不明です。

申し訳ありませんが、これは VB が遅すぎることに気付きました。私は linq の VB の構文にあまり詳しくありませんが、これは少なくとも始めるのに役立ちます。

また、私の「ラジアン」変換は正しくないかもしれませんが、これが一般的な戦略です。

markers
.Select(x => new{
    x.Id,
    x.Name, 
    x.Snippet,
    x.Description,
    x.Lat,
    x.Lng,
    Distance = (3959 * Math.acos(Math.cos(Math.PI) 
   * Math.cos(x.Lat)
   * Math.cos(x.Lng) 
   - Math.PI)
   + Math.sin(Math.PI)
   * Math.sin(Math.PI)))
})
.Where(x => x.Distance < 50)
于 2014-10-31T19:01:49.187 に答える
0

VB.net でのスターター クエリを次に示します。不足しているプロパティを追加するだけです:

Dim Markers = (from M in tmp_Table where M.Distance < 50 Select new With {.Id = M.id, .Name = M.Name, .Snippet = M.Snippet }).ToList()
于 2014-11-19T05:47:00.383 に答える