Se tutto ciò che vuoi fare con SqlGeography è tenere traccia dei punti e sfruttare gli indici spaziali di SQL Server 2008, puoi, come altri hanno notato, nascondere la colonna di dati spaziali da Linq a SQL e utilizzare UDF o stored procedure. Si supponga di disporre di una tabella AddressFields che includa i campi Latitudine e Longitudine. Aggiungi quella tabella al tuo file DBML e scrivi il codice che desideri che imposta i campi Latitudine e Longitudine. Quindi, il codice SQL seguente aggiungerà un campo Geogeogarphy a quella tabella e creerà un trigger nel database che imposta automaticamente il campo Geo in base ai campi Latitudine e Longitudine. Nel frattempo, il codice seguente crea anche altre UDF e stored procedure utili:DistanceBetween2 (avevo già un DistanceBetween) restituisce la distanza tra l'indirizzo rappresentato in un AddressField e una coppia latitudine/longitudine specificata; DistanceWithin restituisce vari campi da tutti gli AddressField entro una distanza di un miglio specificato; UDFDistanceWithin fa lo stesso di una funzione definita dall'utente (utile se vuoi incorporarla in una query più ampia); e UDFNearestNeighbors restituisce i campi da AddressField corrispondenti al numero specificato di vicini più vicini a un punto particolare. (Uno dei motivi per l'utilizzo di UDFNearestNeighbors è che SQL Server 2008 non ottimizzerà l'uso di un indice spaziale se si chiama semplicemente l'ordine chiamando DistanceBetween2.)
Dovrai personalizzarlo modificando AddressFields nella tua tabella e personalizzando i campi di quella tabella che vuoi restituire (guarda nel codice intorno ai riferimenti a AddressFieldID). È quindi possibile eseguirlo sul database e copiare le procedure archiviate e le UDF risultanti sul DBML, quindi utilizzarle nelle query. Nel complesso, ciò consente di sfruttare abbastanza facilmente un indice spaziale di punti.
-----------------------------------------------------------------------------------------
--[1]
--INITIAL AUDIT
select * from dbo.AddressFields
GO
--ADD COLUMN GEO
IF EXISTS (SELECT name FROM sysindexes WHERE name = 'SIndx_AddressFields_geo')
DROP INDEX SIndx_AddressFields_geo ON AddressFields
GO
IF EXISTS (SELECT b.name FROM sysobjects a, syscolumns b
WHERE a.id = b.id and a.name = 'AddressFields' and b.name ='Geo' and a.type ='U' )
ALTER TABLE AddressFields DROP COLUMN Geo
GO
alter table AddressFields add Geo geography
--[2]
--SET GEO VALUE
GO
UPDATE AddressFields
SET Geo = geography::STPointFromText('POINT(' + CAST([Longitude] AS VARCHAR(20)) + ' ' +
CAST([Latitude] AS VARCHAR(20)) + ')', 4326)
--[3] CREA INDICE
IF EXISTS (SELECT name FROM sysindexes WHERE name = 'SIndx_AddressFields_geo')
DROP INDEX SIndx_AddressFields_geo ON AddressFields
GO
CREATE SPATIAL INDEX SIndx_AddressFields_geo
ON AddressFields(geo)
--UPDATE STATS
UPDATE STATISTICS AddressFields
--AUDIT
GO
select * from dbo.AddressFields
--[4] CREATE PROCEDURE USP_SET_GEO_VALUE PARA 1 LATITUDE 2 LONGITUDE
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'USPSetGEOValue' AND type = 'P')
DROP PROC USPSetGEOValue
GO
GO
CREATE PROC USPSetGEOValue @latitude decimal(18,8), @longitude decimal(18,8)
AS
UPDATE AddressFields
SET Geo = geography::STPointFromText('POINT(' + CAST(@longitude AS VARCHAR(20)) + ' ' +
CAST(@latitude AS VARCHAR(20)) + ')', 4326)
WHERE [Longitude] [email protected] and [Latitude] = @latitude
GO
--TEST
EXEC USPSetGEOValue 38.87350500,-76.97627500
GO
--[5] CREA TRIGGER SU LAT/LONG CAMBIA VALORE/INSERISCI ---> IMPOSTA GEOCODE
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'TRGSetGEOCode' AND type = 'TR')
DROP TRIGGER TRGSetGEOCode
GO
CREATE TRIGGER TRGSetGEOCode
ON AddressFields
AFTER INSERT,UPDATE
AS
DECLARE @latitude decimal(18,8), @longitude decimal(18,8)
IF ( UPDATE (Latitude) OR UPDATE (Longitude) )
BEGIN
SELECT @latitude = latitude ,@longitude = longitude from inserted
UPDATE AddressFields
SET Geo = geography::STPointFromText('POINT(' + CAST(@longitude AS VARCHAR(20)) + ' ' +
CAST(@latitude AS VARCHAR(20)) + ')', 4326)
WHERE [Longitude] [email protected] and [Latitude] = @latitude
END
ELSE
BEGIN
SELECT @latitude = latitude ,@longitude = longitude from inserted
UPDATE AddressFields
SET Geo = geography::STPointFromText('POINT(' + CAST(@longitude AS VARCHAR(20)) + ' ' +
CAST(@latitude AS VARCHAR(20)) + ')', 4326)
WHERE [Longitude] [email protected] and [Latitude] = @latitude
END
GO
--[6] CREATE PROC USP_SET_GEO_VALUE_INITIAL_LOAD ----> UNA SOLA CORSA
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'USPSetAllGeo' AND type = 'P')
DROP PROC USPSetAllGeo
GO
CREATE PROC USPSetAllGeo
AS
UPDATE AddressFields
SET Geo = geography::STPointFromText('POINT(' + CAST([Longitude] AS VARCHAR(20)) + ' ' +
CAST([Latitude] AS VARCHAR(20)) + ')', 4326)
GO
--[7] EXISTING PROC DistanceBetween, che restituisce la distanza tra due punti specificati
--per coppie di coordinate di latitudine/longitudine. --ALTER PROC DistanzaTra2
IF EXISTS (SELECT name FROM sysobjects WHERE name = 'DistanceBetween2' AND type = 'FN')
DROP FUNCTION DistanceBetween2
GO
CREATE FUNCTION [dbo].[DistanceBetween2]
(@AddressFieldID as int, @Lat1 as real,@Long1 as real)
RETURNS real
AS
BEGIN
DECLARE @KMperNM float = 1.0/1.852;
DECLARE @nwi geography =(select geo from addressfields where AddressFieldID = @AddressFieldID)
DECLARE @edi geography = geography::STPointFromText('POINT(' + CAST(@Long1 AS VARCHAR(20)) + ' ' +
CAST(@Lat1 AS VARCHAR(20)) + ')', 4326)
DECLARE @dDistance as real = (SELECT (@nwi.STDistance(@edi)/1000.0) * @KMperNM)
return (@dDistance);
END
GO--PROVA
DistanzaTra2 12159,40.75889600,-73.99228900
--[8] CREATE PROCEDURE USPDistanceWithin
-- RESTITUISCE L'ELENCO DI INDIRIZZI DALLA tabella AddressFields
SE ESISTE (SELEZIONARE il nome DA sysobjects WHERE nome ='USPDistanceWithin' AND type ='P')PROCEDURA DI RILASCIO USPDistanceWithin
GO
CREATE PROCEDURE [dbo].USPDistanceWithin
(@lat as real,@long as real, @distance as float)
AS
BEGIN
DECLARE @edi geography = geography::STPointFromText('POINT(' + CAST(@Long AS VARCHAR(20)) + ' ' +
CAST(@Lat AS VARCHAR(20)) + ')', 4326)
SET @distance = @distance * 1609.344 -- convert distance into meter
select
AddressFieldID
,FieldID
,AddressString
,Latitude
,Longitude
,LastGeocode
,Status
--,Geo
from
AddressFields a WITH(INDEX(SIndx_AddressFields_geo))
where
a.geo.STDistance(@edi) < = @Distance
END
VAI
--PROVA
--entro 3 migliaUSPDistanzaEntro 38.90606200,-76.92943500,3GO--entro 5 migliaUSPDistanzaEntro 38.90606200,-76.92943500,5GO--entro 10 migliaUSPDistanzaEntro 38.90606200,-76.92943500,10
--[9] CREATE FUNCTION FNDistanceWithin
-- RESTITUISCE L'ELENCO DI INDIRIZZI DALLA tabella AddressFields
SE ESISTE (SELEZIONARE il nome DA sysobjects WHERE nome ='UDFDistanceWithin' AND type ='TF') FUNZIONE DROP UDFDistanceWithin
GO
CREATE FUNCTION UDFDistanceWithin
(@lat as real,@long as real, @distance as real)
RETURNS @AddressIdsToReturn TABLE
(
AddressFieldID INT
,FieldID INT
)
AS
BEGIN
DECLARE @edi geography = geography::STPointFromText('POINT(' + CAST(@Long AS VARCHAR(20)) + ' ' +
CAST(@Lat AS VARCHAR(20)) + ')', 4326)
SET @distance = @distance * 1609.344 -- convert distance into meter
INSERT INTO @AddressIdsToReturn
select
AddressFieldID
,FieldID
from
AddressFields a WITH(INDEX(SIndx_AddressFields_geo))
where
a.geo.STDistance(@edi) < = @Distance
RETURN
END
VAI
--PROVA
--entro 3 migliaseleziona * da UDFDistanceWithin(38.90606200,-76.92943500,3)GO--entro 5 migliaseleziona * da UDFDistanceWithin( 38.90606200,-76.92943500,5)GO--entro 10 migliaseleziona * da UDFDistanceWithin( 38.90606200,-76.
--[9] CREA FUNZIONE UDFNearestNeighbors
-- RESTITUISCE L'ELENCO DI INDIRIZZI DALLA tabella AddressFields
SE ESISTE (SELEZIONARE il nome DA sysobjects WHERE nome ='UDFNearestNeighbors' AND type ='TF')FUNZIONE DROP UDFNeighborsNearest
GO
SE ESISTE (SELEZIONARE il nome DA sysobjects DOVE nome ='numeri' E xtype ='u')numeri DROP TABLE
GO
-- First, create a Numbers table that we will use below.
SELECT TOP 100000 IDENTITY(int,1,1) AS n INTO numbers FROM MASTER..spt_values a, MASTER..spt_values b CREATE UNIQUE CLUSTERED INDEX idx_1 ON numbers(n)
GO
CREATE FUNCTION UDFNearestNeighbors
(@lat as real,@long as real, @neighbors as int)
RETURNS @AddressIdsToReturn TABLE
(
AddressFieldID INT
,FieldID INT
)
AS
BEGIN
DECLARE @edi geography = geography::STPointFromText('POINT(' + CAST(@Long AS VARCHAR(20)) + ' ' +
CAST(@Lat AS VARCHAR(20)) + ')', 4326)
DECLARE @start FLOAT = 1000;
WITH NearestPoints AS
(
SELECT TOP(@neighbors) WITH TIES *, AddressFields.geo.STDistance(@edi) AS dist
FROM Numbers JOIN AddressFields WITH(INDEX(SIndx_AddressFields_geo))
ON AddressFields.geo.STDistance(@edi) < @start*POWER(2,Numbers.n)
ORDER BY n
)
INSERT INTO @AddressIdsToReturn
SELECT TOP(@neighbors)
AddressFieldID
,FieldID
FROM NearestPoints
ORDER BY n DESC, dist
RETURN
END
VAI
--PROVA
--50 neighborsselect * da UDFNearestNeighbors(38.90606200,-76.92943500,50)GO--200 neighborsselect * da UDFNearestNeighbors( 38.90606200,-76.92943500,200)GO
