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

zxz	28.07.2011 22:40
Predmet:Re: Queries vece manje Neznam jesil ovo nasao. Ovdje imas dosta knjiga u pdf-u. http://www.icentar.ba/showtopic.php?id=25

zxz

28.07.2011 22:40

Predmet:Re: Queries vece manje

Neznam jesil ovo nasao.
Ovdje imas dosta knjiga u pdf-u.
http://www.icentar.ba/showtopic.php?id=25

carobnjak	28.07.2011 22:44
Predmet:Re: Queries vece manje jesam sve sam poskidao

carobnjak

28.07.2011 22:44

Predmet:Re: Queries vece manje

jesam sve sam poskidao Smiling

zxz	29.07.2011 14:55
Predmet:Re: Queries vece manje Evo ti konacni primjer sa kodom. Sad ti dotjeruj ako imas sta dotjerivati.
Prilozi: projekatxy.zip (Velicina datoteke:26.26 KB)

zxz

29.07.2011 14:55

Predmet:Re: Queries vece manje

Evo ti konacni primjer sa kodom.
Sad ti dotjeruj ako imas sta dotjerivati.

Prilozi:
projekatxy.zip (Velicina datoteke:26.26 KB)

carobnjak	29.07.2011 14:58
Predmet:Re: Queries vece manje Posto znam da je geotransformers tesko naci na netu iako je besplatan evo ja sam ga okacio ovdije ako nekome treba nek skine a neko od administratora nek ga prebaciu neku temu za download gdje ide.. Srdačan pozdrav
Prilozi: Geotransformers.rar (Velicina datoteke:559.74 KB)

carobnjak

29.07.2011 14:58

Predmet:Re: Queries vece manje

Posto znam da je geotransformers tesko naci na netu iako je besplatan evo ja sam ga okacio ovdije ako nekome treba nek skine a neko od administratora nek ga prebaciu neku temu za download gdje ide..
Srdačan pozdrav

Prilozi:
Geotransformers.rar (Velicina datoteke:559.74 KB)

carobnjak	29.07.2011 15:01
Predmet:Re: Queries vece manje Hvala zxz za sve, nemam riječi malo ko hoce da pomogne a kamoli da uradi 99% posla sto si ti uradio za mene, hvala ti svaka cast jos jednom i vrlo rado cu uciti dalje i redovno posjecivati ovaj forum, ko zna mozda jednog dana ja pocnem pisatii vb kod ovdije i pomagati :)))

carobnjak

29.07.2011 15:01

Predmet:Re: Queries vece manje

Hvala zxz za sve, nemam riječi malo ko hoce da pomogne a kamoli da uradi 99% posla sto si ti uradio za mene, hvala ti svaka cast jos jednom i vrlo rado cu uciti dalje i redovno posjecivati ovaj forum, ko zna mozda jednog dana ja pocnem pisatii vb kod ovdije i pomagati :)))

zxz	16.11.2013 15:54
Predmet:Re: Queries vece manje samo zanijeni ovu proceduru sa starom. PreuzmiIzvorni kôd (Visual Basic): Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean) Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double Dim Db As Database Dim Rs As Recordset Dim SQL As String Dim Id As Integer On Error GoTo Kraj Set Db = CurrentDb SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL Set Rs = Db.OpenRecordset(SQL) Rs.FindFirst ("Vizura=" & IDT) X1 = Rs!X Y1 = Rs!Y Rs.MovePrevious X2 = Rs!X Y2 = Rs!Y Rs.Close Set Db = Nothing If X1 = 0 Or X2 = 0 Or Y1 = 0 Or Y2 = 0 Then GoTo Kraj Dx = X1 - X2 DY = Y1 - Y2 K = True Exit Sub Kraj: K = False End Sub

zxz

16.11.2013 15:54

Predmet:Re: Queries vece manje

samo zanijeni ovu proceduru sa starom.

PreuzmiIzvorni kôd (Visual Basic):

