Buenas, termine la aplicación de google maps, pero me di cuenta una cosa, yo aparte de guardar ubicaciones, tengo un Botón que te guarda en una linea de SQL la ubicación de tu coche y te muestra un icono del coche.
Cuando vuelvo a guardar la ubicación del coche actualizo la que ya tengo, es decir siempre sobre escribo la que ya existía, cual es mi problema.
Si muestro todas las ubicaciones, digamos que me muestra que mi coche se guardo en Madrid, si luego voy a Sevilla y le digo guardar ubicación del coche, me añade la actual pero me deja en el mapa la de Madrid, e de cerrar el programa y abrirlo para que refresque,
E mirado y probado 5000 cosas y no consigo que cuando le de a guardar Ubicación del coche me resetee todas y me vuelva a cargar después de guardar la nueva.
Este codigo es el boton de guardar y mostrar el coche .
Con este boton muestro todas las Ubicaciones, y la del coche.
Cuando vuelvo a guardar la ubicación del coche actualizo la que ya tengo, es decir siempre sobre escribo la que ya existía, cual es mi problema.
Si muestro todas las ubicaciones, digamos que me muestra que mi coche se guardo en Madrid, si luego voy a Sevilla y le digo guardar ubicación del coche, me añade la actual pero me deja en el mapa la de Madrid, e de cerrar el programa y abrirlo para que refresque,
E mirado y probado 5000 cosas y no consigo que cuando le de a guardar Ubicación del coche me resetee todas y me vuelva a cargar después de guardar la nueva.
Este codigo es el boton de guardar y mostrar el coche .
B4X:
sql1.ExecNonQuery("UPDATE coche set latitud ='"& latitud &"', longitud = '" & Longitud & "' WHERE id = 1")
Dim cursor1 As Cursor
Dim value As String = "1"
'saco los datos donde id = 1
cursor1 = sql1.ExecQuery("SELECT latitud,longitud FROM coche WHERE id='" & value & "'")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
Next
gmap.AddMarker3(cursor1.GetString("latitud"),cursor1.GetString("longitud"),"COCHE",LoadBitmap(File.DirAssets, "4X4.png"))
Con este boton muestro todas las Ubicaciones, y la del coche.
B4X:
Dim lstMarcadores As List
Dim Unmarcador () As String
lstMarcadores = DBUtils.ExecuteMemoryTable(Starter.sql, "SELECT * FROM coordenadas", Null,0) ' Asi coje todas las columnas de coordenadas y mete la 1º en (0) , la 2º en (1) , etc.
For intMarcador = 0 To lstMarcadores.Size -1'Recorre cada elemento de la Lista
Unmarcador = lstMarcadores.Get(intMarcador) 'Extrae un marcador de la Lista
If intMarcador < "5" Then ' v.7.9 con esto hago que solo muestre el numero de ubicaciones que digo en la linea.
'con esto añado todos los marcadores en el mapa. addmarker2 , me permite añadir el color de la chincheta
Dim m1 As Marker = gmap.AddMarker2(Unmarcador(0), Unmarcador(1), Unmarcador(2), gmap.HUE_ORANGE)
m1.Snippet = Unmarcador(3) ' con esto añado texto bajo el nombre de la chincheta, que lo guardo en la variable (3)
Else
End If
Next
'----------------------------------------- ahora mostramos coche
'7.8
'con esto volvemos a mostrar el coche en la ubicacion que guardamos .
Dim cursor1 As Cursor
Dim value As String = "1"
'saco los datos donde id = 1
cursor1 = sql1.ExecQuery("SELECT latitud,longitud FROM coche WHERE id='" & value & "'")
For i = 0 To cursor1.RowCount - 1
cursor1.Position = i
Next
gmap.AddMarker3(cursor1.GetString("latitud"),cursor1.GetString("longitud"),"COCHE",LoadBitmap(File.DirAssets, "4X4.png"))