iCentar » Racunari i oprema » Programirannje i baze podataka » Access

pmiroslav	25.04.2012 18:56
Predmet:Re: Access i GoogleMaps Uočio sam sad da su markeri jedan ispod drugog. kada se jedan pomakne miÅ¡em pojavi se drugi. Å to bih trebao dodati u kodu da mi mjesto pretraÅ¾i po geografskoj koordinati. Iako mi je to pretraÅ¾ivanje po koordinatama problem jer u bazi za sada imam preko 1200 kupaca i tko će unijeti te silne geografske duÅ¾ine i Å¡irine, pa bi moÅ¾da bilo bolje traÅ¾iti po ulici.

pmiroslav

25.04.2012 18:56

Predmet:Re: Access i GoogleMaps

Uočio sam sad da su markeri jedan ispod drugog. kada se jedan pomakne miÅ¡em pojavi se drugi.
Å to bih trebao dodati u kodu da mi mjesto pretraÅ¾i po geografskoj koordinati.
Iako mi je to pretraÅ¾ivanje po koordinatama problem jer u bazi za sada imam preko 1200 kupaca i tko će unijeti te silne geografske duÅ¾ine i Å¡irine, pa bi moÅ¾da bilo bolje traÅ¾iti po ulici.

zxz	25.04.2012 19:45
Predmet:Re: Access i GoogleMaps Hehe nemas ti za nasu oblast svih ulica. Imas na forumu cini mi se kod za pretvaranje gografske sirine i duzine u koordinate i obratno. Neces morati nista to raditi. Vec sam ja mislio o tome. Ti ces jednostavno zumirati pojedinacni marker te ga postaviti na zgradu gdje se nalazi firma a ja cu ti dodati kod da upise polozaj u bazu a i to je veliki posao ako imas mnogo firmi. I poslije toga valja ti i bar jedan stub dalekovodni nacrtati uff. nebi ti bio u kozi.

zxz

25.04.2012 19:45

Predmet:Re: Access i GoogleMaps

Hehe nemas ti za nasu oblast svih ulica.
Imas na forumu cini mi se kod za pretvaranje gografske sirine i duzine u koordinate i obratno.
Neces morati nista to raditi.
Vec sam ja mislio o tome.
Ti ces jednostavno zumirati pojedinacni marker te ga postaviti na zgradu gdje se nalazi firma a ja cu ti dodati kod da upise polozaj u bazu a i to je veliki posao ako imas mnogo firmi.

I poslije toga valja ti i bar jedan stub dalekovodni nacrtati uff. nebi ti bio u kozi.

pmiroslav	25.04.2012 20:21
Predmet:Re: Access i GoogleMaps Probao sam malo izmjenikti Funkciju Ucitaj pa sam dodao Dim Adresa As String, Mjesto As String, Zemlja As String hd.all("address").Value = Adresa & "," & Mjesto & "," & Zemlja ali stvarno kada se ne pronađe adresa pretraga stane, pa ne pronađe ni ostala mjesta nakon toga. Å to se tiče crtanja dalekovoda, nema problema

pmiroslav

25.04.2012 20:21

Predmet:Re: Access i GoogleMaps

Probao sam malo izmjenikti Funkciju Ucitaj pa sam dodao

Dim Adresa As String, Mjesto As String, Zemlja As String
hd.all("address").Value = Adresa & "," & Mjesto & "," & Zemlja

ali stvarno kada se ne pronađe adresa pretraga stane, pa ne pronađe ni ostala mjesta nakon toga.

Å to se tiče crtanja dalekovoda, nema problema

zxz	25.04.2012 21:56
Predmet:Re: Access i GoogleMaps Stavi ovo na www formu i povecaj malo kartu u html. Private Sub Form_Resize() Me.WebBrowser0.Width = Form.InsideWidth - 150 Me.WebBrowser0.Height = Form.InsideHeight - 150 End Sub

zxz

25.04.2012 21:56

Predmet:Re: Access i GoogleMaps

Stavi ovo na www formu i povecaj malo kartu u html.

Private Sub Form_Resize()
Me.WebBrowser0.Width = Form.InsideWidth - 150
Me.WebBrowser0.Height = Form.InsideHeight - 150
End Sub

pmiroslav	26.04.2012 11:43
Predmet:Re: Access i GoogleMaps Ovo do sada je perfektno i odlično radi. Jedino bih te joÅ¡ molio slijedeće: PoÅ¡to u popisu kupaca ima dosta malih sela koje ponekad pretraÅ¾ivač ne pronađe i tada se pojavi poruka npr. 'Svileuva, Srbija. Nije nadjeno' i nakon toga prestaje i daljnje traÅ¾enje. Zanima me dali se moÅ¾e ubaciti neki uslov If pretraga = false Idi na slijedeču pretragu

pmiroslav

26.04.2012 11:43

Predmet:Re: Access i GoogleMaps

