Hi Ralf,
danke, dass du unermüdlich anderen Leuten hilfst.
Das gebürt großen Respekt :-))
Mein Source ist fertig und funzt auch sehr gut.
Habe die leeren Felder der Spalten Lat und Lon mit einer NULL gefüllt und so erreicht, dass das SQL-Statement läuft.
Bin jetzt in der Lage eine Umkreisuche nach PLZ oder Stadt anhand der Koordinaten durchzuführen.
Das ist für Deutschland, Schweiz und Österreich möglich.
Anschauen kannst du dir das demnächst in der Version 11.0.2
vom DateiCommander:
www.dateicommander.de
Und weil du mir soviel geholfen hast, bekommst du kostenlos eine Lizenz für deine privaten Zwecke (nur wenn du willst).
Melde dich per Mail bei mir.
thx a lot
Christian
SelectStatement = "SELECT Id, PLZ, Ort, " + strKFZ + "Bundesland, DistanzInKm FROM (SELECT Id, PLZ, Ort, " + strKFZ + "Bundesland, " + _
"3.14159265358979 AS PI, " + _
"Cdbl(iif(instr(1, lat, ""."") = 0, lat, left(lat, instr(1, lat, ""."") - 1) & "","" & mid(lat, instr(1, lat, ""."")+1))) * PI / 180 AS hn, " + _
"Cdbl(iif(instr(1, lon, ""."") = 0, lon, left(lon, instr(1, lon, ""."") - 1) & "","" & mid(lon, instr(1, lon, ""."")+1))) * PI / 180 AS he, " + _
LaB + " * PI / 180 AS n, " + _
LoB + " * PI / 180 AS e, " + _
"COS(he - e) * COS(hn) * COS(n) + SIN(hn) * SIN(n) AS co, " + _
"atn(ABS(sqr(1 - co * co) / co)) AS ca, " + _
"Format(6367 * iif(co < 0, PI - ca, ca),""000.000"") AS DistanzInKm " + _
"FROM " + country + _
" WHERE Cdbl(Lon) > 0 " + _
") as innertab WHERE DistanzInKm " & Operator & " " & Entfernung + " Order by DistanzInKm ASC;"