请教：如何用ACCESS计算出两个经纬度的距离

替身

例如在access查询表粒可以直接显示距离。
Excel 可以直接用公式，ACCESS 如何算出？
EXCEL函数和ACCESS函数也不一样，请教请教

roych

不就是欧氏距离么？sqrt((x1-x2)^2+(y1-y2)^2)。Access一样可以用类似的公式算

cgsilicone

Excel的东西Access可以变通使用的。
具体到使用Excel函数，函数名前加上“CreateObject("excel.Application").WorksheetFunction.”就OK。
要在SQL中使用，需要VBA中建函数，函数中再使用Excel函数。为了效率，请引用excel，然后new一个全局excel对象，就不需要每次CreateObject了。

cgsilicone

Excel中有直接两个经纬度算距离的函数吗？希望能分享。谢谢！

替身

cgsilicone 发表于 2018-12-18 16:05
Excel的东西Access可以变通使用的。
具体到使用Excel函数，函数名前加上“CreateObject("excel.Applicatio ...

麻烦回复一个ACCESS文件，建立查询关系，谢谢！

cgsilicone

替身 发表于 2018-12-26 17:28
麻烦回复一个ACCESS文件，建立查询关系，谢谢！

请看附件！

替身

cgsilicone 发表于 2018-12-29 12:54
请看附件！

非常感谢你花时间回复，你发的查询清晰明了，就是感觉很卡，一打开程序就死了。
我做了一个公式，但是一旦输入条件，就提示“标准表达式中数据类型不匹配”
请问是怎么回事。
SQL语句如下：

SELECT 规划数据.标准小区名称, gongcan.标准小区名称, 规划数据.经度, 规划数据.纬度, gongcan.经度, gongcan.纬度, DistC([规划数据.经度],[规划数据.纬度],[gongcan.经度],[gongcan.纬度]) AS 距离
FROM gongcan, 规划数据
WHERE (((DistC([规划数据.经度],[规划数据.纬度],[gongcan.经度],[gongcan.纬度]))<1));


DistC是我自己编的经纬度函数，我想筛选小于1公里的条件，他就提示“标准表达式中数据类型不匹配”，我试了很久都不行