Private Sub Kor(Dx As Double, DY As Double, IDL As Integer, IDT As Integer, K As Boolean)
Dim X1 As Double, X2 As Double, Y1 As Double, Y2 As Double
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim Id As Integer
On Error GoTo Kraj
Set Db = CurrentDb
SQL = "SELECT * FROM T_Tacke WHERE LokacijaID=" & IDL
Set Rs = Db.OpenRecordset(SQL)
Rs.FindFirst ("Vizura=" & IDT)
X1 = Rs!X
Y1 = Rs!Y
Rs.MovePrevious
X2 = Rs!X
Y2 = Rs!Y
Rs.Close
Set Db = Nothing
If X1 = 0 Or X2 = 0 Or Y1 = 0 Or Y2 = 0 Then GoTo Kraj
Dx = X1 - X2
DY = Y1 - Y2
K = True
Exit Sub
Kraj:
K = False
End Sub

carobnjak	16.11.2013 17:31
Predmet:Re: Queries vece manje To je to svaka čast i po tko zna koji put od mene ide zahvala, majstore skidam ti kapu

carobnjak

16.11.2013 17:31

Predmet:Re: Queries vece manje

To je to svaka čast i po tko zna koji put od mene ide zahvala, majstore skidam ti kapu

carobnjak	15.11.2013 17:42
Predmet:Re: Queries vece manje Citiraj zxz: Evo ti konacni primjer sa kodom. Sad ti dotjeruj ako imas sta dotjerivati. Veliki pozdrav znam da je ova tema davno bila ali naisao sam na problem koji ne znam da rijesim na ime u nasoj bazi bilo x ili y koordinata kad ja upisemo ne racuna nam nikako decimale poslije zareza u formuli za azimut a i za metre... onda jos jedna stvar nece da nam izracuna azimut ako je koordinata ista polje za izracun ostane skroz prazno Primjer koordinate: 6506264,00 4930652,00 6506266,55 4930652,55

carobnjak

15.11.2013 17:42

Predmet:Re: Queries vece manje

Citiraj zxz:

Evo ti konacni primjer sa kodom.
Sad ti dotjeruj ako imas sta dotjerivati.

Veliki pozdrav znam da je ova tema davno bila ali naisao sam na problem koji ne znam da rijesim Smiling

na ime u nasoj bazi bilo x ili y koordinata kad ja upisemo ne racuna nam nikako decimale poslije zareza u formuli za azimut a i za metre... onda jos jedna stvar nece da nam izracuna azimut ako je koordinata ista polje za izracun ostane skroz prazno Primjer koordinate:

6506264,00 4930652,00
6506266,55 4930652,55

zxz	15.11.2013 18:37
Predmet:Re: Queries vece manje Uf neznam na koju mislis bazu. ja ovo pogledah izna i sve radi odnosno izbacuje decimale.

zxz

15.11.2013 18:37

Predmet:Re: Queries vece manje

Uf neznam na koju mislis bazu.
ja ovo pogledah izna i sve radi odnosno izbacuje decimale.

carobnjak	15.11.2013 18:44
Predmet:Re: Queries vece manje primjer tih koordinati gore kad ih ukucas u nasu tabelu nece da izracuna azimut jer nam je x koordinata ista osim decimalnog zareza i ne znam zasto je nece da racuna a takodjer sam primjetio da kod obracuna ne racuna nikako decimale iza zareza od datih koordinata...testiro sam na dikitronu i u exelu gdje sam nesto slicno napravio za obracun azimuta i distanci razlika je nekad i po par metara ili stepeni... pokusat cu sad uslikati screen pa postavim

carobnjak

15.11.2013 18:44

Predmet:Re: Queries vece manje

primjer tih koordinati gore kad ih ukucas u nasu tabelu nece da izracuna azimut jer nam je x koordinata ista osim decimalnog zareza i ne znam zasto je nece da racuna a takodjer sam primjetio da kod obracuna ne racuna nikako decimale iza zareza od datih koordinata...testiro sam na dikitronu i u exelu gdje sam nesto slicno napravio za obracun azimuta i distanci razlika je nekad i po par metara ili stepeni... pokusat cu sad uslikati screen pa postavim