- #1
S
Spazz
Bekanntes Mitglied
Themenersteller
- Dabei seit
- 04.07.2002
- Beiträge
- 278
- Reaktionspunkte
- 0
- Ort
- WEN
Hallo ich habe über VB 6 Sp5 ein Script gecodet mit dem ich über Mappoint 2002 die Entfernung zwischen 2 Orten erhalten will um diese in eine DB zu schreiben.
Folgender Code wurde verwendet
ich habe nur ein problem. Erstens dauert der Scheiss ewig lange und zweitens verlangt mappoint nach beliebigen einträgen eine eingebe darüber ob ich die map speichern will. wie kann ich dieses Speicherfenster vermeiden?
Habs versucht mit Object.saved = true aber irgendwie wirkt das nicht.
jemand ne idee???
Folgender Code wurde verwendet
Code:
Dim objMap As MapPointctl.Map
Dim objRoute As MapPointctl.Route
Dim myDiff As Double
Private Sub Form_Load()
Ado.Refresh
End Sub
Private Sub Command1_Click()
Ado.Recordset.MoveFirst
Do Until Ado.Recordset.EOF = True
Call Route(Ado.Recordset.Fields!kd_plz)
Ado.Recordset.Fields!routenkilometer = myDiff
Ado.Recordset.Update
myDiff = 0
Ado.Recordset.MoveNext
Loop
End Sub
Private Sub Route(PLZ As String)
objMap.Save
Set objMap = MPC.NewMap(geoMapEurope)
Set objRoute = objMap.ActiveRoute
If PLZ = Then PLZ = 92637
objRoute.Waypoints.Add objMap.FindResults(PLZ).Item(1)
objRoute.Waypoints.Add objMap.FindResults(92637).Item(1)
objMap.Saved = True
objRoute.Calculate
myDiff = CLng(objRoute.Distance)
Set objMap = Nothing
Set objRoute = Nothing
End Sub
ich habe nur ein problem. Erstens dauert der Scheiss ewig lange und zweitens verlangt mappoint nach beliebigen einträgen eine eingebe darüber ob ich die map speichern will. wie kann ich dieses Speicherfenster vermeiden?
Habs versucht mit Object.saved = true aber irgendwie wirkt das nicht.
jemand ne idee???