Ovo do sada je perfektno i odlično radi. Jedino bih te joÅ¡ molio slijedeće:
PoÅ¡to u popisu kupaca ima dosta malih sela koje ponekad pretraÅ¾ivač ne pronađe i tada se pojavi poruka npr. 'Svileuva, Srbija. Nije nadjeno' i nakon toga prestaje i daljnje traÅ¾enje.
Zanima me dali se moÅ¾e ubaciti neki uslov
If pretraga = false
Idi na slijedeču pretragu

zxz	26.04.2012 18:35
Predmet:Re: Access i GoogleMaps Po meni nebi trebalo da stane. Evo procedure koja to obavlja. PreuzmiIzvorni kôd (Javascript): function showAddress() { address=document.getElementById("PlaceName").value; opis=document.getElementById("opis").value; if (geocoder) { geocoder.getLatLng( address, function(point) { if (!point) { alert(address + " Nije Nadjeno"); } else { map.setCenter(point, 15); var marker = new GMarker(point, {draggable: true}); map.addOverlay(marker); marker.title=opis; GEvent.addListener(marker, "click", function() { point=marker.getLatLng().toUrlValue(6); marker.SetMarker =GMarker(point); marker.openInfoWindowHtml(marker.title); }); //GEvent.trigger(marker, "click"); map.setCenter(new GLatLng(45.727444, 18.414935), 8); document.getElementById("PlaceName").value="True"; } } ); } } Znaci ona radi samo jedan marker a pozivam je iz accesa onoliko puta koliko ima podataka i to ovim. PreuzmiIzvorni kôd (Visual Basic): hd.all("address").Value = Mjesto & "," & Zemlja hd.all("findAdrress").Click Znaci prvo u htm polje addres unesem podatak Onda pokrenem klik na taster findadress evo tih polja u taml: PreuzmiIzvorni kôd (HTML): <body onload="initialize()" onunload="GUnload()"> <div STYLE="display: none"> <div id="findAdrress" onclick="showAddress(); return false"></div> <form action="#" onsubmit="showAddress(); return false"> <input id="PlaceName" type="text" style="width:350px" name="address" value="" /> <input id="opis" type="text" style="width:350px" name="ostalo" value="" /> <input type="submit" value="Go!" /> </p> </div> <div id="map_canvas" style="width: 1800px; height: 1600px"></div> </form> </body> sad sam doduse i vidio da imam viska polja i to: <input type="submit" value="Go!" />

zxz

26.04.2012 18:35

Predmet:Re: Access i GoogleMaps

Po meni nebi trebalo da stane.
Evo procedure koja to obavlja.

PreuzmiIzvorni kôd (Javascript):

function showAddress() {
address=document.getElementById("PlaceName").value;
opis=document.getElementById("opis").value;
if (geocoder) {
geocoder.getLatLng(
address,
function(point) {
if (!point) {
alert(address + " Nije Nadjeno");
} else {
map.setCenter(point, 15);
var marker = new GMarker(point, {draggable: true});
map.addOverlay(marker);
marker.title=opis;
GEvent.addListener(marker, "click", function() {
point=marker.getLatLng().toUrlValue(6);
marker.SetMarker =GMarker(point);
marker.openInfoWindowHtml(marker.title);
});
//GEvent.trigger(marker, "click");
map.setCenter(new GLatLng(45.727444, 18.414935), 8);
document.getElementById("PlaceName").value="True";
}
}
);
}
}

Znaci ona radi samo jedan marker a pozivam je iz accesa onoliko puta koliko ima podataka i to ovim.

PreuzmiIzvorni kôd (Visual Basic):

hd.all("address").Value = Mjesto & "," & Zemlja
hd.all("findAdrress").Click

Znaci prvo u htm polje addres unesem podatak
Onda pokrenem klik na taster findadress

evo tih polja u taml:

PreuzmiIzvorni kôd (HTML):

<body onload="initialize()" onunload="GUnload()">
<div STYLE="display: none">
<div id="findAdrress" onclick="showAddress(); return false"></div>
<form action="#" onsubmit="showAddress(); return false">
<input id="PlaceName" type="text" style="width:350px" name="address" value="" />
<input id="opis" type="text" style="width:350px" name="ostalo" value="" />
<input type="submit" value="Go!" />
</p>
</div>
<div id="map_canvas" style="width: 1800px; height: 1600px"></div>
</form>
</body>

sad sam doduse i vidio da imam viska polja i to:
<input type="submit" value="Go!" />

pmiroslav	26.04.2012 18:59
Predmet:Re: Access i GoogleMaps Nisam baÅ¡ kod kuće sa html kodom pa mi ovaj ispod 'mapa.html nije baÅ¡ najjasniji. Hajde molim te pogledaj moj primjer i vidjet ćeÅ¡ da pretraga stane nako Å¡to naiđe na adresu koja je nepoznata
Prilozi: Image3.jpg (Velicina datoteke:243.74 KB) GoogleMapsMP_2.rar (Velicina datoteke:54.32 KB)

pmiroslav

26.04.2012 18:59

Predmet:Re: Access i GoogleMaps

Nisam baÅ¡ kod kuće sa html kodom pa mi ovaj ispod 'mapa.html nije baÅ¡ najjasniji.
Hajde molim te pogledaj moj primjer i vidjet ćeÅ¡ da pretraga stane nako Å¡to naiđe na adresu koja je nepoznata

Prilozi:
Image3.jpg (Velicina datoteke:243.74 KB)
GoogleMapsMP_2.rar (Velicina datoteke:54.32 KB)

zxz	26.04.2012 19:29
Predmet:Re: Access i GoogleMaps Eh kod mene ovaj tvoj nece nikako ali kada sam prebacio bazu na moje sto sam nakacio na forum onda je sve odradio. I svilajnac je nasao. Nekada hoce stati ako internet slabo radi to znam. Ovaj tvoj valja detaljno pogledati ali veceras necu moci jer idem u goste.

zxz

26.04.2012 19:29

Predmet:Re: Access i GoogleMaps

Eh kod mene ovaj tvoj nece nikako ali kada sam prebacio bazu na moje sto sam nakacio na forum onda je sve odradio.
I svilajnac je nasao.

Nekada hoce stati ako internet slabo radi to znam.

Ovaj tvoj valja detaljno pogledati ali veceras necu moci jer idem u goste.

pmiroslav	26.04.2012 20:16
Predmet:Re: Access i GoogleMaps Nije hića, kad budeÅ¡ mogao molim te pogledaj gdje je problem.

pmiroslav

26.04.2012 20:16

Predmet:Re: Access i GoogleMaps

Nije hića, kad budeÅ¡ mogao molim te pogledaj gdje je problem.

zxz	28.04.2012 12:02
Predmet:Re: Access i GoogleMaps Evo uporedio sam po sadrzaju tvoju i moju proceduru i nema nigdje razlike u kodu sem sto si dodao adresu i treba izbrisati. Kao sto sam naveo prije kod mene pronalazi sva mjesta. PreuzmiIzvorni kôd (Visual Basic): Function Ucitaj() On Error Resume Next Dim Db As Database Dim Rs As Recordset Dim Mjesto As String, Zemlja As String Dim X, Opis As String, Y Set hd = Me.WebBrowser0.Document Set Db = CurrentDb Set Rs = Forms![frmGdjeJeProdan].RecordsetClone Rs.MoveLast Rs.MoveFirst Do While Not Rs.EOF Mjesto = Format$(Rs!Mjesto) Zemlja = Format$(Rs!Zemlja) If Mjesto <> "" Then Opis = "Firma:" & Format$(Rs!Firma) _ & "<br> Adresa:" & Format$(Rs!Adresa) _ & "<br>Mjesto:" & Format$(Rs!Mjesto) _ & "<br>Proizvod:" & Format$(Rs!Proizvod) _ & "<br>Kolicina:" & Format$(Rs!SumOfIzlaz) & " kom." hd.all("opis").Value = Opis hd.all("address").Value = Mjesto & "," & Zemlja hd.all("findAdrress").Click End If start: X = hd.all("PlaceName").Value If X = "True" Then Rs.MoveNext Else DoEvents GoTo start End If Loop Rs.Close Set Db = Nothing Set hd = Nothing Set hd = Nothing End Function

zxz

28.04.2012 12:02

Predmet:Re: Access i GoogleMaps

Evo uporedio sam po sadrzaju tvoju i moju proceduru i nema nigdje razlike u kodu sem sto si dodao adresu i treba izbrisati.
Kao sto sam naveo prije kod mene pronalazi sva mjesta.

PreuzmiIzvorni kôd (Visual Basic):

Function Ucitaj()
On Error Resume Next
Dim Db As Database
Dim Rs As Recordset
Dim Mjesto As String, Zemlja As String
Dim X, Opis As String, Y
Set hd = Me.WebBrowser0.Document
Set Db = CurrentDb
Set Rs = Forms![frmGdjeJeProdan].RecordsetClone
Rs.MoveLast
Rs.MoveFirst
Do While Not Rs.EOF
Mjesto = Format$(Rs!Mjesto)
Zemlja = Format$(Rs!Zemlja)
If Mjesto <> "" Then
Opis = "Firma:" & Format$(Rs!Firma) _
& "<br> Adresa:" & Format$(Rs!Adresa) _
& "<br>Mjesto:" & Format$(Rs!Mjesto) _
& "<br>Proizvod:" & Format$(Rs!Proizvod) _
& "<br>Kolicina:" & Format$(Rs!SumOfIzlaz) & " kom."
hd.all("opis").Value = Opis
hd.all("address").Value = Mjesto & "," & Zemlja
hd.all("findAdrress").Click
End If
start:
X = hd.all("PlaceName").Value
If X = "True" Then
Rs.MoveNext
Else
DoEvents
GoTo start
End If
Loop
Rs.Close
Set Db = Nothing
Set hd = Nothing
Set hd = Nothing
End Function