Falscher Syntax

Daniel 25

Hi,

ich hab euere Route in google maps etwas umgebaut!
Es klappt auch wunderbar wenn ich ein GP-Code einzeln im code einbaue!

Hier mal der code:

Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand("SELECT U_strasse, U_plz, U_ort, U_country FROM OCRD where CardCode = @CardCode")

Kann mir bitte jemand weiterhelfen?

gruß
Daniel

Manuel Marhold

Hi Daniel,

wo ist deine Frage oder dein Problem?

Daniel 25

Diese codezeile ist irgendwie falsch! Es öffnet sich die google maps nicht!
Fehlermeldung:

must declar variable @CardCode!

Nun die Frage ist hier meine Syntax falsch? Oder muss ich was anders deklarieren!?

Manuel Marhold

Hi daniel,

aha.. ;)

da musst du für cmd.SelectCommand nocht bei .Parameter über .Add() den CardCode als Parameter hinbzufügen und ihm den CardCode als Wert setzen.

Daniel 25

Try
Dim matrix As Matrix = Matrix.GetFromUID(pVal.Form, "178")

Dim url As String = "http://maps.google.com/maps?q=from:"
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand("SELECT U_strasse, U_plz, U_ort, U_country FROM OCRD where CardCode = @CardCode")
Using sdr As System.Data.SqlClient.SqlDataReader = customize.B1Connector.GetB1Connector().ExecuteQuery(cmd)
If sdr.Read() Then
url &= sdr(0).ToString() & "%20"
url &= sdr(1).ToString() & "%20"
url &= sdr(2).ToString() & "%20"
url &= sdr(3).ToString() & "%20"
End If
End Using

url &= "to:"
url &= matrix.GetValue("2", 0) & "%20" 'street
url &= matrix.GetValue("5", 0) & "%20" 'zipcode
url &= matrix.GetValue("4", 0) & "%20" 'city
url &= matrix.GetValue("8", 0) & "%20" 'country

System.Diagnostics.Process.Start(url)
Catch ex As Exception
customize.Messaging.StatusBar.WriteError("Zeige Route auf Google Maps): " & ex.ToString())
customize.Messaging.Debug.WriteMessage("Zeige Route auf Google Maps): " & ex.ToString(), customize.Messaging.Debug.DebugLevel.Exception)
End Try

hier mal der Code! Ich kriegs irgendwie nicht hin :(
Kannst du dir das mal ansehen bitte?

Denke ich muss irgendwann mal bei euch einen Kurs besuchen! :)

Daniel 25

Try
Dim matrix As Matrix = Matrix.GetFromUID(pVal.Form, "178")


Dim cardCode As String = TextEdit.GetFromUID(pVal.Form, "5").Value


Dim url As String = "http://maps.google.com/maps?q=from:"
Dim cmd As System.Data.SqlClient.SqlCommand = New System.Data.SqlClient.SqlCommand("SELECT U_strasse, U_plz, U_ort, U_country FROM OCRD where CardCode = @CardCode")
cmd.Parameters.AddWithValue("@CardCode", CardCode)

Using sdr As System.Data.SqlClient.SqlDataReader = customize.B1Connector.GetB1Connector().ExecuteQuery(cmd)
If sdr.Read() Then
url &= sdr(0).ToString() & "%20"
url &= sdr(1).ToString() & "%20"
url &= sdr(2).ToString() & "%20"
url &= sdr(3).ToString() & "%20"
End If
End Using

url &= "to:"
url &= matrix.GetValue("2", 0) & "%20" 'street
url &= matrix.GetValue("5", 0) & "%20" 'zipcode
url &= matrix.GetValue("4", 0) & "%20" 'city
url &= matrix.GetValue("8", 0) & "%20" 'country

System.Diagnostics.Process.Start(url)
Catch ex As Exception
customize.Messaging.StatusBar.WriteError("Zeige Route auf Google Maps): " & ex.ToString())
customize.Messaging.Debug.WriteMessage("Zeige Route auf Google Maps): " & ex.ToString(), customize.Messaging.Debug.DebugLevel.Exception)
End Try

klappt jetzt ;)

Danke für die Bemühungen!!

Könntest du dir vorstellen diese Function umzubauen und mir beispielsweise mehrere Standorte in google maps darstellen zu lassen?